Müşteri Dosyasında Silme ve Arşivleme Butonlarını Çalıştırma

[Enis80]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

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?

 

[leguminosea]

Kodlara giriş şifreli

 

[Enis80]

2233

 

[leguminosea]

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

Bu kodu görmek için giriş yapmanız gerekmektedir (25 satır). Giriş Yap

 

[leguminosea]

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

Bu kodu görmek için giriş yapmanız gerekmektedir (20 satır). Giriş Yap

 

[leguminosea]

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

Bu kodu görmek için giriş yapmanız gerekmektedir (22 satır). Giriş Yap

 

[MESKO]

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?

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

 

[leguminosea]

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

 

[Enis80]

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.)

 

[leguminosea]

Bende sorun olmadı.

 

[Enis80]

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

 

[MESKO]

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?

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