Fatura Yardım

[programer]

Selam arkadaşlar foruma yeni katıldım. Þirkette Fatura basımı için excel de bi sayfa hazırladım. Benim yapmak istediğim yeni firma eklerken kolaylık olsun diye bi form hazırladım. Bu forma girdiğim bilgileri veri sayfasına nasıl yazdırırım. Bana yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Userform üzerindeki kaydet butonuna aşağıdaki kodu yazın. Ayrıca kodların en başında bulunan "Option Explicit" satırınıda silin.

[vb:1:46641f257b]Private Sub CommandButton1_Click()
say = WorksheetFunction.CountA(Sheets("VERİ").[a2:a65536])
For a = 1 To 6
Sheets("VERİ").Cells(say + 2, a) = Controls("textbox" & a).Value
Next
MsgBox "VERİLER KAYDEDİLDİ"
End Sub[/vb:1:46641f257b]