Sütun Genişliği Ayarlama

[hakki83]

Selamlar

Üç farklı kodu birleştirerek yapmaya çalıştım, oldu sanıyorum ama yine de emin olamadım. Hocalarımıza sormak istedim.
Yapmak istediğim şudur.

A sütununun genişliği sabit 30 olacak

A sütunundan son sütuna kadar; sütunların genişliği sabit 15 olacak

EĞER en sondaki sütunun başlığı SONUÇLAR ise, işte o son sütun AutoFit olacak.
Yani SONUÇLAR başlığına sahip bir son sütun varsa AutoFit olacak.
(SONUÇLAR başlıklı son sütun 15 olmayacak)

 

[Korhan Ayhan]

Başlıklarınızın 1. satırda olduğunu varsaydım.

Option Explicit

Sub Test()
    Columns(1).ColumnWidth = 30
    Columns("B:" & Split(Cells(1, Columns.Count).End(1).Address, "$")(1)).ColumnWidth = 15
    On Error Resume Next
    Rows(1).Find("SONUÇLAR").EntireColumn.AutoFit
    On Error GoTo 0
End Sub

 

[Tevfik_Kursun]

Alternatif olsun

Sub Sutun_Say()
    sonsut = Cells(1, 256).End(xlToLeft).Column
    Columns(1).Select
    Selection.ColumnWidth = 30
        For x = 2 To sonsut - 1
            Columns(x).Select
            Selection.ColumnWidth = 15
        Next x
    Columns(sonsut).Select
    Columns(sonsut).EntireColumn.AutoFit
End Sub

iyi çalışmalar

 

[hakki83]

Başlıklarınızın 1. satırda olduğunu varsaydım.

Option Explicit

Sub Test()
    Columns(1).ColumnWidth = 30
    Columns("B:" & Split(Cells(1, Columns.Count).End(1).Address, "$")(1)).ColumnWidth = 15
    On Error Resume Next
    Rows(1).Find("SONUÇLAR").EntireColumn.AutoFit
    On Error GoTo 0
End Sub

Korhan hocam çok güzel olmuş, teşekkürler emeğinize sağlık.

 

[hakki83]

Alternatif olsun

Sub Sutun_Say()
    sonsut = Cells(1, 256).End(xlToLeft).Column
    Columns(1).Select
    Selection.ColumnWidth = 30
        For x = 2 To sonsut - 1
            Columns(x).Select
            Selection.ColumnWidth = 15
        Next x
    Columns(sonsut).Select
    Columns(sonsut).EntireColumn.AutoFit
End Sub

iyi çalışmalar

Tevfik hocam teşekkürler emeğinize sağlık.

 

[Tevfik_Kursun]

Rica ederim, iyi çalışmalar

 

[hakki83]

Başlıklarınızın 1. satırda olduğunu varsaydım.

Option Explicit

Sub Test()
    Columns(1).ColumnWidth = 30
    Columns("B:" & Split(Cells(1, Columns.Count).End(1).Address, "$")(1)).ColumnWidth = 15
    On Error Resume Next
    Rows(1).Find("SONUÇLAR").EntireColumn.AutoFit
    On Error GoTo 0
End Sub

Korhan hocam merhaba
Öğrenmek için
Bu koddaki en alt satırdaki
On Error GoTo 0
görevi nedir hocam?


Bu satırı pasif yapınca,
SONUÇLAR başlığı olmasa da kod çalışıyor, acaba başka bir şey için mi diye düşündüm.

 

[Korhan Ayhan]

Merhaba,

"On Error Resume Next" ifadesi ile tüm hataları görmezden gelerek devam et diyoruz. "On Error GoTo 0" ifadesi ile de hata kontrollerini tekrar aktif hale getiriyoruz.

On Error statement (VBA)

Office VBA reference topic

learn.microsoft.com