Sayfalardan Userforma Veri Alma

[memduh]

Ekteki dosyayı incelersenir memnun olurum.Saygılar.




Excel 2003 Türkçe

 

[danersin]

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]