Makro ile sütun silme

[kadir78]

İyi günler. Aşağıdaki makro kodu ile sütun silme işleminde bir sıkıntı var. Makro koduyla sildiğimde birleşmiş hücrelerin tüm sütunlarını siliyor. Birleştirilmemiş sütunlarda sorun yok. Fare ile seçerek silidiğimde sorun yok. Olayı çözemedim. Yardımcı olurmusunuz.

Sub Makro1()
Columns("B:B").Select
Selection.Delete
End Sub

 

[BedriA]

Aşağıdaki şekilde deneyiniz.

Sub Makro1()
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
End Sub

 

[kadir78]

Sayın BedriA. Kodları denedim yine olmadı. Birleştirilmiş sütunları siliyor.
Makro kaydet ile işlemi yapıyorum yine aynı sorun. Birleştirilmiş sütunların tamamını siliyor.
Birleştirilmemiş sütunlarda sorun yok. Çok kod denedim. Anlamsız geliyor.

 

[BedriA]

Dosya.tc gibi bir siteye dosyanızın bir örneğini yükleyip linki paylaşabilirsiniz, sayfanın durumuna göre bir kod yazılabilir.

 

[kadir78]

Dosya Ekte
http://s5.dosya.tc/server5/x0qlbh/Deneme.rar.html

 

[Ömer BARAN]

Merhaba.

Yanlış anlamıyorsam; aşağıdaki gibi sorun olmaması lazım.
Dikkat: Silinecek sütun, birleştirilmiş hücrenin en solundaki sütun ise hücre içeriği de silinir.
.

Sub SUTSIL()
    Columns("B:B").Delete Shift:=xlToLeft
End Sub

 

[Beyribey]

Columns("B:B").EntireColumn.Delete ile sadece B kolonunu silebilirsiniz.

 

[kadir78]

Ömer bey, Beyribey yardımlarınız için çok teşekkür ederim. Kodlar çalışıyor. Saygılar.

 

[dgdizayn]

Teşekkürler bu kod çalıştı.