basit gelir gider exceli

[sb1987]

basit bi gelir gider exceli yaptım
excel sayfasına veri girilince
listboxa veriler gelmiyor
kapatıp tekrar açınca veriler geliyor

bunun listboxu yınele kodu yazdım oda calısmadı
musaıt hocalarım varsa

[karisma61]

Kod: Tümünü seç

Private Sub CommandButton2_Click()
Ufkayit.Caption = "YENİ KAYIT FORM"
Ufkayit.txtİslemNu.Value = "ISL.0" & Sheets("AYAR").Range("a2").Value + 1
Ufkayit.lblİslem.Caption = "KAYDET"
Ufkayit.Show
gelirgider     
End Sub

[sb1987]

Çalışmadı hocam

[SNNAY]

Unload Anaform ve Anaform.Show eklendi. Güncelleme Çalışıyor.

Kod: Tümünü seç

Private Sub CommandButton1_Click()

If cbİslemGirisCikis.Value = "" Or txtAciklama.Value = "" Or txtİslemTarihi.Value = "" Or txtİslemTutari.Value = "" Then
    MsgBox "EKSİK BİLGİLERİ DOLDURUNUZ!!!", vbCritical, "BOŞ ALAN UYARISI"
   Exit Sub
End If
    
If lblİslem.Caption = "KAYDET" Then
    Kaydet
End If
If lblİslem.Caption = "GUNCELLE" Then
    Guncelle
End If
Unload Anaform
Anaform.Show
End Sub

[sb1987]

Teşekkürler hocam