userformda girilen degerleri bos satıra yazdırma

[hypnose]

merhaba arkadaslar
ektekı lıstede kı userformda gırdıgım degerlerı ılgılı hucrelere atsın ıstıyorum.
Yalnız sorunum su kı bellı bır sayfada calısmıyorum
her acılan yenı sayfaya gore kod yazımı gerekıyor
beceremedım

sayfa ıcındede anlatım yaptım




yardımcı olursanız sevınrım tesekkurler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod bloğunu kullanabilirsiniz. Sayfa adı belirtmediğimiz için o an hangi sayfa aktifse o sayfadaki ilk boş satıra kayıt yapar.

Private Sub CommandButton1_Click()
    Satır = IIf([A65536].End(3).Row = 2, [A65536].End(3).Row + 2, [A65536].End(3).Row + 1)
    Cells(Satır, 1) = Format(TextBox1, "dd.mm.yyyy")
    Cells(Satır, 4) = TextBox2
    Cells(Satır, 6) = TextBox4
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub