• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Hunkar50

Hunkar50

Yeni Üye
Kullanıcı Bilgileri
Katılım
30 Ocak 2022
Mesajlar
303
Çözümler
2
Aldığı beğeni
54
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
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...

Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.

Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.
<<< Video link ( bu programı daha önce yapmıştık. yeni programda olması gerekenler için bilgi olması adına ekliyorum..


Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.
<<< Buda güncel program videomuz ..

Ve uygulama dosyamız..

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

Ekli dosyalar

  • güncel.zip
    614.2 KB · Gösterim: 6
Tarihe göre sırala Oylara göre sırala
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 :)
 
Olumlu oy 0 Negatif oyla
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.
 

Ekli dosyalar

  • güncel.7z
    516.7 KB · Gösterim: 3
Olumlu oy 0 Negatif oyla
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.
Genişletmek için tıkla...
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
 

Ekli dosyalar

  • hata1.jpg
    hata1.jpg
    517.4 KB · Gösterim: 5
  • hata2.jpg
    hata2.jpg
    547.5 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
Hocam Dosya yeri gibi birşey e dikkat etmem gerekiyormu ?
aynı hata devam ediyor
 
Olumlu oy 0 Negatif oyla
Yine teklemeye başlamıştım hocam... :oops: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...
 
Olumlu oy 0 Negatif oyla
Hunkar50' Alıntı:
lisboxdan bir cari seçilmez ve direk yeni cari kayıt işlemi yapılır ise Resimdeki hatayı alıyorum
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
Private Sub CommandButton24_Click() kodunun hemen alt satırına alttaki kodu ekleyin abey.

Rich (BB code):
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Refaz' Alıntı:
Private Sub CommandButton24_Click() kodunun hemen alt satırına alttaki kodu ekleyin abey.

Rich (BB code):
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
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ı.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Kısaca alttaki gibi olacak.

Screenshot 2022-03-20 202459.png
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
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 ?
 
Olumlu oy 0 Negatif oyla
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 ?
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
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.
Genişletmek için tıkla...
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 !
 
Olumlu oy 0 Negatif oyla
syfCari.Range("A" & Rows.Count).End(3)(2, 1).PasteSpecial xlPasteValuesAndNumberFormats
Yukardaki kodun altına alttaki kodu ekleyin format olayı için.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
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 !
Genişletmek için tıkla...
14.mesajdaki kodu ekleyince dediğiniz renklendirmeler yapıyor abey.
 
Olumlu oy 0 Negatif oyla
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 :)
 
Olumlu oy 0 Negatif oyla
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 ?
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
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 :)
Genişletmek için tıkla...
Benim pc Almanca :)
 
Olumlu oy 0 Negatif oyla
Hele Pc de Bi Amel Bozuklugu var diyordum :)

Hocam video atıyorum.
Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.


Lİnki erken atmışım 2-3 Dk. Ya açılır hocam
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst