Macro Autofit met minimum breedte en vanaf kolom O

[surfingmaster]

Hallo Dames,Heren,

ik probeer een macro te maken met autofit, met de range vanaf kolom O en verder. En de autofit mag de cellen niet smaller maken dan 6,57 breed.

Tot nu toe heb ik allen nog een macro die autofit over het hele werkblad toepast.

Sub AutofitColumns()
Sheets("Kosten uitg. in tijd").Columns.AutoFit
End Sub

 

[Hoornvan]

surfingmaster,

Dit haalde ik uit de help van VBA.
Worksheets("Sheet1").Columns("O:Z").AutoFit

 

[Wigi]

Hoornvan

En wat doe je dan met de vereiste dat kolommen niet smaller mogen zijn dan 6.57?

Sub AutofitColumns()
    For Each col In Sheets("Kosten uitg. in tijd").UsedRange.Columns
        If col.Column > 14 Then
            col.AutoFit
            col.ColumnWidth = WorksheetFunction.Max(col.ColumnWidth, 6.57)
        End If
    Next
End Sub

Wigi

 

[Hoornvan]

Wigi

En wat doe je dan met de vereiste dat kolommen niet smaller mogen zijn dan 6.57?

Ik was nog aan het zoeken voor een oplossing hier voor en kwam uit eindelijk toch op ColumnWidth uit.

 

[surfingmaster]

Hoi mannen,

bedankt voor jullie hulp. Ik heb nog een iets aangepast, want ik heb mijn werkblad beveiligd en de macro flikkerde nogal:

Sub AutofitColumns()
ActiveSheet.Unprotect Password:=""
Application.ScreenUpdating = False

    For Each Col In Sheets("Kosten uitg. in tijd").UsedRange.Columns
        If Col.Column > 14 Then
            Col.AutoFit
            Col.ColumnWidth = WorksheetFunction.Max(Col.ColumnWidth, 6.57)
        End If
    Next
Application.ScreenUpdating = True
ActiveSheet.Protect Password:=""


End Sub

Gr, Erwin

 

[snb]

of

Sub AutofitColumns()
    With Sheets(1).Columns(15).Resize(, Sheets(1).UsedRange.Columns.Count - 14)
       .AutoFit
       For Each cl In .Columns
          cl.ColumnWidth = Application.Max(cl.ColumnWidth, 6.57)
       Next
    End With
End Sub

 

[surfingmaster]

Hallo dames en heren,

ik heb nog 1 vraag. Ik gebruik nu onderstaande code, maar de 2 na laatste colum moet verborgen blijven en daar moet dus geen autofit op worden toegepast. Weet iemand daar een oplossing voor.

Sub AutofitColumns()
    For Each col In Sheets("Kosten uitg. in tijd").UsedRange.Columns
        If col.Column > 14 Then
            col.AutoFit
            col.ColumnWidth = WorksheetFunction.Max(col.ColumnWidth, 6.57)
        End If
    Next
End Sub

Alvast bedankt,
Erwin

 

[Warme bakkertje]

Sub AutofitColumns()
With Sheets("Kosten uitg. in tijd").UsedRange
For Each col In .Columns
If col.Column > 14 Then
col.AutoFit
col.ColumnWidth = WorksheetFunction.Max(col.ColumnWidth, 6.57)
End If
Next
.Columns(.Columns.Count - 2).Hidden = True
End With
End Sub

 

[Hoornvan]

surfingmaster,

De volgende keer dat je code plaatst, deze dan selecteren en op het # teken klikken.
Je code komt dan netjes in een vak te staan, dank u.

 

[surfingmaster]

Bedankt Rudi en Wim ik heb het aangepast hoor.

 

[Warme bakkertje]

Dan mag deze ook op opgelost, net zoals je andere vraag