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

• #3750 ssrobi csendes tag Delila_1 #3748

  Új Válasz 2008-07-24 23:20:10 #3750

  Ú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

  

  ssrobi

  csendes tag

  válasz Delila_1 #3748 üzenetére

  Azért persze csak lenne még egy kérdésem Mi kell ahoz, hogy az utolsó celle alá lépjen, mert én oda ismét beillesztenék valamit Illetve az alábbival mi a gond:

  Range("A16:j" & ActiveSheet.UsedRange.Rows.Count).Select
  Selection.Copy
  Worksheets("nyilvántartás").Activate
  Cells(1,1).Select
  Selection.End(xlDown).Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False

  és a Cells(1,1).Select-re mindíg valami hibát ír ki, azért mert magát a makrót induláskor egy másik lapról indítom, vagy leglábbis gondolom hogy azért mit kéne tegyek, tudnátok segíteni?

  köszike

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