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

• #21700 Delila_1 veterán Gabcsika #21699

  Új Válasz 2014-05-21 10:06:55 #21700

  Ú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

  

  Delila_1

  veterán

  válasz Gabcsika #21699 üzenetére

  Másol, kinyomtatja az első átmásolt mennyiséget, törli a Sheet2 lap tartalmát, másolja és nyomtatja a következőt. Ezt addig folytatja, míg a Sheet1 lapon talál adatot

  Az utolsó adagot az én hibám miatt nem nyomtatja. Az eredeti makró Loop sora alá másold be:

  If Sheets("Sheet2").Range("A1") > "" Then
  Sheets("Sheet2").Select
  ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
  Cells.ClearContents
  Sheets("Sheet1").Select
  End If

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