Yeni sayfaya satır taşımak

[osmanak]

ekli excel dosyamda iş listesini tutuyorum. devam eden sayfasında işlerin listesi var tamamlanma sütununda bitti yazan satırları ikinci sayfaya (tamamlanan sayfası) taşıyacak yani ilk sayfada olmayacak ve tarih hücresinede o günün tarihi dolacak şekilde işlem yaptırabilirmiyiz?

 

[leumruk]

Merhaba,
Aşağıdaki örneği inceleyiniz:

Sub Aktar()
Application.ScreenUpdating = False
Set t = Sheets("TAMAMLANAN")
For x = [a65536].End(3).Row To 2 Step -1
If Cells(x, "g") = "BİTTİ" Then
Sat = t.[b65536].End(3).Row + 1
Range(Cells(x, "b"), Cells(x, "g")).Cut t.Cells(Sat, "b")
Range(Cells(x, "a"), Cells(x, "g")).Delete Shift:=xlUp
t.Cells(Sat, "h") = Date
t.Cells(Sat, "a") = Sat - 1
End If
Next
For y = 2 To [a65536].End(3).Row
Cells(y, "a") = y - 1
Next
End Sub

 

[osmanak]

çok teşekkürler

 

[leumruk]

çok teşekkürler

Rica ederim.