Diğer sayfadan TextBoxlara veri getirme

[bedri41]

ComboBox ile seçim yapıldığında diğer sayfadaki ilgili satır bilgilerinin Textboxlara gelmesini sağlamak istiyorum.
Yardımlarını esirgemeyen arkadaşlara teşekkür ederim.

 

[hımmmmmmmm]

slm

ComboBox1_Click olayına kodu kopyala...

Private Sub ComboBox1_Click()
Set S = Sheets("TANIM")
    ADI = Trim(ComboBox1.Text)
    On Error Resume Next
    SATIR = S.Range("A:A").Find(ADI).Row
    If SATIR = 0 Then
      C = MsgBox("Bilgi Bulunamadı..", 56, "Kayıt Hakkında")
      Exit Sub
    End If
    
   For I = 4 To 16
     Controls("Textbox" + Trim(I)) = S.Cells(SATIR, I - 2).Value
    Next I
End Sub

 

[bedri41]

Çok teşekkür ederim. Elinize sağlık. Birşey daha öğrenmek isterim,
For I = 4 To 16
Controls("Textbox" + Trim(I)) = S.Cells(SATIR, I - 2).Value
Next I
bu döngü yerine tek tek tanımlamamız gerekse yani "b" textbox5 e "c" textbox6 ya gibi nasıl yazmamız gerekir. Bir örnek yazsanız kafidir.
Tekrar teşekkürler

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki şekilde yazmanız gerekirdi.

TextBox5 = S.Cells(SATIR, "B")
TextBox6 = S.Cells(SATIR, "C")

 

[bedri41]

Teşekkürler