TEST Dosya Yükleme

aytekin44

Altın Üye
Katılım
12 Nisan 2014
Mesajlar
69
Excel Vers. ve Dili
Microsoft 365 Tr-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 = ""
 
Üst