Ú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...

• #13829 hallgat csendes tag Delila_1 #13826

  Új Válasz 2012-05-25 09:34:28 #13829

  Ú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

  Köszönet!!!
  Ezzel próbálkoztam: Range("B2" & ":B" & usor).Select
  de ezt nem szerette.

  Kipróbálni csak holnap tudom, de remélem menni fog.
  Nincs szükség a kód elején a Dim usor As Integer meghatározásra? Lehet ezért nem ment, mert ezt beírtam?

  Még egyszer köszönöm!!

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