Telefon Defteri

[NOKİ69]

Private Sub tel_kaydet_Click()
dosya aşağıda kırmızı olan alanda hata veriyor ne yapmalıyım yardımlarınızı bekliyorum


tel_kaydet.Enabled = False
Sheets("veri").Select
sonsat = [a65536].End(3).Row + 1Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 4) = TextBox3
Cells(sonsat, 5) = TextBox4
Cells(sonsat, 6) = TextBox15
Cells(sonsat, 7) = TextBox6
Cells(sonsat, 8) = TextBox7
Cells(sonsat, 9) = TextBox8
Cells(sonsat, 10) = TextBox9
Cells(sonsat, 11) = TextBox10
Cells(sonsat, 12) = TextBox11
Cells(sonsat, 13) = TextBox12
Cells(sonsat, 14) = TextBox13
Cells(sonsat, 15) = TextBox14
MsgBox "kayıt edildi"
Unload Me
REHBER.Show
End Sub

 

[mancubus]

sorun çıkmadı.

ne hatası veriyor....

 

[engobe]

eline sağlık, güzel bi ğrp

 

[nsertoglu]

sonsat = [a65536].End(3).Row + 1Cells(sonsat, 1) = sonsat - 1

satırı aslında 2 ayrı satır olmalı;
1nci satır : sonsat = [a65536].End(3).Row + 1
2nci satır : Cells(sonsat, 1) = sonsat - 1

ne dersiniz...

 

[mancubus]

sonsat = [a65536].End(3).Row + 1Cells(sonsat, 1) = sonsat - 1

satırı aslında 2 ayrı satır olmalı;
1nci satır : sonsat = [a65536].End(3).Row + 1
2nci satır : Cells(sonsat, 1) = sonsat - 1

ne dersiniz...

dosyadaki kodda öyle zaten.
burada yanlış çıkmış.

 

[hsntetik]

hatayı çözdüm userform üzerindeki saati kaldırınca hata mesajı vermiyor saati silmeniz gerekli "EVRAK İŞLEM DURUMU" ve "EVRAKIN GELDİĞİ YER" ve EVRAKIN GÖNDERİLDİĞİ YAR yazılı alanlara nasıl açılır liste yapabilirim.

örnek

evrak işlem durumunu açılır listeden seçecem

okulu seçecem

gönderildiği yeri seçecem

ustalardan yarıdımlarını bekliyorum herkese teşekkürler