Dolu hücreleri biraraya getirmek

[volcanoselim]

Merhaba,

Bir önce sormuş olduğum soruyla bağlantılı bir sorum olacak.Ekteki dosyada makro çalıştırılınca, aktif hale gelen dolu hücreleri nasıl alt alta getirebilirim.

Teşekkürler.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz

Sub Düğme2_Tıklat()
[b1:b100].Copy Destination:=[a6500].End(3).Offset(1)
[c1:c100].Copy Destination:=[a6500].End(3).Offset(1)
[d1:d100].Copy Destination:=[a6500].End(3).Offset(1)
[a1:a100].SpecialCells(xlCellTypeBlanks).Delete
End Sub

 

[volcanoselim]

Dolu hücreleri bir araya getirmek

Merhaba,

Ben göndermiş olduğunuz kodu uygularken yanlış bişey yapıyorum sanırım, olmuyor.Ben ekte daha iyi ifade ettiğim kaynak ve hedef dosyaları gönderiyorum.Yardım ederseniz sevinirim.


Teşekkürler.

 

[AS3434]

İlk sorunuzdaki dosya üzerinde gizle göster uygulaması.

 

[volcanoselim]

Merhaba,

Gerçekten çok makbule geçti, teşekkür ederim.Uygulama dosyamda denedim ve harika bir sonuç aldım.Tekrar teşekkürler.