Új hozzászólás Aktív témák

• #53937 föccer nagyúr TigerCat #53936

  Új Válasz 2025-01-28 10:26:06 #53937

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  föccer

  nagyúr

  válasz TigerCat #53936 üzenetére

  Makróval viszonylag könnyű.
  Egy gombhoz kötöttem a makró indítását, a Munka2 A1 cellába írtam be, hogy mennyivel növelje a szélességet.

  Az összes, Munka1 lapon lévő oszlopot autofit-re állítja, majd az összes használt oszlop méretéhez hozzáadja a munka2 A1 cellába beírt értéket.

  Sub Szelesseg_igazitas()
Dim i As Integer

Worksheets("Munka1").UsedRange.Columns.AutoFit

For i = 1 To Sheets("Munka1").UsedRange.Columns.Count
  Worksheets("Munka1").Columns(i).ColumnWidth = Worksheets("Munka1").Columns(i).ColumnWidth + Sheets("Munka2").Range("A1").Value
Next
MsgBox "Kész"
End Sub

Új hozzászólás Aktív témák