Şarta bağlı veri çekme

[hamza02]

Değerli arkadaşlar aşağıdaki kod çalışmıyor yardım edermisiniz

son = Range("x4").End(xlDown).Row
For i = 4 To son
If Cells(i, "X") = "Hayır" Then
Sayfa1.Range("a" & i & ": w" & i).Copy
Sayfa2.Range("a4").End(xlDown).Offset(1, 0).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End If
Next

 

[YUSUF44]

Sayfa2'nin A4 hücresi halihazırda son dolu hücre ise End(xldown) işlemi imleci son/en alt hücreye taşır, bu hücrenin altında başka hücre olmadığından offset(1,0) işlemi yapılamaz ve hata verir.

Sayfa2.Range("a" & rows.count).End(3).Offset(1, 0).PasteSpecial xlPasteAll

şeklinde deneyin.

son değişkeni için de aşağıdaki gibi daha uygun olur:

son = Range("x" & rows.count).End(3).Row

 

[ÖmerFaruk]

Sayfa1.Range("A" & i, "W" & i).Copy

 

[hamza02]

Değerli YUSUF44 ve ÖmerFaruk hocalarım ilgi ve yardımlarınız için çok teşekkür ederim
sayfa2 ikinci satırda başlıyor verileri yazmaya birinci hücreden neden yazmıyor, nereyi nasıl değiştirmeliyim


Private Sub CommandButton1_Click()

son = Range("x" & Rows.Count).End(3).Row

For i = 1 To son
If Cells(i, "X") = "Hayır" Then
Sayfa1.Range("a" & i).Copy
Sayfa2.Range("a" & Rows.Count).End(3).Offset(1, 0).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End If
Next


End Sub

 

[YUSUF44]

Private Sub CommandButton1_Click()
son = Range("x" & Rows.Count).End(3).Row
a=1
For i = 1 To son
    If Cells(i, "X") = "Hayır" Then
        Sayfa1.Range("A" & i).Copy Sayfa2.Range("A" & a)
        a = a+1
    End If
Next
Application.CutCopyMode = False
End Sub

Şeklinde deneyin. Verinin tamamını yapıştırdığınız için kodları biraz sadeleştirdim.