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

• #26176 Louro őstag fluxion #26169

  Új Válasz 2015-03-23 16:19:46 #26176

  Ú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

  

  Louro

  őstag

  válasz fluxion #26169 üzenetére

  Ha jól értem transzponálni szeretnél?

  Pl.:
  Élelmiszer_____________Élelmiszer
  Édesség______________Édesség
  Belvita jóreggelt________Orbit eper
  Nettó ár______________Nettó ár

  Vagy

  Élelmiszer______Édesség_____Belvita_____Nettó ár
  Élelmiszer______Édesség_____Orbit_______Nettó ár

  (Az alsóvonások csak az olvashatóság miatt vannak )

  Ha minden termék 4 adatból áll, akkor szerencsések vagyunk, mert ciklussal gyorsan feldolgozhatóak. Csak a kérdés, hogy a fentiből melyik kell.

  Ha a 2., akkor
  Sub darabolo()
  
  Dim LastRow As Integer
  LastRow = ActiveSheet.UsedRange.Rows.Count
  
  For i = 1 To LastRow Step 5
  For j = 0 To 3
  'Vegye ki az első négy sort és illessze be pár oszloppal odébb.
  Cells(i + j, 1).Select
  Selection.Copy
  Cells(i, 3 + j).PasteSpecial xlPasteValues
  Next
  'Az elválasztó sor miatt ugrok 5-öt.
  Next
  
  
  End Sub

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