Soru textbox ile başka sayfasında sütun eşleştirme

[sirkülasyon]

Userform textbox3 de yer alan metin ARA sayfası D2: D65536 aralığında eşleştiği satırın O sütununa "Bağlandı" yazmak istiyorum. Yardımcı olabilir misiniz?

 

[YUSUF44]

Şöyle olabilir:

Set ara = Sheets("ARA").[D2:D65536].Find(TextBox3.Text)
If Not ara Is Nothing Then
    a = ara.Row
    Sheets("ARA").Cells(a, "O") = "Bağlandı"
End If

Ya da şöyle:

Set ara = Sheets("ARA").[D2:D65536].Find(TextBox3.Text)
If Not ara Is Nothing Then
    ara.Offset(0, 11) = "Bağlandı"
End If

 

[sirkülasyon]

YUSUF44 abi çok teşekkür ederim. Sağ Olasın