Ú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

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