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

• #20125 the radish senior tag

  Új Válasz 2014-01-18 07:40:10 #20125

  Ú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

  

  the radish

  senior tag

  Sziasztok!

  Szeretnék egy makrót úgy átalakítani, hogy ha tegyük fel az A1 cella üres, akkor lépjen tovább és a következő része fusson le, de ha mondjuk 1, akkor fusson le az adott rész is.

  Ide kéne valami, ha 0, akkor a következő fusson, ha 1, akkor ez is.
  Sheets("00").Select
  Range("S7,U7:V7").Select
  Range("U7").Activate
  Selection.Copy
  Sheets("Vágólap").Select
  Range("I2").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Windows("Csekk.xls").Visible = True
  Application.CutCopyMode = False
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  ActiveWindow.Visible = False
  Sheets("00").Select
  Range("A66").Select
  ActiveWorkbook.Save

  Ide kéne valami, ha 0, akkor a következő fusson, ha 1, akkor ez is.
  Sheets("00").Select
  Range("S8,U8:V8").Select
  Range("U8").Activate
  Selection.Copy
  Sheets("Vágólap").Select
  Range("I2").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Windows("Csekk.xls").Visible = True
  Application.CutCopyMode = False
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  ActiveWindow.Visible = False
  Sheets("00").Select
  Range("A66").Select
  ActiveWorkbook.Save

  Ide kéne valami, ha 0, akkor a következő fusson, ha 1, akkor ez is.
  Sheets("00").Select
  Range("S10,U10:V10").Select
  Range("U10").Activate
  Selection.Copy
  Sheets("Vágólap").Select
  Range("I2").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Windows("Csekk.xls").Visible = True
  Application.CutCopyMode = False
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  ActiveWindow.Visible = False
  Sheets("00").Select
  Range("A66").Select
  ActiveWorkbook.Save
  ...

  Köszi előre is.

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