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

• #36603 Pakliman tag JagdPanther #36601

  Új Válasz 2017-11-21 12:48:21 #36603

  Ú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

  

  Pakliman

  tag

  válasz JagdPanther #36601 üzenetére

  Az NRow = 4 helyett meg kellene határoznod a jelenlegi utolsó sort:

  Pl.:
  NRow = SummarySheet.Cells.Find(What:="*", _
After:=SummarySheet.Cells.Range("A1"), _
SearchDirection:=xlPrevious, _
LookIn:=xlValues, _
SearchOrder:=xlByRows).Row

  A másolandónál:
  Meghatározod a másolandó munkalap utolsó sorát, aztán:
  WorkBk.Worksheets(1).Range("A6:V" & LastRow).Copy (Biztos, hogy "A6"?)
  SummarySheet.Cells(NRow + 1, 1).PasteSpecial Paste:=xlPasteValues (ha csak az érték kell)

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