obarvanje celic

[rick]

pozdravljeni

imam eno vprašanje,ki mu nikakor nisem kos in sicer:
v celicah od(b1:af1)imam številke od 1 do 31(kar predstavlja dneve v mesecu).nekatere številke od teh vsebujejo Font.ColorIndex = 3(to so nedelje).v stolpcu a pa imam datume od 1 do 31,kateri se dnevno večkrat ponavljajo.zanima me ,kako bi tudi te datume v stolpcu "A" obarval rdeče(pisavo) glede na rdeče številke v vrstici od b1:af1.
upam,da ste me razumeli.
za odgovor se najlepše zahvaljujem.
lp rick

[admin]

Pozdravljeni,

če vas prav razumem, bo tole rešilo vaš problem:

Koda: Izberi vse

Sub PoenotiBarve()
    Dim i As Integer
    
    For i = 1 To 31
        Cells(i, 1).Interior.ColorIndex = Cells(1, i).Interior.ColorIndex
    Next
End Sub

[rick]

pozdravljen

hm,se mi zdi Matjaž,da se nisva razumela...
še bolj konkretno:v celici b1 je vrednost 5 in to število je rdeče.
ali je možno da mi tudi v stolpcu b obarva rdeče vse datume ki se začnejo s 5.
na primer:
5.2.2007 tega obarva
4.3.2007 ne obarva
5.8.2007 tega obarva in tako naprej...

in če nadaljujem,če je katera koli številka v celicah prve vrste obarvana rdeče naj mi
potem tudi datume,ki se začnejo na to številko rdeče obarva.
(recimo v stolpcu b).
upam Matjaž da ste me razumeli.za vašo pomoč se vam zahvaljujem.
lp rick

[admin]

Aha,

zdaj vas pa razumem, samo to pa je malce večji makro...