Giriş sayfasındaki verileri kayıt sayfasındaki boş satıra ekleme

[abdullahgul42]

Arkadaşlar Merhaba;

Giriş sayfasına eklemiş olduğum bilgileri kaydet-çık butonuna bastığım zaman kayıt sayfasındaki boş sıradaki satıra bilgileri kaydetmesini istiyorum.

Bunlarla ilgi formülleri ve kodlamaları atabilirse sevinirim.

Tablomun genel taslağını oluşturdum ancak bu iki problemi çözmedim. Taslağa için aşağıdaki bağlantıdan ulaşabilirsiniz.
https://yadi.sk/i/vKNxoCatoB8AW

Bana yardım ederseniz sevinirim.

 

[PLİNT]

Merhaba
Ek dosyayı inceleyin,
Esas dosyanızda da "Kayıt" sayfası "B" sütununu tarih olarak formatlarsınız.
http://s6.dosya.tc/server5/9c7k0n/TASIT_GOREV_EMRI_2.zip.html

Private Sub CommandButton1_Click()
Set s1 = Sheets("KAYIT")
a = s1.Cells(Rows.Count, "A").End(3).Row + 1
b = Array("B3", "B5", "B7", "B13", "B9", "B11", "B15", "B16", _
          "F3", "F5", "F7", "F13", "F9", "F11", "F15", "F16")
          
c = Array("B", "C", "D", "E", "F", "G", "H", "I", _
          "K", "L", "M", "N", "O", "P", "Q", "R")
s1.Cells(a, 1) = a - 4
s1.Cells(a, 10) = a - 4
For d = 0 To UBound(b)
s1.Range(c(d) & a) = Range(b(d))
Next
 ActiveWorkbook.Save
 Application.Quit
 ActiveWorkbook.Close
End Sub

 

[abdullahgul42]

Teşekkürler

Tam istediğim gibi oldu. Çok teşekkür ederim ilgin için. Allah razı olsun.