Süzüp aktarma kodunda sorun...

[manly]

Gönderdiğim 2 dosya var... Aktarma dosyasında çalışan butonlar Firma1 dosyasında hata veriyor.. her iki dosyanın da kodları aynı... sorun nerede acaba?


Sheets(kaplan).Range("B2:Z65536").ClearContents bu satır sarı renk oluyor

 

[Orion1]

Sheets(kaplan).Range("B2:Z65536").ClearContents

Yukarıdaki kod çalışırken birleştirilmiş hücre/hücreler ile karşılaşmış.
VBA daki clear ve clearcontents komutu birleştirilmiş hücreleri temizleyemez hata verir.
Aslında eğer vba ile çalışacaksanız birleştirilmiş hücreler ile çalışmayın.
Find komutundada hata veriyor birleştirilmişl hücreler.

 

[manly]

Yani başka alt sayfalardaki birleştirilmiş hücreler olduğu için bu kodu etkiliyor diyorsunuz...

 

[Orion1]

Yani başka alt sayfalardaki birleştirilmiş hücreler olduğu için bu kodu etkiliyor diyorsunuz...

Range("[B][COLOR="Red"]B2:Z65536[/COLOR][/B]")

Yukarıdaki kodlamada B2:Z65536 aralığında 1 veye bir kaç hücre en az bir defa birleştirlmiş hücre yapılmışlar.Kod bu aralıkta çalıştığı için,burada rastadığında hücre birleşmesine kodlama hatası oluşuyor.

 

[manly]

Aynen dediğiniz gibi birleştirilmiş hücreleri kaldırdım kod çalıştı... Fakat tablolar acayipleşti...
Birleştirme de yapmam lazım nasıl halledebiliriz..

 

[manly]

Firma1 dosyasında kırmızı renkteki sayfalarda birleştirme vardı oraları kaldırınca düzeldi..Dediğiniz aralık 2011 Siparişler sayfasındaki bir aralık orada da hiç birleştirme yok...

 

[Orion1]

Aynen dediğiniz gibi birleştirilmiş hücreleri kaldırdım kod çalıştı... Fakat tablolar acayipleşti...
Birleştirme de yapmam lazım nasıl halledebiliriz..

eğer sileceğiniz alan sınırlı bir yerse mesela B2:Z100 aralığı gibi bir şeyse
kodu alttaki şekilde kullanınız.ancak buradaki biçimlendirmeler bu takdirde temizlenmez.
Ancak tüm a:z aralığı için böyle bir şey diyemem.Çünkü usedrange oluyor ve dolu hücreymiş gibi davranıyor.

Sheets(kaplan).Range("B2:Z100)").value=empty

 

[manly]

Sipariş Dökümü, Stok Dökümü, Birlik Dökümü, Stok Grafik, Birlik Grafik sayfalarında birleştirme var..Bu kodlarında oralarla alakası yok.. yine de o sayfalar bu kodu etkilermi

 

[Orion1]

Sipariş Dökümü, Stok Dökümü, Birlik Dökümü, Stok Grafik, Birlik Grafik sayfalarında birleştirme var..Bu kodlarında oralarla alakası yok.. yine de o sayfalar bu kodu etkilermi

[B][COLOR="Red"]Sheets(kaplan)[/COLOR][/B].Range("B2:Z65536").ClearContents

bakın burada sheets(kaplan) diye yazıyor.
Yani bu kod sheets(kaplan)için yazılmış.
kaplan daha önceden dim kaplan diye tanıtılmış bir değişken.Bu değişkene hangi sayfa adı atanmışsa o sayfa için geçerlidir.

 

[manly]

Hocam Aktarılanları temizle butonu sadece AKTARMA dosyasında olan çalışma sayfası adlarına müdahale edecek..Firma1 sayfasındaki aynı çalışma sayfasındada aynı isimde dosyalar var ..Fakat bu buton dosyadaki tüm aktarılan sayfalara müdahale ediyor...düzeltebilirmiyiz...