Combobox tan seçime göre veri aktarımı

[DeliBalta58]

Arkadaşlar Kolay gelsin.

Sayfa1 de verilerim var. Bir form üzerine combobox yerleştirdim ve burdan yaptığım seçime göre N sütunundaki veri ile karşılaştırıp, eğer aynı veri ise o satırın tümünü sayfa 2 ye ssıra ile kopyalanmasını istiyorum.

kodları yazdım ancak secim yapmadan tümünü kopyalıyor. Nerde hata yaptığımı bir türlü bulamadım. Yardımlarınızı bekliyorum. Teşekkürler

Sheets("Sayfa1").Select 'Sayfa1'i Seç
Application.ScreenUpdating = False
For x = 2 To [N65536].End(3).Row      'N sütununda Dolu Hücreleri Seç
If Sheets("sayfa1").Cells(x, 14) = ComboBox1.Text Then ' Sayfa1 N sütunu ComboBox1 ile aynı ise
Set syf = Sheets("Sayfa2")  
Range("a" & x & ":" & "z" & x).Copy    
sira = syf.[a65536].End(3).Row + 1
syf.Cells(sira, 1).PasteSpecial
syf.Cells(sira, 1) = sira - 1
atla:
Next

 

[sbayyigit]

kodlarını şu şekilde denedim sorun vermedi.
sanırım verdiğin kodlardan değil de başka bir yerde hata yapıyorsun


Sub deneme()
Sheets("Sayfa1").Select 'Sayfa1'i Seç
Application.ScreenUpdating = False
For x = 2 To [N65536].End(3).Row 'N sütununda Dolu Hücreleri Seç
If Sheets("sayfa1").Cells(x, 14) = "ali" Then ' Sayfa1 N sütunu ComboBox1 ile aynı ise
Set syf = Sheets("Sayfa2")
Range("a" & x & ":" & "z" & x).Copy
sira = syf.[a65536].End(3).Row + 1
syf.Cells(sira, 1).PasteSpecial
syf.Cells(sira, 1) = sira - 1
atla:
End If
Next
End Sub

 

[DeliBalta58]

Teşekkürler