Sayfalardan veri süzme

[buseen]

Selam c hücresine yazdıgım isim sayfasındaki verileri getirmek istiyorum.

 

[buseen]

C hücresine combobox la sayfa isimleri konabilir mi

 

[fedeal]

dosyanız ekte iyi çalışmalar.

 

[buseen]

Teşekkürler.saol

 

[buseen]

Private Sub ComboBox1_Change()
If ComboBox1.Text = "" Then Exit Sub
Range("A7:J65000").ClearContents
Set sf = Sheets(ComboBox1.Text) 'hata veren satır.
For i = 2 To sf.[a65536].End(xlUp).Row
son = [a65536].End(xlUp).Row + 1
For k = 1 To 10
Cells(son, k).Value = sf.Cells(i, k).Value
Next
Next
End Sub

 

[fedeal]

sayfa ismini elle girmeye çalışmayın sayfa isimlerini kendi alıyor kodu activate olayına yazmıştım clik olayınada ekleyip dosyayı güncelledim.yazdıgınız isimli sayfa yoksa hata vermesi kaçınılmaz dilerseniz elle verigirişini engelleriz.comboboxun change olayında oldugu için kodlar 1 harf bile yazsanız o harfin adında sayfa yoksa hata verecektir.

 

[buseen]

Yok hocam aramam kolay olsun diye 175 adet isim sayfa sı olacak o yüzden
SAYFA İSİMLERİNİ ARAMAM KOLAY OLSUN

 

[fedeal]

ozaman kodu alttakiyle değiştirin,

Private Sub ComboBox1_Change()
If ComboBox1.Text = "" Then Exit Sub
Range("A7:J65000").ClearContents
On Error Resume Next
Set sf = Sheets(ComboBox1.Text)
For i = 2 To sf.[a65536].End(xlUp).Row
son = [a65536].End(xlUp).Row + 1
For k = 1 To 10
Cells(son, k).Value = sf.Cells(i, k).Value
Next
Next
End Sub

 

[buseen]

Teşekkürler