tesekkür ederim..
dee..
bisey daha sorabilir miyim??
ya durum su..
Sub CommandButton1_Click()
Dim DoluSay As Integer
DoluSay = WorksheetFunction.CountA([B8:B1500]) + 8
If TextBox1 = "" Then
MsgBox "TC KİMLİK NO TEXTBOX BOÃ OLAMAZ!! 11 HANELİ TC KİMLİK NOSUNU GİRMELİSİNİZ!!"
Private Sub CommandButton5_Click()
UserForm1.Hide
End Sub
Private Sub CommandButton6_Click()
Sheets("ek1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("sayfa1").Select
End Sub
Private Sub CommandButton7_Click()
Sheets("ek3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("sayfa1").Select
End Sub
Private Sub CommandButton8_Click()
Sheets("ek20").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("sayfa1").Select
End Sub
Private Sub CommandButton9_Click()
Sheets("1").Select
Range("A1").Select
End Sub
böyle bir sey var.. ve ben her "kaydet" dedigimde bir sonraki sat1ra kaydediyo.. ben buna bir de onay kutusu (checkbox) eklemek istiyoru.. ve bu onay kutusu her seferinde bir sonraki sat1ra "evet" ya da "hay1r" yazs1n.. ama bi türlü yapamad1m..
yard1mlar1n1z için _imdiden te_ekkürlerrr..
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.