Saygıdeğer Hocalarım çalışma kitabımda 4 adet UserForm var.Bunlardan bir tanesi CARİ adında bir UserForm diğer UserFormlar açıyor çalışıyor sadece bu UserFormu açamıyorum bir türlü beceremedim ne yaparsam yapayım ekli resimdeki gibi bir hata alıyorum.Bu konuda yardımcı olabilir misiniz?
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
UserForm Açmada sorun
- Konbuyu başlatan acebeci
- Başlangıç tarihi
Ömer BARAN
Uzman
- Katılım
- 8 Mart 2011
- Mesajlar
- 12,986
- Excel Vers. ve Dili
- Office 2013 ( 32 bit ) TÜRKÇE
Merhaba.
Mevcut kodlarınızda yer alan bazı durumları belirteyim.
İlgili userformun Initalize kodlarında;
-- For Each syf In Worksheets....Next
döngüsü dolayısıyla AB1 hücresinde RAPORLANACAK yazan sayfalardan veri alınmaya çalışılıyor.
AB1'de RAPORLANACAK yazılı olan sayfalar; CARİ, ŞABLON, MÜŞTERİ-1 ve MÜŞTERİ-2- isimli sayfalar.
-- bir sonraki For i = 4 To syf.Cells(65536, "T").End(xlUp).Row döngüsü bu sayfalarda,
4'üncü satırdan itibren T sütunundaki son dolu hücreye kadarki satırlardan veri alınmasını öngörüyor.
Oysa CARİ safasında T sütunu boş, ŞABLON sayfasında son dolu hücrenin satır numarası 4 ve burası başlık satırı,
MÜŞTERİ sayfalarında ise veri alınacak satır mevcut.
Bu durumda; CARİ ve ŞABLON sayfalarından veri alınmaya çalışıldığında hata alınması normal (4'ten 1'e şeklinde döngüde hata alırsınız).
CARİ ve ŞABLON sayfalarında AB1 hücre içerikleri silinerek deneme yapıldığında ise bu kez de MÜŞTERİ sayfalarından,
diziye veri alma kısmında SÜTUN verisiyle ilgili sorun yaşanıyor.
Ayrıca sirala isimli KTF'de aşağıdaki kırmızı satırı eklerseniz daha hızlı sonuca ulaşırsınız (veri adetini göreceksiniz ve hata daha anlaşılır olur)
For i = LBound(Liste) To UBound(Liste) - 1
MsgBox LBound(Liste) & "..:.." & UBound(Liste) - 1
Kodları oluşturan kişi, işleyişe hakim olacağından size daha iyi destek verecektir diye düşünüyorum.
Önerim, benim yaptığım gibi Initalize kodlarını F8 tuşuna aralıklara basarak ADIM ADIM çalıştırmanız yönünde olacak.
.
Mevcut kodlarınızda yer alan bazı durumları belirteyim.
İlgili userformun Initalize kodlarında;
-- For Each syf In Worksheets....Next
döngüsü dolayısıyla AB1 hücresinde RAPORLANACAK yazan sayfalardan veri alınmaya çalışılıyor.
AB1'de RAPORLANACAK yazılı olan sayfalar; CARİ, ŞABLON, MÜŞTERİ-1 ve MÜŞTERİ-2- isimli sayfalar.
-- bir sonraki For i = 4 To syf.Cells(65536, "T").End(xlUp).Row döngüsü bu sayfalarda,
4'üncü satırdan itibren T sütunundaki son dolu hücreye kadarki satırlardan veri alınmasını öngörüyor.
Oysa CARİ safasında T sütunu boş, ŞABLON sayfasında son dolu hücrenin satır numarası 4 ve burası başlık satırı,
MÜŞTERİ sayfalarında ise veri alınacak satır mevcut.
Bu durumda; CARİ ve ŞABLON sayfalarından veri alınmaya çalışıldığında hata alınması normal (4'ten 1'e şeklinde döngüde hata alırsınız).
CARİ ve ŞABLON sayfalarında AB1 hücre içerikleri silinerek deneme yapıldığında ise bu kez de MÜŞTERİ sayfalarından,
diziye veri alma kısmında SÜTUN verisiyle ilgili sorun yaşanıyor.
Ayrıca sirala isimli KTF'de aşağıdaki kırmızı satırı eklerseniz daha hızlı sonuca ulaşırsınız (veri adetini göreceksiniz ve hata daha anlaşılır olur)
For i = LBound(Liste) To UBound(Liste) - 1
MsgBox LBound(Liste) & "..:.." & UBound(Liste) - 1
Kodları oluşturan kişi, işleyişe hakim olacağından size daha iyi destek verecektir diye düşünüyorum.
Önerim, benim yaptığım gibi Initalize kodlarını F8 tuşuna aralıklara basarak ADIM ADIM çalıştırmanız yönünde olacak.
.
Merhaba,
Yanlış anlamadım ise hatanın sebebi, Müşteri sayfalarındaki İşlem Tarihi, Evrak Cinsi, Evrak No ... alanlarının boş olması.
sirala isimli fonksiyon bu alanlardan değer alıp liste oluşturuyor ve ComboBox'lara atıyor. Liste boş olduğu içinde hata ile sonuçlandırıyor.
MÜŞTERİ-1- isimli sayfadaki alanları doldurup denedim ve UserForm açıldı.
Yanlış anlamadım ise hatanın sebebi, Müşteri sayfalarındaki İşlem Tarihi, Evrak Cinsi, Evrak No ... alanlarının boş olması.
sirala isimli fonksiyon bu alanlardan değer alıp liste oluşturuyor ve ComboBox'lara atıyor. Liste boş olduğu içinde hata ile sonuçlandırıyor.
MÜŞTERİ-1- isimli sayfadaki alanları doldurup denedim ve UserForm açıldı.
Ömer bey açıklamalarınızdan dolayı gerçekten çok teşekkür ederim.Evet aynen dediğiniz gibi zaman içerisinde Şablonda bazen ekleme çıkartmalar yaptım Kod bilgim olmadığı için onlara müdahale edemedim o yüzden sıkıntılar yaşıyorum 
Böyle takıldığım yerlerde siz değerli hocalarımın yardımına müracaat ediyorum iyi ki varsınız çok teşekkür ederim
Böyle takıldığım yerlerde siz değerli hocalarımın yardımına müracaat ediyorum iyi ki varsınız çok teşekkür ederimSayın faye_efsane çok teşekkür ederim aynen dediğiniz gibi yaptım galiba çözüldü.
Demek ki kodlarda da bi revizyon gerekli ama bunu benim becerebilmem mümkün değil
Sayın faye_efsane sorun çözüldü demiştim ama çoklu sayfa olunca yine aynı hatayı verdi.İşlem Tarihi, Evrak Cinsi, Evrak No... Hücreleri boş da olsa bu raporlamayı yaptıramaz mıyız?.Çünkü sayfa çok fazla girip tek tek düzeltmem çok zor
Sayın faye_efsane ilginizden dolayı çok teşekkür ederim.Konu hakkında bilgisi olan arkadaşların yardımcı olacağından hiç şüphem yok.Burada ki arkadaşlar gerçekten o konuda bir harikalar.