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

• #25806 Vladek83 tag Fferi50 #25797

  Új Válasz 2015-03-08 10:51:35 #25806

  Ú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

  

  Vladek83

  tag

  válasz Fferi50 #25797 üzenetére

  Szia,

  köszi, de nem erre gondoltam. Lehet én nem írtam le egyértelműen.

  a következő makró fut le:

  Sub Nyomtatas()
  
  Dim s As Integer
  s = Range("AJ31")
  Range("A1:O" & s + 32).Select
  ActiveSheet.PageSetup.PrintArea = "$A$1:$O$" & s + 32
  Range("a2").Select
  
  End Sub

  amit szeretnék, hogy az úgynevezett "fejléc" lenne a 2. oldaltól kezdve az A30 : O30-ig levő tartomány.

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