Pozdravljeni
Ali je možno v excelu narediti "funkcijo" da če je v izbranem območju (B5:DS5) katera koli celica obarvana zeleno, potem obarva celico "A5" v zeleno. Naj omenim da se celice pobarvajo ročno in ni formule za "barvanje"
Barvno označevanje celic
Re: Barvno označevanje celic
Pozdravljeni,
Ne, to z vgrajenimi Excelovimi funkcijami ni možno. Potrebno je uporabiti makro:
Pri tem je potrebno vedeti, da je "zelenih" barv zelooo veliko. Zelena barva '5296274' je pač svetlozelena standardna barva Excela
Ne, to z vgrajenimi Excelovimi funkcijami ni možno. Potrebno je uporabiti makro:
Koda: Izberi vse
Sub obarvaj()
Dim zelena As Long: zelena = 5296274
Dim celica
For Each celica In Range("B5:DS5")
If (celica.Interior.Color = zelena) Then
Range("a5").Interior.Color = zelena
End If
Next
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Barvno označevanje celic
Pozdravljeni
Hvala za hiter odgovor, obseg celic in celico ki naj bi obarvalo sem spremenil na ("B10:DS10") in "a10", vendar naletim na težavo ko napišem makro - v vrstici " Range("a10").Interior.Color = zelena " javi napako
Kaj bi lahko bil vzrok?
Hvala za hiter odgovor, obseg celic in celico ki naj bi obarvalo sem spremenil na ("B10:DS10") in "a10", vendar naletim na težavo ko napišem makro - v vrstici " Range("a10").Interior.Color = zelena " javi napako
Kaj bi lahko bil vzrok?
Re: Barvno označevanje celic
Brez da napišete besedilo napake in priložite točen makro, kot ste ga napisali vam ne morem nič pomagati .
Kako a naj vem kakšno napako vam javi?
Kako a naj vem kakšno napako vam javi?
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Barvno označevanje celic
se opravičujem
Napaka je:
Run-time error 1004
Application defined or object defined error
ko kliknem na "debug" mi rumeno obarva vrstico "Range("a10").Interior.Color = zelena "
Makro pa se glasi:
Sub obarvaj()
Dim zelena As Long: zelena = 52480
Dim celica
For Each celica In Range("B10:DS10")
If (celica.Interior.Color = zelena) Then
Range("a10").Interior.Color = zelena
End If
Next
End Sub
Napaka je:
Run-time error 1004
Application defined or object defined error
ko kliknem na "debug" mi rumeno obarva vrstico "Range("a10").Interior.Color = zelena "
Makro pa se glasi:
Sub obarvaj()
Dim zelena As Long: zelena = 52480
Dim celica
For Each celica In Range("B10:DS10")
If (celica.Interior.Color = zelena) Then
Range("a10").Interior.Color = zelena
End If
Next
End Sub
Re: Barvno označevanje celic
Kam pa ste vi to kodo vpisali? S samo kodo namreč nič narobe!
Ali sto jo skopirali v nek modul v VBA urejealniku, kot je to opisano recimo med nasveti: http://mnet.si/office/vba/2
Ali sto jo skopirali v nek modul v VBA urejealniku, kot je to opisano recimo med nasveti: http://mnet.si/office/vba/2
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator