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

• #19837 bandus veterán Gandalf80 #19835

  Új Válasz 2013-12-09 17:04:22 #19837

  Ú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

  

  bandus

  veterán

  válasz Gandalf80 #19835 üzenetére

  szia, az első kérdésedre tudom a választ, biztos leeht jobban is csinálni, de működik, én is csak most tanulom a dolgot.

  Sub transzponalas()
  
  ActiveSheet.Range("A1:B7").Copy 'itt adod meg a másolandó ranget amire épp szükséged van
  
  'itt megadod a másolás helyét, a Munka2-t átírod a kívánt munkalap nevére, jelen esetben azt hiszem Kiküldve I, A1 cella
  'helyére pedig a tartomány első celláját írod
  Sheets("Munka2").Range("A1").PasteSpecial Paste:=xlPasteValues, Transpose:=True
  'Sheets("Munka2").Activate ha szeretnéd, hogy a másik munkalap legyen aktív ezután, akkor vedd ki e sor elejéről a '-t
  
  Application.CutCopyMode = False 'ez megszünteti a kijelölést
  
  End Sub

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