Ú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

• #12728 Delila_1 veterán shiz #12727

  Új Válasz 2012-01-30 13:16:55 #12728

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

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

• #12726 Delila_1 veterán shiz #12725

  Új Válasz 2012-01-30 13:05:33 #12726

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

  Tegyél be egy képet az eredeti-, egy másikat az óhajtott kinézetről, mert ezt most nem tudom követni.

• #12724 Delila_1 veterán shiz #12723

  Új Válasz 2012-01-30 12:43:46 #12724

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

  A Munka2 lapra viszi át az adatokat. Feltételezem, hogy a másolandó lapon a címsor alatt, a 2. sorban kezdődnek az adatok.

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

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