Textbox Değerini Aratıp Yan Hücreye Yazma

[aydogankemal]

Merhabalar,
Textbox1 de yer alan değeri sayfada aratıp 8 hücre sağına Textbox2 nin değerini yazdırmak istiyorum. Kolay bir yolu var mıdır. Şimdiden teşekkür ederim

 

[YUSUF44]

Aşağıdaki gibi bir kod bloğu olabilir. Fazlası için örnek dosya paylaşmanızı öneririm.

sat = WorksheetFunction.Match(TextBox1.Text,[A:A],0)
Cells(sat,"I") = TextBox2.Text

 

[YUSUF44]

Mesajımın nesine üzüldünüz sayın @aydogankemal ?

 

[ÖmerFaruk]

Soruyu şöyle anladım.
Excel dosyası sayfa1 sayfasında (değilse kod içinde gerekli yeri değiştiriniz)
Userformdaki Textbox1 de yazan değer aransın.
Varsa bulunan hücrenin 8 sütun sağına Textbox2 deki değer yazılsın.

Userform üzerine 2 textbox ve 1 buton yerleştirdim.
Butona ait kodlar aşağıdadır.

Private Sub CommandButton1_Click()
    Dim Bul As Range
    Set Bul = Worksheets("Sayfa1").Cells.Find(TextBox1)
    If Bul Is Nothing Then
        MsgBox "Textbox1 deki değer sayafada bulunmadı"
    Else
        Bul.Offset(, 8) = TextBox2
    End If
    Set Bul = Nothing
End Sub