kopyalamada tek eksiklik

[dost-el]

sayfa 1 den sayfa 2 ye yok yazılanlar kopyalanıyor ancak her seferinde aynı yere bir önceki verileri silerek kopyalıyor ihtiyacım olan bir önce kayıtları silmeden devamına kopyalaması

 

[YUSUF44]

Şöyle kullanın:

Sub kod()
    Application.ScreenUpdating = False
    Dim S1 As Worksheet
    Dim S2 As Worksheet
    Set S1 = Sheets(" Yoklama")
    Set S2 = Sheets("Yok Listesi")
    If S2.[a2] = "" Then
    sat = 2
    Else
    sat = S2.Cells(Rows.Count, 1).End(3).Row + 1
    End If
    sec = Selection.Address(0, 0)

    
    For i = 5 To 20 Step 5
        For a = 3 To S1.Cells(Rows.Count, 1).End(3).Row
            If S1.Cells(a, i) = "Yok" Then
                S2.Cells(sat, "A") = CDate(S1.Range("Y3") & "." & S1.Range("Z3") & ".2014")
                
                S1.Cells(a, i - 3).Select
                S2.Cells(sat, "B") = S1.Cells(Selection.Row, i - 3)
                S2.Cells(sat, "C") = S1.Cells(a, i - 2)
                S2.Cells(sat, "D") = S1.Cells(a, i - 1)
                sat = sat + 1
            End If
        Next a
    Next i
    
    S1.Range(sec).Select
    Application.ScreenUpdating = True
    
 
        MsgBox " B i t t i "
  
    
End Sub

Bir de dosyayı bu kadar renkli yapmanız bana hiç güzel görünmedi nedense, sade tasarımlar daha güzel görünüyor.