Sil veya arşive aktar

Kodlara giriş şifreli

2233

1. sorunuzla ilgili olarak,
Commandbutton4 için aşağıdaki kodu deneyin.
2. sorunuzu anlamadım.
3. sorunuza bakamadım.

2. Sorunuzla ilgili olarak
frmMusteriKaydet userformundaki btnkaydet butonuna aşağıdaki kodu deneyiniz.

3. Sorunuzla ilgili olarak
frmHareketler userformundaki önizle-yazdır butonuna aşağıdaki kodu deneyiniz.

Enis80' Alıntı:

yıldız müşterisi6.xlsm indir, download. Ekteki dosyada bulunan sil veya arşive aktar buton kodlarını çalıştıramadim. Yardımcı olabilir misiniz?

Genişletmek için tıklayın ...

Dosyanız anlamadığım bir sebepten dolayı CPU'nun ısısını çok yükseltiyor.

#5 nolu gönderideki kodda ufak bir düzeltme yaptım.

2.soru yani 5 nolu gönderi ile sorun düzelmedi.
(Müşterileri listeden seçinde hareketleri sonucunda alacak ve borçlar gözüküyor. Bazı müşterilerde hareket olmadığı için alacak ve borç sıfır gözükmesi lazım iken önceki hesaplardaki rakamlar halen kalıyor.)

Bende sorun olmadı.

ilginç bendeki dosyada olmuyor sizin gönderdiğiniz dosyada oluyor teşekkürler. ellerinize sağlık. 3 sorunda çözüldü.

Enis80' Alıntı:

yıldız müşterisi6.xlsm indir, download. Ekteki dosyada bulunan sil veya arşive aktar buton kodlarını çalıştıramadim. Yardımcı olabilir misiniz?

Genişletmek için tıklayın ...

Dilerseniz initialize kodunu aşağıdaki gibi revize edebilirsiniz.

Private Sub UserForm_Initialize()
Dim sonsat As Long

Set h = ThisWorkbook.Sheets("MUSTERI")
sonsat = h.Cells(Rows.Count, 2).End(3).Row
'MsgBox sonsat
ComboBox2.RowSource = "MUSTERI!B2:B" & sonsat

MusterileriListele
DETAYGOSTER
DETAYLiSTELE

End Sub