Hücre biçimlendirme ile ilgili

[SaiL0704]

Arkadaşlar yardımınız gerek, kafam basmadı..
Aşağıdaki adrese bir excel dosyası upload ettim.
dosyada "Proje No" sütununda hangi sayıyı yazarsam, sağ taraftaki kutucuklarda yazdığım sayıya ait kutucuk "kırmızı" renkli olsun..
örneğin D19 hücresine 45 yazdığım zaman sağtarafta bulunan 45 numaralı kutucuğun içi kırmızı olsun...

Dosya Burada
ÇİZELGE

 

[ÖmerBey]

Aşağıdaki makro kodunu kullanabilirsiniz.

Sub renkli()
Range("Q:AT").Interior.ColorIndex = xlNone
For j = 7 To 314 Step 3
a = Cells(j, "D").Value
If a = "" Then GoTo sonraki
    For i = 11 To 350
        If Cells(i, "Q") = a Then Cells(i, "Q").Offset(0, 1).Interior.ColorIndex = 3
        If Cells(i, "U") = a Then Cells(i, "U").Offset(0, 1).Interior.ColorIndex = 3
    Next i
    For k = 18 To 50
        If Cells(2, k) = a Then Cells(2, k).Offset(1, 0).Interior.ColorIndex = 3
        If Cells(11, k) = a Then Cells(11, k).Offset(1, 0).Interior.ColorIndex = 3
    Next k
sonraki:
Next j
End Sub

 

[SaiL0704]

teşekkür ederim de benim makro bilgim yok ama...

 

[ÖmerBey]

Makro ile ilgili sitede araştırma yapabilirsiniz...
Aşağıdaki linkten dosyanızı indirebilirsiniz. D sütununa verileri girdikten sonra butona bastığınızda ilgili kutular renklenir.
Makroları etkinleştirmeyi unutmayın.

Link: http://s3.dosya.tc/server18/3grjoM/_izelge.xls.html

 

[SaiL0704]

Makro ile ilgili sitede araştırma yapabilirsiniz...
Aşağıdaki linkten dosyanızı indirebilirsiniz. D sütununa verileri girdikten sonra butona bastığınızda ilgili kutular renklenir.
Makroları etkinleştirmeyi unutmayın.

Link: http://s3.dosya.tc/server18/3grjoM/_izelge.xls.html

çok teşekkür ederim yaa, zahmet verdim sana da... saolasın..

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...