sayfa ismi yerine s'i sayfa indeksi olarak kullanarak aşağıdaki gibi bir çözüm olabilir.
[vb:1:5265ccbaee]
Private Sub ComboBox1_Change()
c = 0
For s = 2 To 4
a = WorksheetFunction.CountA(Sheets(s).Range("B4:B100"))
For ara = 1 To a + 4
b = Sheets(s).Cells(ara, 2).Value
If b = ComboBox1.Value Then
c = c + 1
TextBox1 = Sheets(s).Cells(ara, 3).Value
TextBox2 = Sheets(s).Cells(ara, 4).Value
TextBox3 = Sheets(s).Cells(ara, 5).Value
TextBox4 = Sheets(s).Cells(ara, 6).Value
TextBox5 = Sheets(s).Cells(ara, 7).Value
End If
Next ara
Next s
End Sub[/vb:1:5265ccbaee]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.