İki TextBoxtaki veriye göre verileri getirme

[manly]

Ekteki dosyada butona tıklayınca açılan formda Sarı renkli İTEM NO ComboBoxtan veri çağırınca diğer renkli TextBoxlara veriler otomatik geliyor. İşte bu renkli verilere göre diğer textboxlara diğer verilerin gelmesini istiyorum.

 

[Ömer BARAN]

Merhaba.

-- UserForm için:
UserForm için, ....Activate() yerine ....Initialize() kod'u kullanmanızı öneriyorum.
Kırmızı olan kod satırlarını silip, yerine mavi olanlarını kullanın.
.

[COLOR="Red"]Private Sub UserForm_Activate()
ComboBox1.RowSource = "Veri!A2:A" & Sheets("Veri").Cells(Rows.Count, 1).End(3).Row
End Sub[/COLOR]

[COLOR="Blue"]Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Veri!A2:A" & Sheets("Veri").Cells(Rows.Count, 1).End(3).Row
End Sub[/COLOR]

-- TextBox'lar için:
Combobox1 Change kod blokuna mavi renklendirdiğim satırları ekleyin.
.

[B]Private Sub ComboBox1_Change()[/B]
Dim rngBul As Range
With Sheets("Veri")
Set rngBul = .Columns("A").Find(ComboBox1, Lookat:=xlWhole)
If Not rngBul Is Nothing Then
ComboBox2 = .Cells(rngBul.Row, "A")
[COLOR="Blue"]    For brn = 1 To 17
        Controls("TextBox" & brn) = .Cells(rngBul.Row, brn + 2)
    Next[/COLOR]
End If
End With
Set rngBul = Nothing
[B]End Sub[/B]

 

[manly]

Dediklerinizi yaptım hocam hala sorun var gözüküyor.

 

[yanginci34]

Merhaba; Denermisiniz.
Ekli dosyayı görüntüle veri getirme.xls

 

[manly]

Teşekkür ederim. Çok sağolun..