Soru Userform Çalışmasını Engelleyen Hata Hk

Belgenin çalışır durumdaki bütününü görmek lazım sanırım.
Bence hangi nesneye ait kodda veya hangi kod blokunda hata alıyorsanız o nesneye ait kodları veya o makroyu,
VBA ekranı, userform ve excel sayfasını aynı anda görebileceğiniz şekilde ekranda konumlandırın ve F8 tuşuna basarak
ilgili makroları adım adım çalıştırın. Ya da tüm kodlar için ayrı ayrı fare imlecini Dim.... satırlarından sonra gelen ilk kod satırında iken F9 tuşuna birer kez basarak satırın BORDO renklenmesini sağlayın (her kod bloku için durma noktası belirlemiş oluyorsunuz), ardından da ilgili nesneleri kullanarak hata veren kodu tetikleyin.
Kod durma noktasına gelince duracak ve VBA ekranı önünüze gelecek.
Bundan sonra her kod satırı için F8 tuşuna birer kez basarak kodun adım adım çalışmasını sağlayın.
Hangi kodda (belirttiğiniz kod satırına benzer 3 yerde kod satırı var) hata aldığınızı net olarak tespit edin ve onun üzerinde durun.

Belgenin bütününü görmeden ancak fikir yürütüyoruz.
Belgede olmayan kendi kodlarınızdan tetiklenmesini istemedikleriniz varsa, tetikleyen kod satırından önce
Application.EnableEvents = False bir satır ekleyip, işlem bitişi aşamasına da TRUE halini eklerseniz diğer kodlarınız tetiklenmez.

Fikir tabi.

Omer hocam benim kendi dosyamda hata veren satırı 1 nolu mesajimda belirtmiştim. Hatayı doğrudan o satırda veriyor.

Anladım da ilgili prosedür sirala4_Click prosedürü.
Belgedeki userformda adı böyle olan bir nesne göremiyorum.

Hata, bu nesnenin olmamasıyla ilgili olabilir mi?

.

Ömer BARAN' Alıntı:

Anladım da ilgili prosedür sirala4_Click prosedürü.
Belgedeki userformda adı böyle olan bir nesne göremiyorum.

Hata, bu nesnenin olmamasıyla ilgili olabilir mi?

.

Genişletmek için tıklayın ...

Sirala4_click makrosu userfomun içerisinde var Ömer hocam eğer nesne olarak makroyu kaydediyorsaniz

Belgenizi açıyorum ve userform u görntülüyorum sorunsuz açılıyor çalışıyor gibi görünüyor.
Sizde ne sorunu oluşuyor, ne zaman oluşuyor?

Ömer BARAN' Alıntı:

Belgenizi açıyorum ve userform u görntülüyorum sorunsuz açılıyor çalışıyor gibi görünüyor.
Sizde ne sorunu oluşuyor, ne zaman oluşuyor?

Genişletmek için tıklayın ...

Ömer hocam bu örnek çalışmada sorun yok olması gerektiği gibi çalışıyor. Bu örnek çalışmayı olduğu gibi kendi çalışma kitabıma entegre etmeye çalıştığım da bir nolu mesajimdaki belirttiğim satırda hata veriyor

Tahminim o ki belgenin orijinalinde başlık satırı 1'inci satır imiş.
Üst kısıma satırlar ekleyerek balık satırını 7'nci satıra siz almışsınız gibi geliyor bana.

Doğru mudur?

Eğer öyleyse tüm kodları tek tek kontrol etmek gerekebilir.
Ki işlem alanının birinci satırdan değil 8'inci satırdan başlatmak gerekir.

VBA ekranında KODLARI görüyorken CTRL+H yapıp aranan kısmına Cells(1, replace kısmına da Cells(7, yazıp Replace All düğmesine tıklayıp değişikliklerin yapılmasını sağladıktan sonra tekrar dener misiniz? Ayna hatayı alıyormusunuz?
Gerçek belgenizdeki durumu/diğer kodları bilmiyoruz, bir deneyin bakalım.

Ekli dosyayı görüntüle örnek_ikitariharası_kişiler.xlsx

Ömer BARAN' Alıntı:

Tahminim o ki belgenin orijinalinde başlık satırı 1'inci satır imiş.
Üst kısıma satırlar ekleyerek balık satırını 7'nci satıra siz almışsınız gibi geliyor bana.

Doğru mudur?

Eğer öyleyse tüm kodları tek tek kontrol etmek gerekebilir.
Ki işlem alanının birinci satırdan değil 8'inci satırdan başlatmak gerekir.

VBA ekranında KODLARI görüyorken CTRL+H yapıp aranan kısmına Cells(1, replace kısmına da Cells(7, yazıp Replace All düğmesine tıklayıp değişikliklerin yapılmasını sağladıktan sonra tekrar dener misiniz? Ayna hatayı alıyormusunuz?
Gerçek belgenizdeki durumu/diğer kodları bilmiyoruz, bir deneyin bakalım.

Ekli dosyayı görüntüle 10177

Genişletmek için tıklayın ...

Yine bu satırda hata verdi "Set D = .Find(aranan, .Cells(.Cells.Count), xlValues, xlWhole)"

Ömer BARAN' Alıntı:

Tahminim o ki belgenin orijinalinde başlık satırı 1'inci satır imiş.
Üst kısıma satırlar ekleyerek balık satırını 7'nci satıra siz almışsınız gibi geliyor bana.

Doğru mudur?

Eğer öyleyse tüm kodları tek tek kontrol etmek gerekebilir.
Ki işlem alanının birinci satırdan değil 8'inci satırdan başlatmak gerekir.

VBA ekranında KODLARI görüyorken CTRL+H yapıp aranan kısmına Cells(1, replace kısmına da Cells(7, yazıp Replace All düğmesine tıklayıp değişikliklerin yapılmasını sağladıktan sonra tekrar dener misiniz? Ayna hatayı alıyormusunuz?
Gerçek belgenizdeki durumu/diğer kodları bilmiyoruz, bir deneyin bakalım.

Ekli dosyayı görüntüle 10177

Genişletmek için tıklayın ...

Örnek dosyada ki veri tablomun başlangıç satırı orjinali ile bire bir aynı Ömer hocam

İyi de nasıl-neyi tespit etmemizi bekliyorsunuz ?
Gerçek belgenizle aynı olmayan,
kendi içerisinde de sorun yaşanmayan bir örnek belge ve bunun içerisindeki kodlara bakarak
gerçek belgedeki sorun nasıl tespit edilecek?

Gerçek (sorun yaşanan) belgenizin bir kopyasını eklemeden gösterilecek gayret beyhude.

.

Ömer BARAN' Alıntı:

İyi de nasıl-neyi tespit etmemizi bekliyorsunuz ?
Gerçek belgenizle aynı olmayan,
kendi içerisinde de sorun yaşanmayan bir örnek belge ve bunun içerisindeki kodlara bakarak
gerçek belgedeki sorun nasıl tespit edilecek?

Gerçek (sorun yaşanan) belgenizin bir kopyasını eklemeden gösterilecek gayret beyhude.

.

Genişletmek için tıklayın ...

Haklısınız Ömer hocam sorun yaşanan dosyayı olduğu gibi paylaşamıyorum maalesef çünkü geniş tabanlı(makrolu) bir çalışma ve içinde çok sayıda kişisel veri veri var. Yardımlarınız için teşekkürler

Gerçek belgeyi farklı kaldedip, özel bilgilerin yerine anlamlı-tutarlı olmak koşuluyla başka veriler yazmaktan başka çare yok.