Çözüldü Bir Kaç VBA sorunu ve Kod sorunu

Hunkar50 · 20 Mar 2022

excelcozum ailesi mrb lar.

Refaz hocamızın son güğncellediği hali ile dosyamızı yüklüyorum.. Runtime hatası alıyordum dosyada düzeldi anlam veremedim.

Programın olması gereken extra sayfasındaki veri kalma işini refaz hocamın tarifi üzerine düzelttim..

Programda olması gereken bir kaç işlemi videolarda belirttim..

Yardımlarınız için şimdiden tşk ler. hayırlı akşamlar...

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

<<< Video link ( bu programı daha önce yapmıştık. yeni programda olması gerekenler için bilgi olması adına ekliyorum..

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

<<< Buda güncel program videomuz ..

Ve uygulama dosyamız..

Teşekkürler hayırlı akşamlar.

Hunkar50 · 20 Mar 2022

Hocamızın yazdıgı kodlar benim hiç görmediğim nitelikte ki Excel e ilişkin bir eğitim almış veya okulunu okumuş değilim.
ilk ögretim mezunuyum ve Videoda ki Hocamız öyle yerden verileri almış farklı yere baglamış ibaresi, sitemkar bir ibare değildir, aksine hayranlıkla baktıgım ( sadece baktıgım ) bir kod dilimizidir

Refaz · 20 Mar 2022

Merhaba abey.
Ben videoda sitem görmedim.

Dosyayı bir deneyin.
Yeni cari ekle kodlarını galiba diğer konudan bu dosyaya eklememişsiniz ekledim ve ekleyince listbox6 yı temizletip textbox161169 olanalrı temizlettrdim.
Birde Cari ekleyince listbox5 ve 6 ya hemen getirtim verileri.
Yanlışlık felan varsa yazarsınız.

Hunkar50 · 20 Mar 2022

Refaz' Alıntı:
Merhaba abey.
Ben videoda sitem görmedim.

Dosyayı bir deneyin.
Yeni cari ekle kodlarını galiba diğer konudan bu dosyaya eklememişsiniz ekledim ve ekleyince listbox6 yı temizletip textbox161169 olanalrı temizlettrdim.
Birde Cari ekleyince listbox5 ve 6 ya hemen getirtim verileri.
Yanlışlık felan varsa yazarsınız.

Teşekkürler hocam Hemen bakıyorum...
Cari Kayıt İşleminde resimdeki hata msjnı alıyorum hocam !

Bu 2 hata Yeni Cari Oluştur Butonuna tıkladıgımda geliyor

Sanırım dosya yolu sorunu hocam ... Dosyayı masa üzerinde denedim.. C:\ sürücüsüne atıp deniyorum

Hunkar50 · 20 Mar 2022

Hocam Dosya yeri gibi birşey e dikkat etmem gerekiyormu ?
aynı hata devam ediyor

Hunkar50 · 20 Mar 2022

Yine teklemeye başlamıştım hocam...

Yazacagım olayı fark ettim.. ;
Listbox dan bir müşteri secerek kayıt işlemi yapılır ise kayıt işlemini başarılı yapıyor ama, lisboxdan bir cari seçilmez ve direk yeni cari kayıt işlemi yapılır ise Resimdeki hatayı alıyorum...

Refaz · 20 Mar 2022

Hunkar50' Alıntı:
lisboxdan bir cari seçilmez ve direk yeni cari kayıt işlemi yapılır ise Resimdeki hatayı alıyorum

Bir bakalım ama kafadan yazıyorum alttaki gibi şart eklenebilir hata olabilir yazdığımda.
Bir bakatım.

If me.Listbox1.Listindex=-1 then
Msgbox "sec."
Exit sub
End if

Refaz · 20 Mar 2022

Private Sub CommandButton24_Click() kodunun hemen alt satırına alttaki kodu ekleyin abey.

HTML:

Rich (BB code):

İçeriği görebilmek için Giriş yap ya da Üye ol.

Refaz · 20 Mar 2022

Hunkar50' Alıntı:
Sanırım dosya yolu sorunu hocam ... Dosyayı masa üzerinde denedim.. C:\ sürücüsüne atıp deniyorum

SA sayfasındaki 2.ci ve7.satırlara gerek yok yani (yol ve cari adı)

Onları koda ekledim.

Refaz · 20 Mar 2022

Refaz' Alıntı:
Private Sub CommandButton24_Click() kodunun hemen alt satırına alttaki kodu ekleyin abey.

HTML:

Rich (BB code):

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ben listboxtan seçim yapılması şart olduğunu zannettiğim için Set kapaliSayfa = wb.Worksheets(Me.ListBox1.List(Me.ListBox1.ListIndex, 1)) bu kodu eklemiştim.Bunun yerine alttaki kodu kullanabilirsiniz alıntıdaki kodu eklemenize gerek kalmaz.

Belki alttaki kodu kopyala yapıştır yapınca bina kelimesi yanlış kopyalanabilir onun için elle yamanız gerekebilir Tr karakterden dolayı.
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Kısaca alttaki gibi olacak.

Hunkar50 · 20 Mar 2022

hemen el atıyorum Hocam.
Birde CARİ sayfasına yine ("SA").Range("A5:AI5") daki verileri kopyala yapıştır, Bul değiştir kullanıyor ama Neden hücre stilleri geçmiyor ?

Refaz · 20 Mar 2022

Hunkar50' Alıntı:
hemen el atıyorum Hocam.
Birde CARİ sayfasına yine ("SA").Range("A5:AI5") daki verileri kopyala yapıştır, Bul değiştir kullanıyor ama Neden hücre stilleri geçmiyor ?

Ordaki kodu değiştirmiştim.
Çünkü kopyala yapıştır yapınca formüllü yapıştırıyordu.Bende değer ve formatlı yapıştırma kodlatı eklettim.
Eğer çizgili vs.. isyiyorsanız kolay orası bir bakayım.

Hunkar50 · 20 Mar 2022

Refaz' Alıntı:
Ordaki kodu değiştirmiştim.
Çünkü kopyala yapıştır yapınca formüllü yapıştırıyordu.Bende değer ve formatlı yapıştırma kodlatı eklettim.
Eğer çizgili vs.. isyiyorsanız kolay orası bir bakayım.

Hocam, Hücreleri renklendirme, Kırmızı Yazdıgımızda Bir sonraki hücreye +2 Ay ekleyip Tarih Atma , Sarı Yazdıgımızda +4 ay ekyeyip tarih atma
Güncel borç Bilgilerini Sayfadan CARİ sayfasına aktarim ile görebilme gibi Fonksiyonlar mevcuttu , eski program videosunda mevcut anlatım az da olsa
Kırmızı Yazdıgımız da Müşteri ( A) hücresi Kızmızı yapma gibi ...

SA sayfasındaki Hücre stilleri ve Formülleri incelerseniz sevinirim Hocam !

Refaz · 20 Mar 2022

syfCari.Range("A" & Rows.Count).End(3)(2, 1).PasteSpecial xlPasteValuesAndNumberFormats
Yukardaki kodun altına alttaki kodu ekleyin format olayı için.
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Refaz · 20 Mar 2022

Hunkar50' Alıntı:
Hocam, Hücreleri renklendirme, Kırmızı Yazdıgımızda Bir sonraki hücreye +2 Ay ekleyip Tarih Atma , Sarı Yazdıgımızda +4 ay ekyeyip tarih atma
Güncel borç Bilgilerini Sayfadan CARİ sayfasına aktarim ile görebilme gibi Fonksiyonlar mevcuttu , eski program videosunda mevcut anlatım az da olsa
Kırmızı Yazdıgımız da Müşteri ( A) hücresi Kızmızı yapma gibi ...

SA sayfasındaki Hücre stilleri ve Formülleri incelerseniz sevinirim Hocam !

14.mesajdaki kodu ekleyince dediğiniz renklendirmeler yapıyor abey.

Hunkar50 · 20 Mar 2022

Hocam RenKlendime Yansıdı ama Formüller yansımadı..?

Sa Sayfasındaki kopyalanan bölümde .. Koşullu biçimleme ve formüller de mevcut hocam..

Sanırım PC niz ingilizce ? ben türkçeyi zor konuşurken sizin ingilizce pc kullanmanız da bi ayrı olsa gerek

Hunkar50 · 20 Mar 2022

Bu A5:AI5 kopyala yapıştır olayını formatsız yapsak direk oldugu gibi almaz mı hocam.. Format eklemek zorundamıyız ?
Veya sadece orasını eski formülü kullansak olurmu ?

Refaz · 20 Mar 2022

Abey neden formüllü olarak yapıştıracaksınız?
O kısım daha kolay yapmak.
Renklensin diyorsanız ekleyince onuda yaptırabiliriz renk olarak.
Formül olayı sonradan kasma yapabilir.
Eklendikten sonra nasıl formatta görükecekse resim atın ona göre yapalım.

Refaz · 20 Mar 2022

Hunkar50' Alıntı:
Hocam RenKlendime Yansıdı ama Formüller yansımadı..?
Sa Sayfasındaki kopyalanan bölümde .. Koşullu biçimleme ve formüller de mevcut hocam..

Sanırım PC niz ingilizce ? ben türkçeyi zor konuşurken sizin ingilizce pc kullanmanız da bi ayrı olsa gerek

Benim pc Almanca

Hunkar50 · 20 Mar 2022

Hele Pc de Bi Amel Bozuklugu var diyordum

Hocam video atıyorum.

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

Lİnki erken atmışım 2-3 Dk. Ya açılır hocam

DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Giriş yap veya Şimdi kayıt ol

Çözüldü Bir Kaç VBA sorunu ve Kod sorunu

Hunkar50

Ekli dosyalar

Refaz

Hunkar50

Refaz

Ekli dosyalar

Hunkar50

Hunkar50

Hunkar50

Refaz

Refaz

Refaz

Refaz

Hunkar50

Refaz

Hunkar50

Refaz

Refaz

Hunkar50

Hunkar50

Refaz

Refaz

Hunkar50

DİKKAT ! Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir. Giriş yap veya Şimdi kayıt ol

Çözüldü Bir Kaç VBA sorunu ve Kod sorunu

DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Giriş yap veya Şimdi kayıt ol