Soru Sütun dolu ise satırı renklensin

[sirkülasyon]

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]

Range("A" & ara.Row).Resize(1, 14).Interior.Color = RGB(255, 0, 0) 'Kırmızı

 

[sirkülasyon]

ÖmerFaruk Çok teşekkür ederim.