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

• #33946 Fferi50 Topikgazda nordican #33944

  Új Válasz 2017-01-28 21:30:37 #33946

  Ú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

  

  Fferi50

  Topikgazda

  válasz nordican #33944 üzenetére

  Szia!

  Magától nem növekszik a sormagasság , akkor sem, ha egyszer beállítottad ezt a tulajdonságot. Sajnos minden alkalommal újra kell állítani, amikor adat kerül bele. Erre csinálhatsz egy makrót (rögzítés), amit betehetsz a főlapod változás eseményébe (worksheet_change). Ezáltal lefuthat, valahányszor módosítod a celládat.
  Pl. Range("A1").Rows.AutoFit
  Ha eléteszed a munkalapot, akkor az adott munkalapon hajtja végre:
  Sheets(1).Range("A1").Rows.AutoFit
  Az esemény vizsgálatnál meg kell nézned, hogy valóban egy listás cellát változtattál-e meg, ennek egyik módja lehet:
  IPrivate Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Union(Range("A1"), Range("K1"))) Is Nothing Then Makró1
  'ide sorold fel az Union függvényen belül azokat a cellákat, ahol listád lesz.
  End Sub

  Sub Makró1()
  Sheets("Munka1").Range("A1").Rows.AutoFit
  Sheets("Munka2").Range("A1").Rows.AutoFit
  'és így tovább, minden lapra és cellára
  End Sub

  Üdv.

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