-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
TEST Dosya Yükleme
- Konbuyu başlatan aytekin44
- Başlangıç tarihi
- Katılım
- 12 Nisan 2014
- Mesajlar
- 72
- Excel Vers. ve Dili
- Microsoft 365 Enterprise En 64 Bit
Kod:
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""