herkese iyi günler,
veri sayfasından liste sayfasına süzme yaptırarak veri alan aşağıdaki kodlarda bir sorun yok.ama veri sayfasından sınıf sayfasına aynı işlemi yaptırmak istediğim 2.kodlarda Selection.End(x1ToRight).Select kısmında "application.defined or object-defined error" hatası veriyor.o kadar inceledim bulamadım,neresi gözümden kaçıyor,hata kodunun anlamı nedir?öğrenmek istiyorum . yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
1-Private Sub ComboBox1_Change()
Worksheets("liste").Select
Cells.ClearContents
Worksheets("veri").Select
[a1].Select
Selection.AutoFilter
Selection.End(xlToRight).Select
Selection.AutoFilter field:=5, Criteria1:=ComboBox1.Value
Range("a1:Y1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("liste").Select
Range("a1").Select
ActiveSheet.Paste
Range("a2").Select
Worksheets("veri").Select
Range("A1").Select
Selection.AutoFilter
Worksheets("liste").Select
End Sub
2-Private Sub ComboBox2_Change()
Worksheets("sınıf").Select
Cells.ClearContents
Worksheets("veri").Select
[a1].Select
Selection.AutoFilter
Selection.End(x1ToRight).Select
Selection.AutoFilter field:=5, Criteria1:=ComboBox2.Value
Range("a1:g1").Select
Range(Selection, Selection.End(x1Down)).Select
Selection.Copy
Worksheets("sınıf").Select
Range("a1").Select
ActiveSheet.Paste
Range("a2").Select
Worksheets("veri").Select
Range("a1").Select
Selection.AutoFilter
Worksheets("sınıf").Select
End Sub
veri sayfasından liste sayfasına süzme yaptırarak veri alan aşağıdaki kodlarda bir sorun yok.ama veri sayfasından sınıf sayfasına aynı işlemi yaptırmak istediğim 2.kodlarda Selection.End(x1ToRight).Select kısmında "application.defined or object-defined error" hatası veriyor.o kadar inceledim bulamadım,neresi gözümden kaçıyor,hata kodunun anlamı nedir?öğrenmek istiyorum . yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
1-Private Sub ComboBox1_Change()
Worksheets("liste").Select
Cells.ClearContents
Worksheets("veri").Select
[a1].Select
Selection.AutoFilter
Selection.End(xlToRight).Select
Selection.AutoFilter field:=5, Criteria1:=ComboBox1.Value
Range("a1:Y1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("liste").Select
Range("a1").Select
ActiveSheet.Paste
Range("a2").Select
Worksheets("veri").Select
Range("A1").Select
Selection.AutoFilter
Worksheets("liste").Select
End Sub
2-Private Sub ComboBox2_Change()
Worksheets("sınıf").Select
Cells.ClearContents
Worksheets("veri").Select
[a1].Select
Selection.AutoFilter
Selection.End(x1ToRight).Select
Selection.AutoFilter field:=5, Criteria1:=ComboBox2.Value
Range("a1:g1").Select
Range(Selection, Selection.End(x1Down)).Select
Selection.Copy
Worksheets("sınıf").Select
Range("a1").Select
ActiveSheet.Paste
Range("a2").Select
Worksheets("veri").Select
Range("a1").Select
Selection.AutoFilter
Worksheets("sınıf").Select
End Sub