TextBox'ta veri varsa kod istenilen yerden devam etsin.

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; aşağıdaki kodla işlemi gayet güzel yapıyorum. Kod:

Private Sub CommandButton2_Click()

BURAYA TextBox12 dolu ise yani veri varsa kod 1296 olan yerden devam etsin istiyorum.

Dim Berra
Berra = MsgBox("TAHAKKUK BELGESİNE EKLENECEK VERİ" & vbCrLf & vbCrLf _
& "PERSONEL İSE . . . : EVET : . . ." & vbCrLf & "FİRMA İSE . . . : HAYIR : . . .", vbYesNo + vbDefaultButton2, "LÜTFEN DİKKAT")
If Berra = vbNo Then GoTo 1295

CheckBox1 = True
If CheckBox1 = True Then
MsgBox "PERSONELİN SİCİLİNİ YADA SOYADINI GİRİNİZ.", vbCritical, "PERSONEL GETİR"
Exit Sub
End If

1295:
1296:

If UserForm1.TextBox43.Value = "" Then
MsgBox "Tahakkuka; TOPLAMI BÜTÇE GİDERİNİ Boş Geçemez siniz?", vbCritical, "UYARI"
Exit Sub
End If
If UserForm1.TextBox20.Value = "" Then
MsgBox "TAHAKKUK İŞLEM NO Boş Geçemez siniz?", vbCritical, "UYARI"
Exit Sub
End If

'
'
'
'
'
'
End Sub

Burada amacım CheckBox1 tuşunu aktif ederek TextBox12 ye veri yazmak daha sonra burada veri varsa 1296 ile gösterdiğim yerden devam etsin istiyorum. teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

If TextBox12 <> "" Then Goto 1296

 

[Hacı Bayram ÖZKAN]

Teşekkürler abim sabah denerim inşallah

 

[Hacı Bayram ÖZKAN]

Sayın abim eline sağlık çok güzel, bir isteğim daha olsa aynı dosyamda iki tane TextBox43 ve TextBox19 um var, TextBox19a yazmış olduğum her sayıyı miktarı, (12,23) bunu TextBox43 yazmasını, ve ikinci kez TextBox19 a yazmış olduğum (10,02) gibi rakamları TextBox43 te toplamasını istiyorum. Yani sonuç 22,25 bunun için ben aşağıdaki kodu kullandım olmadı nasıl düzeltirim.

Private Sub CommandButton2_Click()
TextBox43.Value = Format(TextBox43.Value + TextBox19.Value, "#,##0.00")
End Sub

Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Kendinize uyarlarsınız.

Private Sub CommandButton1_Click()
    TextBox1 = Format(CDbl(Replace(IIf(TextBox1 = "", 0, TextBox1), ".", ",")) + CDbl(TextBox2), "#,##0.00")
End Sub

 

[Hacı Bayram ÖZKAN]

Teşekkürler sayın abim çok hoş oldu eline sağlık iyi akşamlar.