Günü Geçmiş Tarihleri Başka Sayfaya Aktar

[enes2000eren]

Selam.Arkadaşlar elimdeki tabloda bir sürü tarih ve bu tarihleri ifade eden veriler var.Ben bu verilerden benim istediğim tarihten sonrakileri
(Yani K sütununda değeri 2 olanları)bir başka sayfaya aktarmak istiyorum.Yani o satırı başka bir sayfaya aynen aktarırken eski sayfadan da o satırın silinmesini ve aktarılan sayfadan da en son verinin altına aktarılamsını istiyorum.Dosyada daha net bir açıklama var.İncelerseniz sevinirim.tşk.

 

[Orion1]

Dosyanız ektedir.

Sub aktar()
Dim i As Long, sat As Long, son As Long
Sheets("1").Select
Application.ScreenUpdating = False
With Sheets("2")
    sat = .Cells(65536, "A").End(xlUp).Row + 1
    son = Cells(65536, "A").End(xlUp).Row
    For i = son To 2 Step -1
        If Cells(i, "K").Value = 2 Then
            If sat >= 65533 Then
                MsgBox "Sayfa2 de Satır doldu.Kayıtların tamamı aktarılmadı.", vbCritical, "UYARI"
                Application.ScreenUpdating = True
                Exit Sub
            End If
            .Range("A" & sat & ":K" & sat).Value = Range("A" & i & ":K" & i).Value
            Rows(i).Delete
            sat = sat + 1
        End If
    Next i
    .Range("A2:K65536").Sort .Range("A2")
End With
Application.ScreenUpdating = True
MsgBox "Aktarma Başarı ile yapıldı" & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub

 

[enes2000eren]

Tşk.evren bey.ellerinize sağlık.

 

[Orion1]

Tşk.evren bey.ellerinize sağlık.

Rica ederim.
İyi çalışmalar.