Soru Sütun dolu ise satırı renklensin

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Kod:
Set ara = Sheets("ARA").[D2:D65536].Find(TextBox3.Text)
If Not ara Is Nothing Then
    ara.Offset(0, 11) = "Bağlandı"
End If
Userform Textbox3 deki metni ARA sayfasında eşleşen satıra "Bağlandı" şerhi ile aktardıktan sonra aktarılan satırın A:N arasını renklendirebilmek için yardımcı olabilir misiniz?
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
C++:
Range("A" & ara.Row).Resize(1, 14).Interior.Color = RGB(255, 0, 0) 'Kırmızı
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
ÖmerFaruk Çok teşekkür ederim.
 
Üst