Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: fmceyhan25 - 19 Mayıs 2017, 10:27:53

Başlık: Userform oluşturup textboxa excelden veri çağırma yardım lütfen.
Gönderen: fmceyhan25 - 19 Mayıs 2017, 10:27:53
merhaba

oluşturduğum userformda textboxları oluşturdum butonu ekledim lakin bir değer yazdıgım zaman listeleme yapmıyor.

örnek çalışmamı hissesi.com/data.rar indirebilirsiniz.   normal siteye upload edemedim
Başlık: Ynt: Userform oluşturup textboxa excelden veri çağırma yardım lütfen.
Gönderen: fmceyhan25 - 19 Mayıs 2017, 10:28:44
kodlarım

Private Sub ara_Click()
row_number = 0
Do
DoEvents
row_number = row_number + 1
item_in_review = Sheets("data").Range("A" & row_number)
If item_in_review = TextBox1.Text Then
TextBox2.Text = Sheets("data").Range("B" & row_number)
TextBox3.Text = Sheets("data").Range("C" & row_number)
TextBox3.Text = Sheets("data").Range("D" & row_number)
End If

Loop Until item_in_review = ""

End Sub