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

• #20113 Delila_1 veterán nzsolt74 #20112

  Új Válasz 2014-01-17 12:36:44 #20113

  Ú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 nzsolt74 #20112 üzenetére

  Egy rövid makró megcsinálja.

  Sub Transzponalas()
  Dim WS1 As Worksheet, WS2 As Worksheet
  Dim sor As Long, tol As Long, ig As Long, ures As Long
  Set WS1 = Sheets("Munka1")
  Set WS2 = Sheets("Munka2")
  
  WS1.Activate
  'Címsor másolása
  Range("A1:A14").Copy
  WS2.Range("A1").PasteSpecial Paste:=xlPasteValues, Transpose:=True
  
  'Egységek másolása
  ures = 2: tol = 1: ig = 14
  Do While Cells(ig, 1) <> ""
  Range("B" & tol & ":B" & ig).Copy
  WS2.Range("A" & ures).PasteSpecial Paste:=xlValues, Transpose:=True
  tol = tol + 14: ig = ig + 14: ures = ures + 1
  Loop
  End Sub

  Szerk.: A Set-tel kezdődő 2 sorban írd át a lapneveket. Munka1 helyett az adatokat tartalmazó lapodat, Munka2 helyett pedig azt írd be, ahova át akarod írni más formában.

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