Hücre Biçimlendir

[sirkülasyon]

Hücre Biçimlendir > Hizalama > Metin Denetimi
a) Metni Kaydır
b) Uyacak Şekilde Daralt
c) Hücreleri Birleştir

işlemlerini tek tek hücre seçerek yapıyorum.
Bu işlemin MAKRO ile seçilen hücrelere tek tek uygulanması mümkün müdür?

Teşekkür Ederim.

Cumamız Mübarek Olsun

 

[Emir Hüseyin Çoban]

. . .

Makro kaydet ile deneyin.

. . .

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Birleştirilmiş hücrede "Uyacak şekilde daralt" komutu işe yaramıyor...

Sub Makro()
    Application.DisplayAlerts = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = True
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Application.DisplayAlerts = True
End Sub