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

• #13834 Delila_1 veterán hallgat #13831

  Új Válasz 2012-05-25 10:19:46 #13834

  Ú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

  

  Delila_1

  veterán

  válasz hallgat #13831 üzenetére

  Ha a Munka2 lap L oszlopának az aljára akarod bemásolni ismételten a Munka1!B1:T1 tartományát, akkor az usor változót ehhez kell igazítani.

  Sub mm()
  Dim usor As Integer
  
  'Munka1!B1:T1 másolása a Munka2!L2-be transzponálva
  Sheets("Munka1").Range("B1:T1").Copy
  Sheets("Munka2").Select
  Range("L2").Select
  Selection.PasteSpecial Paste:=xlValues, Transpose:=True
  
  'usor az L oszlopban a Munka2 lapon
  usor = Range("L65536").End(xlUp).Row
  
  'másolás az utolsó alatti sorba, transzponálva
  Range("L" & usor + 1).Select
  Selection.PasteSpecial Paste:=xlValues, Transpose:=True
  End Sub

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