Veri varsa font rengi kırmızı olsun....

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; elimdeki dosyamla verileri Kapalı olan Excel Dosyasına aktarıyorum, bunlar 2, 5 yada 6 şar gibi olabiliyor, yani aynı anda liste dolmuyor, bunların hangisini listeye gönderdiğimi bilmek için veri olan hücrelerin renginin kırmızı olmasını istiyorum, detaylı açıklama dosyamda da mevcut herkese teşekkür ediyorum. İyi akşamlar.

 

[Korhan Ayhan]

Kod bloğunuzda aşağıdaki satırın bir satır üstüne bir sonraki satırı ekleyip deneyiniz.

sat = sat + 1

Ekleyeceğiniz satır;

Cells(i, "B").Font.ColorIndex = 3

 

[Hacı Bayram ÖZKAN]

Teşekkürler Korhan bey iyi geceler eksik olmayın