Makro ile belirli sütunu silmek

[merthas7]

Merhabalar,

İşim gereği günlük olarak farklı datalar çekiyorum. Bunları macro kullanarak işlediğimde yalnızca "angle" isimlendirmeli bir sütun geliyor. Her gün sütun sırası değişebildiği için sütun koduna göre silme yapamıyorum. Ben sadece 2.satırda "angle" yazan hücrenin bulunduğu sütunu silmek istiyorum. Var mıdır bir yolu? Yardımlarınızı rica ederim.

İyi forumlar.

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Bul As Range
    Set Bul = Rows("2:2").Find(what:="angle", lookat:=xlWhole)
    If Not Bul Is Nothing Then Columns(Bul.Column).Delete
End Sub

 

[merthas7]

Çok teşekkür ederim Emeğinize sağlık

 

[dgdizayn]

Merhaba,

M ve AU sütunları arasında olan, sadece "boş sütunları" sildirmek istiyorum. Yardımcı olabilir misiniz.

Teşekkürler.

 

[dgdizayn]

Merhaba,

M ve AU sütunları arasında olan, sadece "boş sütunları" sildirmek istiyorum. Yardımcı olabilir misiniz.

Teşekkürler.

Düzeltme;
1. satırlar birleştirilmiş(merge), sadece M2:AU2 arasında kontrol edip, hücre boşsa sütun sil yapılabilirse süper olur. Teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Sub Sil()
Range("M2:AU2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

 

[dgdizayn]

Deneyiniz.

Sub Sil()
Range("M2:AU2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

Sn Korhan AYHAN Bey,

İvedi ve çözüm odaklı yanıtınız için teşekkür ederim. Kod çalıştı.