udentr2002
Altın Üye
- Katılım
- 5 Kasım 2006
- Mesajlar
- 1,503
- Excel Vers. ve Dili
-
iş yerinde Office 365
evde Office 365
- Altın Üyelik Bitiş Tarihi
- 25-12-2029
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
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