textbox tan hüreye geçiş

[akd44]

SAYIN ARKADAŞLAR
FORM DÜĞMESİNE TIKLAYINCA
USER FORM AÇILIYOR
TARİH
CİNSİ
BRİM
FİYAT
ÖDEME
MESALA BEN ÖDEME ALDIĞIM ZAMAN
TEXTBOX5 E YAZIYORUM
KAYDET TUŞUNA BASIYORUM
TEXT KUTULARINDAKİ HEPSİ YERİNE GİDİYOR
ANCAK TUTARDA DEGER YAZIYOR YARDICI OLURSANIZ
SEVİNİRİM :???:

dosya ektedir

 

[Ferhat Pazarçevirdi]

Sayfa1'de; "Brim" yazan (C) sütuna numerik olmayan bir değer girerseniz, F sütunu #DEĞER# hatası verir. Çünkü F sütunundaki formül =C*D şeklinde...

Ya formülünüzü revize edin. Ya da Brim yazan alana hep numerik değer girin.

 

[akd44]

sn:fpc

Sayfa1'de; "Brim" yazan (C) sütuna numerik olmayan bir değer girerseniz, F sütunu #DEĞER# hatası verir. Çünkü F sütunundaki formül =C*D şeklinde...

Ya formülünüzü revize edin. Ya da Brim yazan alana hep numerik değer girin.

ben zaten text kutusuna değer girmiyorum boş olarak kaydet diyiyorum mesala ben ödemeyle satışı ayrı yazdıgım zaman oluyor


Private Sub CommandButton1_Click()
[a65536].End(3).Offset(1) = Me.TextBox1.value
[B65536].End(3).Offset(1) = Me.TextBox2.Value
[C65536].End(3).Offset(1) = Me.TextBox3.Value
[D65536].End(3).Offset(1) = Me.TextBox4.Value
[E65536].End(3).Offset(1) = Me.TextBox5.Value



[AKIL!a65536].End(3).Offset(1) = Me.TextBox1.Value
[AKIL!B65536].End(3).Offset(1) = Me.TextBox2.Value
[AKIL!C65536].End(3).Offset(1) = Me.TextBox3.Value
[AKIL!D65536].End(3).Offset(1) = Me.TextBox4.Value



Me.TextBox1 = Empty
Me.TextBox2 = Empty
Me.TextBox3 = Empty
Me.TextBox4 = Empty
Me.TextBox5 = Empty




End Sub



bu şekilde olduğu zamanda text kutularına yazdığımı boş olan hürelere yazıyor

 

[Mahmut Kök]

Metin kutuları (Textbox), adı üstünde, verileri metin olarak algılar. Rakamları, *1 ifadesiyle sayıya dönüştürebilirsiniz. Bir diğer husus, sayfada formül kullanmak yerine, formüllerin yaptığı işlevleri de kodlarla yaparsanız, sorunlarla karşılaşma olasılığınız azalacaktır. İyi çalışmalar dilerim.

Private Sub CommandButton1_Click()
satır=[a65536].End(3).row
cells(satır,"a").Offset(1) = Me.TextBox1
cells(satır,"b").Offset(1) = Me.TextBox2
If Me.TextBox3 <> Empty Then
cells(sat&#305;r,"c").Offset(1) = Me.TextBox3 * 1
End If
If Me.TextBox4 <> Empty Then
cells(sat&#305;r,"d").Offset(1) = Me.TextBox4 * 1
End If
If Me.TextBox5 <> Empty Then
cells(sat&#305;r,"e").Offset(1) = Me.TextBox5 * 1
End If
 
[U]'a&#351;a&#287;&#305;daki sat&#305;rlara da e&#287;er (if) komutunu eklemek gerekir.[/U]
[AKIL!a65536].End(3).Offset(1) = Me.TextBox1
[AKIL!B65536].End(3).Offset(1) = Me.TextBox2
[AKIL!C65536].End(3).Offset(1) = Me.TextBox3
[AKIL!D65536].End(3).Offset(1) = Me.TextBox4
 
Me.TextBox1 = Empty
Me.TextBox2 = Empty
Me.TextBox3 = Empty
Me.TextBox4 = Empty
Me.TextBox5 = Empty
 
End Sub