Seçili ID deki Bilgileri Sıradaki İlk Boş Satıra Aktarma

[emograf]

Merhabalar,:hey:
Elimde Öğrenci Kayıt Programı gibi bir çalışma var. Yapmak istediğim tam olarak;
Seçili ID deki belirli sütunlardaki hücreleri Sıradaki İlk Boş Satırda yine aynı hücrelere denk gelecek şekilde kopyalamak istiyorum. Bunu gerçekleştirecek kod veya makro için yardımcı olabilir misiniz?
Örnek çalışmayı ekledim, yardımcı olabilecek arkadaşlar olursa çok sevinirim.

https://drive.google.com/file/d/1Mw75D4n53sG2f1cVPeKbJVmEHxLUNx0Z/view?usp=sharing

 

[PLİNT]

Merhaba
Ek dosyadaki gibi olabilir
http://s7.dosya.tc/server4/oks6re/Kayit_Yenile.zip.html

[SIZE="2"]Sub Dikdörtgen1_Tıklat()
Dim s1 As Worksheet
Dim x As Long, c As Long
If ActiveCell.[COLOR="Blue"]column[/COLOR] <> 2 And ActiveCell.[COLOR="Blue"]row[/COLOR] < 6 And ActiveCell.Offset(0, 2) = "" Then Exit Sub
Set s1 = Sayfa1
x = s1.Cells(Rows.Count, "D").End(3).Row + 1
c = ActiveCell.Row
Range("D" & x & ":F" & x & "," & "I" & x & ":J" & x & "," & "M" & x).Value = _
Range("D" & c & ":F" & c & "," & "I" & c & ":J" & c & "," & "M" & c).Value
End Sub[/SIZE]

 

[Muzaffer Ali]

Merhaba.

http://s7.dosya.tc/server4/nfnr0o/Kayit_Yenile.zip.html

 

[emograf]

Çok teşekkür ederim tam da yapmak istediğim buydu.
:mutlu: