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

• #22184 Delila_1 veterán slashing #22183

  Új Válasz 2014-06-29 14:00:00 #22184

  Ú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 slashing #22183 üzenetére

  Legegyszerűbb, ha minden füzetben a másolandó oldalt az első helyre mozgatod. Ekkor a DoWork makróban a

  usor = .Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row

  sor helyett

  usor = .Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

  kerül, a

  Workbooks(WBN).Sheets("6120-1121 PCB OLDAL").Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True

  helyett pedig

  Workbooks(WBN).Sheets(1).Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True

  Az összegző füzetben is első legyen a lap, ahova bemásolod a többi füzetből az adatokat.

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