Tabloya Veri Eklemek (veri tabanı oluşturmak)

[hllhll1]

Arkadaşlar merhaba,
sayfa 1'de ki verilerimi buton yardımıyla sayfa 2'de ki tabloma aktarmak istiyorum ayrıntılar ekte gönderiyorum,
İyi Çalışmalar,

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.

Private Sub CommandButton1_Click()
    If ActiveCell <> "" Then
        Sheets("Sayfa2").Range("A" & Rows.Count).End(3)(2) = CDate(ActiveCell)
        MsgBox "Veri aktarıldı..."
    End If
End Sub

Private Sub CommandButton2_Click()
    If TextBox1 <> "" Then
        Sheets("Sayfa2").Range("B" & Rows.Count).End(3)(2) = TextBox1
        MsgBox "Veri aktarıldı..."
    End If
End Sub

 

[hllhll1]

Teşekkür ediyorum sayın "Korhan Ayhan".