Arkadaşlar Sayın Levent Beyin daha önce verdiği aşağıda Kodlarda 15 Adet textboxa sayfalardan veri alıyordum. Bu 13 Textbox yerine birtane listboxa aldırak mümkün mü?
Kod:
Private Sub ComboBox1_Change()
c = 0
For s = 2 To 4
a = WorksheetFunction.CountA(Sheets(s).Range("d2"))
For ara = 1 To a + 2
b = Sheets(s).Cells(ara, 4).Value
If b = ComboBox1.Value Then
c = c + 1
ListBox1 = Sheets(s).Cells(ara, 4).Value
TextBox2 = Sheets(s).Cells(ara, 16).Value
TextBox3 = Sheets(s).Cells(ara, 11).Value
TextBox4 = Sheets(s).Cells(ara, 12).Value
TextBox5 = Sheets(s).Cells(ara, 14).Value
TextBox6 = Sheets(s).Cells(ara, 5).Value
TextBox7 = Sheets(s).Cells(ara, 6).Value
TextBox8 = Sheets(s).Cells(ara, 15).Value
TextBox9 = Sheets(s).Cells(ara, 8).Value
TextBox10 = Sheets(s).Cells(ara, 9).Value
TextBox11 = Sheets(s).Cells(ara, 16).Value
TextBox12 = Sheets(s).Cells(ara, 11).Value
TextBox13 = Sheets(s).Cells(ara, 12).Value
End If
Next ara
Next s
End Sub
Kod:
Private Sub ComboBox1_Change()
c = 0
For s = 2 To 4
a = WorksheetFunction.CountA(Sheets(s).Range("d2"))
For ara = 1 To a + 2
b = Sheets(s).Cells(ara, 4).Value
If b = ComboBox1.Value Then
c = c + 1
ListBox1 = Sheets(s).Cells(ara, 4).Value
TextBox2 = Sheets(s).Cells(ara, 16).Value
TextBox3 = Sheets(s).Cells(ara, 11).Value
TextBox4 = Sheets(s).Cells(ara, 12).Value
TextBox5 = Sheets(s).Cells(ara, 14).Value
TextBox6 = Sheets(s).Cells(ara, 5).Value
TextBox7 = Sheets(s).Cells(ara, 6).Value
TextBox8 = Sheets(s).Cells(ara, 15).Value
TextBox9 = Sheets(s).Cells(ara, 8).Value
TextBox10 = Sheets(s).Cells(ara, 9).Value
TextBox11 = Sheets(s).Cells(ara, 16).Value
TextBox12 = Sheets(s).Cells(ara, 11).Value
TextBox13 = Sheets(s).Cells(ara, 12).Value
End If
Next ara
Next s
End Sub