- Katılım
- 19 Ocak 2005
- Mesajlar
- 940
- Excel Vers. ve Dili
-
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar merhaba;
Private Sub CommandButton1_Click()
Unload Me
sonsat = Sheets("GÜNDÜZ").Cells(65536, 5).End(xlUp).Row + 1
Sheets("GÜNDÜZ").Cells(sonsat, 2) = TextBox111.Value
Sheets("GÜNDÜZ").Cells(sonsat, 3) = TextBox112.Value
MsgBox "Kayıt İşlemi Tamamlanmıştır."
Unload Me
UserForm1.Show
End Sub
arkadaşlar bu kodda sürekli aynı satırlara kayıt yapıyo ama alt alta yapması gerek. yardım edermisiniz arkadaşlar.
Private Sub CommandButton1_Click()
Unload Me
sonsat = Sheets("GÜNDÜZ").Cells(65536, 5).End(xlUp).Row + 1
Sheets("GÜNDÜZ").Cells(sonsat, 2) = TextBox111.Value
Sheets("GÜNDÜZ").Cells(sonsat, 3) = TextBox112.Value
MsgBox "Kayıt İşlemi Tamamlanmıştır."
Unload Me
UserForm1.Show
End Sub
arkadaşlar bu kodda sürekli aynı satırlara kayıt yapıyo ama alt alta yapması gerek. yardım edermisiniz arkadaşlar.