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

• #26641 Delila_1 veterán huliganboy #26640

  Új Válasz 2015-04-23 07:01:53 #26641

  Ú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 huliganboy #26640 üzenetére

  Egy rövid makró gyorsan megoldja a problémát.

  Sub Transzponalas()
  Dim sorInnen As Long, sorIde As Long
  
  Sheets("Munka2").Select
  sorInnen = 3: sorIde = 1
  Do While Cells(sorInnen, 2) <> ""
  Range("B" & sorInnen & ":H" & sorInnen).Copy
  Sheets("Munka1").Cells(sorIde, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
  sorInnen = sorInnen + 2
  sorIde = sorIde + 7
  Loop
  End Sub

  A Munka1 lapra transzponál, az első sortól kezdve. A kezdő sort a sorIde változóban módosíthatod, a lap nevét a Sheets("Munka1"). kezdetű sorban.

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