Excellde veri girişi

[qpiell]

Merhaba arkadaşlar,

Ekteki dosyada yapmak istediğim otomatik not girişi butonuna bastığımda açılan pencerede gerekli veriler girildiğinde excellde b2 sutunundan baslayarak girdiğim verileri yazması.

örnek dosyalarla devşirme bir şeyler yapmaya çalıştım ama pek olmadı.

Yardımcı olursanız çok sevinirim. Şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Giriş Yap butonu için kodlar.

Private Sub CommandButton1_Click()
Dim i As Byte, sat

For i = 1 To 11
If Controls("TextBox" & i) = "" Then
MsgBox "Boş Bırakamazsınız", vbCritical
Controls("TextBox" & i).SetFocus
Exit Sub
End If
Next i

sat = [B65536].End(3).Row + 1
Cells(sat, "B") = TextBox1.Text
Cells(sat, "C") = TextBox2.Text
Cells(sat, "D") = TextBox3.Text
Cells(sat, "E") = TextBox4.Text
Cells(sat, "F") = CDate(TextBox5.Text)
Cells(sat, "G") = CDate(TextBox7.Text)
Cells(sat, "H") = CDate(TextBox6.Text)
Cells(sat, "I") = TextBox8.Text
Cells(sat, "J") = TextBox9.Text
Cells(sat, "K") = TextBox10.Text
Cells(sat, "L") = CDate(TextBox11.Text)

For i = 1 To 11
Controls("TextBox" & i) = ""
Next i

Unload Me [COLOR="DarkGreen"]' işlem bitince formu kapatır[/COLOR]

End Sub

. . .