döngü??

[udentr2002]

Merhaba arkadaşlar benim combobox3 den başlayan ve combobox 21 e kadar giden comboboxlarım var ve textbox71 den başlayan textbox 125 e kadar giden textboxlarım var ancak comboboxlar sıralı olarak devam ediyor yanlız textboxlar 71 den başlıyor ama 74, 77, 80, ... şeklinde 3 er atlayarak devam ediyor sorunum şu
benim yapmak istediğim combobox lar "Kodlar" denen sayfada a3 hücresinden başlayan ve aşağıya doğru olan bilgileri göstermekte ben comboboxdaki veriyi seçtiğimde comboboxun yanındaki textboxa o kodlar sayfasında aktif olan hücrenin bir satır yanıdaki bilginin textboxa gelmesi kısacası tek kod ile gösterirsem şöyle
Private Sub ComboBox3_Change()
Sheets("Kodlar").Select
TextBox71.Value = ""

For Each isim In Sheets("Kodlar").Range("a3:a" & Sheets("Kodlar").Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(ComboBox3)) & "*" Then
isim.Select
TextBox71.Value = ActiveCell.Offset(0, 1).Value
If ComboBox3.Text = "" Then
TextBox71.Text = ""
End If

End If
Next

End Sub

Bu kodu nasıl bir döngü ile yapabilirim yani her comboboxa gelip ayrı ayrı bu kodu yazmak istemiyorum bunu bir döngü ile kurmak istiyorum yardımcı olursanız çok sevinirim

 

[bedersu]

edited by bedersu