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

• #13831 hallgat csendes tag Delila_1 #13826

  Új Válasz 2012-05-25 10:03:42 #13831

  Ú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

  

  hallgat

  csendes tag

  válasz Delila_1 #13826 üzenetére

  Sikerült kipróbálnom, de sajnos nem működik.
  Ez a programrész most:

  usor = Range("A1").End(xlDown).Row
  
  Sheets("Munka1").Activate
  Range("B1:T1").Select
  Selection.Copy
  Worksheets("Munka2").Activate
  Sheets("Munka2").Range("L2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=True
  
  Application.CutCopyMode = False
  Selection.Copy
  Range("L21:L" & usor).Select
  ActiveSheet.Paste

  Munka1-ről áthozza az adatokat Munka2 L2:L20 részébe, be is másolja transzponálással, ki is jelöli, látszik, hogy ki is teszi vágólapra, de itt leakad. A Debug pedig annál a sornál áll, ami kijelölné L21:Lusor területet.

  Lehet nem is szintaktikai a hibám, hanem a logikai felépítéssel van a gond.

  Elvesztettem a fonalat...

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