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

• #21177 mr.nagy tag

  Új Válasz 2014-04-01 18:43:18 #21177

  Ú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

  

  mr.nagy

  tag

  Sziasztok!

  Az alábbi makró részlettel van gondom:
  usor = Cells(Rows.Count, "A").End(xlUp).Row
  Range("A6:A" & usor).Select 'ez a terület kerül átmásolásra
  Application.CutCopyMode = False
  Selection.Copy
  
  Sheets("munka2").Activate
  Sheets("munka2").Range("B13").Select
  
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False

  Ha 4-nél kevesebb a sorok száma akkor nem jól működik, mert 4-et jelöl ki és másol át. Függetlenül attól, hogy 1; 2 vagy három adat sor van. Ha 4 vagy annál több az adatsor akkor kifogástalanul működik.
  Mi lehet a gond?

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