Private Sub CommandButton1_Click()
Dim KayitSayisi As Integer
If TextBox1.Value = "" Then
MsgBox "Adı Soyadı Alanını mutlaka doldurmalısınız", , "Eksik Alan Bulundu"
Exit Sub
End If
Set Sayfa30 = Worksheets("Sayfa30")
KayitSayisi = WorksheetFunction.CountA(Sayfa30.Range("A1:A65536"))
Sayfa30.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
ActiveWorkbook.Save
End Sub
Yukarıdaki kod textboxta girilen veriyi sadece sayfa30 daki A sütununa kaydediyor. makroyla texboxa girilen veriyi hem Sayfa 30 hem de Sayfa31 deki A sütununa kaydetmek mümkünmü.
Dim KayitSayisi As Integer
If TextBox1.Value = "" Then
MsgBox "Adı Soyadı Alanını mutlaka doldurmalısınız", , "Eksik Alan Bulundu"
Exit Sub
End If
Set Sayfa30 = Worksheets("Sayfa30")
KayitSayisi = WorksheetFunction.CountA(Sayfa30.Range("A1:A65536"))
Sayfa30.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
ActiveWorkbook.Save
End Sub
Yukarıdaki kod textboxta girilen veriyi sadece sayfa30 daki A sütununa kaydediyor. makroyla texboxa girilen veriyi hem Sayfa 30 hem de Sayfa31 deki A sütununa kaydetmek mümkünmü.