Hücrenin ait olduğu sütunu makro ile seçme

[onurdogan]

Merhabalar,

Örnek için bir dosya ekledim.

En üstteki "İŞLER" hücresinin kaç hücrenin birleşiminden oluştuğu değişkendir. Makro ile onun uzunluğuna bağlı olarak, kapsadığı sütunların genişliğini belirlemek istiyorum.

Eğer "İŞLER" hücresi 10 hücrenin birleştirilmesinden oluşmuşsa, makro ile bu 10 hücre belirlenip sütun genişliği 5.10 olmalıdır. Başka bir örnekte, "İŞLER" hücresi 16 hücreden oluşabilir. Bu kez bu 16 hücrenin makro ile belirlenip, sütun genişliğinin 5.10 olması sağlanmalıdır.

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row <> 1 Then Exit Sub
    Set a = Rows(1).Find("İŞLER")
    Range(Cells(1, a.Column).MergeArea.Address).ColumnWidth = "5.10"
End Sub

 

[onurdogan]

Yardım için teşekkür ederim