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

• #3751 Delila_1 veterán ssrobi #3750

  Új Válasz 2008-07-25 08:00:41 #3751

  Ú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 ssrobi #3750 üzenetére

  Érdemes a makró elején meghatározni a kiinduló lapot.
  Ha a kiinduló lapon az A16 fölött nincs adat, hibás lesz a kijelölés, ezért inkább az
  usor = Range("A65536").End(xlUp).Row -val keresd ki az A oszlop utolsó sorát.
  A nyilvántartás lapra a Select-tel lépj át.

  Sheets("kiinduló lap").Select
  usor = Range("A65536").End(xlUp).Row
  Range("A16:J" & usor).Select
  Selection.Copy
  Sheets("nyilvántartás").Select
  Cells(1, 1).Select
  ucso=Selection.End(xlDown).Row+1 'Itt adod meg az utolsó alatti sort (+1)
  Cells(ucso, 1).Select
  Selection.PasteSpecial Paste:=xlPasteValues

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