DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Rica ederim.Her zamanki gibi süpersiniz
emeğinize sonsuz teşekkürler..
Private Sub CommandButton3_Click()
Dim sat As Long
sat = Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65533 Then
MsgBox "Satır doldu.Başka kayıt yapamazsınız.", vbCritical, "UYARI"
Exit Sub
End If
If TextBox6.Text = "" Then
MsgBox "Textbox6 boş olamaz.Kayıt yapılmadı.", vbCritical, "UYARI"
TextBox6.SetFocus
Exit Sub
End If
Sheets("Sayfa2").Cells(sat, "A").Value = TextBox6.Text
Sheets("Sayfa2").Cells(sat, "B").Value = TextBox7.Text
Sheets("Sayfa2").Cells(sat, "C").Value = TextBox8.Text
Sheets("Sayfa2").Cells(sat, "D").Value = TextBox9.Text
Sheets("Sayfa2").Cells(sat, "E").Value = ComboBox2.Value
Sheets("Sayfa2").Cells(sat, "F").Value = TextBox10.Text
End Sub
Rica ederim.6. Mesajda veridiğiniz cevap için Teşekkürler Evren bey..