Gönderen Konu: Userform oluşturup textboxa excelden veri çağırma yardım lütfen.  (Okunma sayısı 236 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı fmceyhan25

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: hakan türk
  • Doğum Yılınız: 1985
  • İl / İlçe: eyüp istanbul
  • İşletim Sisteminiz: win 7
  • Mesleğiniz: buro
  • Office Versiyonunuz: 2010
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

Çevrimdışı fmceyhan25

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: hakan türk
  • Doğum Yılınız: 1985
  • İl / İlçe: eyüp istanbul
  • İşletim Sisteminiz: win 7
  • Mesleğiniz: buro
  • Office Versiyonunuz: 2010
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