Boş Sütun Silmek

[tutmosis]

Merhaba arkadaşlar,

Bir excell tablosunda bir işleme ihtiyacım var. Şirkette çektiğimiz tüm raporlarda ekte gönderdiğim excell çalışma sayfası geliyor ve birleştirilmiş sütunlarda bilgiler geliyor. farklı bir excell üzerinde işlem yapmak için de hücreleri dağıtmamız ve boş sütunları silmemiz gerekiyor ve bu da çok sayıda raporda inanılmaz zaman kaybı. bunu bir düğmeye bağlanabilecek bir kod ile yapmamız mümkün mü?

yardımcı olabilirseniz çok sevinirim.
teşekkürler...

 

[Erdem Akdemir]

Merhaba arkadaşlar,

Bir excell tablosunda bir işleme ihtiyacım var. Şirkette çektiğimiz tüm raporlarda ekte gönderdiğim excell çalışma sayfası geliyor ve birleştirilmiş sütunlarda bilgiler geliyor. farklı bir excell üzerinde işlem yapmak için de hücreleri dağıtmamız ve boş sütunları silmemiz gerekiyor ve bu da çok sayıda raporda inanılmaz zaman kaybı. bunu bir düğmeye bağlanabilecek bir kod ile yapmamız mümkün mü?

yardımcı olabilirseniz çok sevinirim.
teşekkürler...

boş sütun değil de , boş satırları sildirseniz daha rahat olur

 

[Erdem Akdemir]

Sub satirsil()
Rows("1:" & [a1].End(xlDown).Row - 1).Delete
End Sub

 

[tutmosis]

dostum dosya içerisinde olması gereken adında bir seet daha var ona bakabilir misin?

satırlar var evet silinecek ama sütunlar da var... çünkü birleştirilmiş sütunlar var ve bunlardan boş olanlarının silinmesi gerekiyor

 

[tutmosis]

Arkadaşlar bu konuda bana yardımcı olabilecek olan yok mu?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub DÜZENLE()
    Cells.UnMerge
    Rows("1:8").Delete Shift:=xlUp
    Range("B:B,D:D,F:F,G:G,K:K,N:N,Q:Q").Delete Shift:=xlToLeft
    Range("J:IV").Delete Shift:=xlToLeft
    Columns("A:I").EntireColumn.AutoFit
End Sub

 

[tutmosis]

çok teşekkür ederim işimi gördü