Çözüldü Kapalı dosyaya veri kaydetme hk

[murat_8181]

Değerli uzman arkadaşlar birkaç gün önce bu konu başlığı altında bir paylasim yaptım. Sağolsun işsiz nikli arkadaşımız yardımcı oldu ve makrosu istediğim gibi işlem yaptı. Ancak şöyle bir sorunla karşılaştım. Textboxlar dan yada kulladigim comboboxlardan birisi boş olduğunda yani veri yazmadigimda makro hata veriyor. Bu sorunu nasıl asabilirim.
HTML:

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

 

[Alparslan]

Hata vermeden kayıt işlemi yapılıyor. Karşılaştığınız hata nedir?

 

[murat_8181]

Hata vermeden kayıt işlemi yapılıyor. Karşılaştığınız hata nedir?

 

[murat_8181]

Hata vermeden kayıt işlemi yapılıyor. Karşılaştığınız hata nedir?

Sayın Alpaslan textboxlarin birini boş bırakıp denedinizmi

 

[Alparslan]

Paylaştığınız dosya ve kodlar ile yaptığım denemelerin görüntüleri.

 

[murat_8181]

Paylaştığınız dosya ve kodlar ile yaptığım denemelerin görüntüleri.
Ekli dosyayı görüntüle 2230Ekli dosyayı görüntüle 2231Ekli dosyayı görüntüle 2232Ekli dosyayı görüntüle 2234

İlginç bende ne yaptıysam hata alıyorum

 

[murat_8181]

Paylaştığınız dosya ve kodlar ile yaptığım denemelerin görüntüleri.
Ekli dosyayı görüntüle 2230Ekli dosyayı görüntüle 2231Ekli dosyayı görüntüle 2232Ekli dosyayı görüntüle 2234

Textboxlarin hepsini doldurduğum zaman verileri kaydediyor ama bir tanesi eksik olduğu zaman göndermiyor

 

[Alparslan]

Paylaştığınız Dosyanızda herhangi bir değişiklik yapmadan, ilk mesajda paylaştığınız kodları ekledim sadece.

Sizin kullandığınız dosya ile burada paylaştığınız dosya ve kodlar aynı mı?

 

[murat_8181]

Paylaştığınız Dosyanızda herhangi bir değişiklik yapmadan, ilk mesajda paylaştığınız kodları ekledim sadece.

Sizin kullandığınız dosya ile burada paylaştığınız dosya ve kodlar aynı mı?

Aynı sekilde değişiklik yok makro çalışıyor bende textboxlarin birisi boş olsun paylaştığım hatayı alıyorum

 

[Alparslan]

Hata aldığınız dosyayı tekrar paylaşır mısınız?

 

[Ahmet]

Merhaba

Dosyanızın içindeki kodları bu şekilde değiştirip dener misiniz?

HTML:

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

 

[murat_8181]

x = WorksheetFunction.CountA(Application.Workbooks("KAPALI").Sheets("ANASAYFA").Range("A:A")) + 1 bu satırda subsrict put of Range hatası aliyorum

 

[Ahmet]

Bize örnek göndermiş olduğunuz dosyalar, gerçekte kullanmış olduğunuz dosyadan farklı mı?

 

[murat_8181]

Bize örnek göndermiş olduğunuz dosyalar, gerçekte kullanmış olduğunuz dosyadan farklı mı?

Ahmet örnek dosyalarla aynı ama sürekli aynı hatayı alıyorum

 

[Suskun]

Açık olmayan sayfa ile işlem yapmaya çalışılıyor. Bu kodu
Sayfa adını düzeltin. (Araya boşluk koyun)
HTML:

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

 

[Refaz]

Merhaba.
Textboxların boşmu dolumu olaylarını koda ekledim
Tarih textboxuda eklerseniz TextBox5 olarak yapın ve koddaki pasif yerleri aktif edin.
Kapalı sayfanın son satır numarasını Ado ile yaptım daha kullanışlı böylesi.


HTML:

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

HTML:

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

HTML:

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

SonSatirNo = 0

adoCN.Close
Set RS = Nothing
Set adoCN = Nothing

End Function

 

[Refaz]

Açık olmayan sayfa ile işlem yapmaya çalışılıyor. Bu kodu
Sayfa adını düzeltin. (Araya boşluk koyun)
HTML:

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

Resimdede zaten bitişik yazılmış abey ANASAYFA diye.

 

[Refaz]

Ayrıca kapalı dosya açılacaksa alttaki gibi daha uyugun olur bence kod.
Kapalı excel yolu ayarlanabilinir.

HTML:

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

 

[Suskun]

Resimdede zaten bitişik yazılmış abey ANASAYFA diye

Resimde bitişik olabilir. DOSYA da "ANA SAYFA" olarak tanimli. Dosyayı bir kontrol edin

 

[murat_8181]

Ayrıca kapalı dosya açılacaksa alttaki gibi daha uyugun olur bence kod.
Kapalı excel yolu ayarlanabilinir.

HTML:

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

Teşekkürler Feraz bey istediğim gibi çalıştı