bulentkars
Yeni Üye
- Katılım
- 30 May 2022
- Mesajlar
- 605
- Çözümler
- 5
- Aldığı beğeni
- 104
- Excel V
- Office 365 TR
Konu Sahibi
Arkadaşlar Merhaba,
Excel çalışma kitabımda birden fazla sayfalarım var.
Ben Toplu olarak aşağıdaki kodu her sayfaya girip çalıştırmak istiyorum. Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler.
Sub Sutun_Ayarla()
Cells.Select
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
Excel çalışma kitabımda birden fazla sayfalarım var.
Ben Toplu olarak aşağıdaki kodu her sayfaya girip çalıştırmak istiyorum. Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler.
Sub Sutun_Ayarla()
Cells.Select
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub