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

• #12733 Delila_1 veterán shiz #12729

  Új Válasz 2012-01-30 16:39:29 #12733

  Ú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 shiz #12729 üzenetére

  Az 500 sorra eddig is jó volt, most átírtam, hogy annyi oszloppal számoljon, ahány van.

  Sub átrendez()
  Dim sor%, usor%, oszlop%, uoszlop%, sor1%, WS2 As Worksheet
  
  Set WS2 = Sheets("Munka2")
  usor% = Range("A1").End(xlDown).Row
  uoszlop% = Range("IV1").End(xlToLeft).Column
  sor1% = 2
  
  For sor% = 2 To usor%
  WS2.Cells(sor1%, 1) = Cells(sor%, 1)
  For oszlop% = 2 To uoszlop%
  WS2.Cells(sor1%, 2) = Cells(sor%, oszlop%)
  WS2.Cells(sor1%, 3) = oszlop% - 1
  sor1% = sor1% + 1
  Next
  Next
  End Sub

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