basit gelir gider exceli

Cevapla
sb1987
Mesajlar: 10
Kayıt: Cmt Ara 23, 2023 9:41 am
Meslek: Muhasebeci
Adınız: ŞEREF
Soyadınız: BAĞ

basit gelir gider exceli

Mesaj gönderen 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
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
karisma61
Mesajlar: 17
Kayıt: Çrş Eki 11, 2023 1:56 pm
Meslek: Memur
Adınız: Ahmet
Soyadınız: KARIŞMA

Re: basit gelir gider exceli

Mesaj gönderen 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
Mesajlar: 10
Kayıt: Cmt Ara 23, 2023 9:41 am
Meslek: Muhasebeci
Adınız: ŞEREF
Soyadınız: BAĞ

Re: basit gelir gider exceli

Mesaj gönderen sb1987 »

Çalışmadı hocam
SNNAY
Mesajlar: 29
Kayıt: Prş Mar 21, 2024 11:31 am
Lokasyon: istanbul
Meslek: Oto Yedek Parça Satış Elemanı
Adınız: Sinan
Soyadınız: Aykaç

Re: basit gelir gider exceli

Mesaj gönderen 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
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
sb1987
Mesajlar: 10
Kayıt: Cmt Ara 23, 2023 9:41 am
Meslek: Muhasebeci
Adınız: ŞEREF
Soyadınız: BAĞ

Re: basit gelir gider exceli

Mesaj gönderen sb1987 »

Teşekkürler hocam
Cevapla