Ú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

• #13833 Delila_1 veterán hallgat #13831

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

  Ú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

• #13832 hallgat csendes tag hallgat #13831

  Új Válasz 2012-05-25 10:17:37 #13832

  Ú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 hallgat #13831 üzenetére

  Ami számomra még furcsa, hogy ha makró rögzítővel kézzel megcsinálom a műveletet és ezt illesztem be a kódba, akkor ugyan az marad a szintaktika, csak a
  Range("L21:L" & usor).Select
  helyett a jelenlegi adatok mennyisége miatt ez lesz:
  Range(L21:L286).Select

  ami szintén nem fut le, ugyan ennél a sornál leáll.
  Pedig ezt a sajár makrórögzítője csinálta

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