Otomatik satır

[turgayzeynep]

Otomatik olarak Makro ile belirli satırdaki sayıları örnek A1 A3 a19 a 21 a23 satırlarında otomatik olarak yazılım boyutuna göre Makro ile nasıl yaparım yardımcı olur musunuz

 

[Necdet]

Merhaba,

Makro kaydet ile kodlarınızı elde edebilirsiniz.

 

[turgayzeynep]

Merhaba,

Makro kaydet ile kodlarınızı elde edebilirsiniz.

Hocam varsa bir kod yazarmısınız rıca etsem

 

[Necdet]

Buyrun

Sub Makro1()

    Range("A1,A3,A19.A21,A23").Rows.AutoFit
   
End Sub

Hatta Bu kod daha iyi :

Sub Makro1()

    With Range("A1,A3,A19.A21,A23")
        .WrapText = True
        .Rows.AutoFit
    End With
    
End Sub

 

[turgayzeynep]

Hocam kodlar çalışmadı malesef

 

[Necdet]

bende çalışıyor ama