Veri aktar+temizle+son satıra boş satıra devam et

[cenkatli]

Herkese merhaba,

Örnek dosyamda da anlatmaya çalıştığım şekilde;

Örnek dosyamda oluşturduğum "VERİ AKTAR" BUTON U YARDIMI İLE, HARFLERLE BELİRTTİĞİM HÜCRELERDEKİ VERİLERİ "VERİ SAYFASINA" AKTARMAK İSTİYORUM. İLK SUTUNA TARİHİ, İKİNCİ STUNA VARDİYA NUMARASINI VE BU SAYFADA "A" HARFİNİN KARŞILIĞI GELEN VERİYİ "VERİ" SAYFASINDA A STUNUNUN ALTINA VE DİĞER VERİLERİDE AYNI ŞEKİLDE SIRALAMASINI İSTİYORUM.
AKTARMA İŞLEMİ YAPILDIKTAN SONRA FORM SAYFASI TEMİZLENMELİ VE BAŞKA TARİHLİ FORM BİLGİLERİ GİRİLMEYE MÜSAİT OLMALI. YENİ FORM BİLGİLERİ GİRİLDİĞİNDE VERİ SAYFASINDA EN SON BOŞ OLAN SATIRDAN VERİLERİN GİRİŞİ DEVAM ETMELİ.
BUNA BENZER Bİ ÇOK ÇALIŞMA İNCELEDİYSEMDE İÇİNDEN ÇIKAMADIM VE DENEMELERİM HEP YARIM KALDI. 1 YADA 2 VERİRİNİN DAHİ NASIL AKTARILACAĞI HAKKINDA MAKRO BİLGİSİ VEREBİLİRSENİZ ÇOK MİNNETTAR KALACAĞIM
İYİ ÇALIŞMALAR VE ŞİMDİDEN TEŞEKKÜRLER

 

[Orion1]

Dosyanız ektedir.

Sub aktar()
Dim sat As Long, sh As Worksheet, k As Byte
Sheets("FORM SAYFASI").Select
Set sh = Sheets("VERİ SAYFASI")
sat = sh.Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65533 Then
    MsgBox "Sayfada satır doldu.Kayıt girilmedi.", vbCritical, "UYARI"
    Exit Sub
End If
sh.Cells(sat, "A").Value = Range("O1").Value
sh.Cells(sat, "A").NumberFormat = "dd.mm.yyyy"
sh.Cells(sat, "B").Value = Range("O2").Value
For k = 3 To 8
    sh.Cells(sat, k).Value = Cells(k + 6, "C").Value
Next
sh.Cells(sat, "I").Value = Cells(9, "E").Value
Range("C9:C14,E9").ClearContents
MsgBox "Veriler VERİ SAYFASINA KAYDEDİLDİ" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[cenkatli]

evren bey elinize sağlık, teşekkür ederim

 

[Orion1]

evren bey elinize sağlık, teşekkür ederim

Rica ederim.
İyi çalışmalar.