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

• #26642 Delila_1 veterán huliganboy #26640

  Új Válasz 2015-04-23 07:28:09 #26642

  Ú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

  A BAL(TRANSZPONÁLÁS(... képlet hibás. Ha a transzponált adatoknál az eredeti értékek bal oldali 5 karakterét akarod látni, akkor a makró

  Sub Transzponalas()
  Dim sorInnen As Long, sorIde As Long, oszlop As Integer
  Dim usor As Long
  
  Sheets("Munka2").Select
  sorInnen = 3: sorIde = 1: usor = Range("B" & Rows.Count).End(xlUp).Row
  
  For sorInnen = 3 To usor Step 2
  For oszlop = 2 To 8
  Sheets("Munka1").Cells(sorIde, 1) = Left(Cells(sorInnen, oszlop), 5)
  sorIde = sorIde + 1
  Next
  Next
  End Sub

• #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