Textbox'ta Aradığım Değere Göre Veri Girme

[brhmsrn]

Merhabalar. Bir userform'um mevcut. Burada textbox1'de yazdığım değeri A:A sütününda arayıp değerin karşılığındaki AO sütününa (41. Sütun) denk gelen satırdaki hücreye textbox2'deki değeri girmek istiyorum. Bunu nasıl yapabilirim acaba

Ancak aramayı hücre içerisinde tam eşleşme olacak şekilde yapmalı

 

[Korhan Ayhan]

Deneyiniz.

Kaydet butonuna ekleyip kullanabilirsiniz.

Set Bul = Range("A:A").Find(TextBox1, LookAt:=XlWhole)
If Not Bul Is Nothing Then
     Cells(Bul.Row, "AO") = Textbox2
End If

 

[brhmsrn]

Deneyiniz.

Kaydet butonuna ekleyip kullanabilirsiniz.

Set Bul = Range("A:A").Find(TextBox1, LookAt:=XlWhole)
If Not Bul Is Nothing Then
     Cells(Bul.Row, "AO") = Textbox2
End If

Teşekkürler çok işime yaradı