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

• #32252 DeFranco nagyúr

  Új Válasz 2016-08-05 15:46:37 #32252

  Ú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

  

  DeFranco

  nagyúr

  sziasztok!

  valószínűleg nagy katyvaszt sikerült összekalapálnom a jelenlegi makró nemtudásommal, de szükség lenne egy variált/permutált listára.

  a lényeg, hogy az i j és k paramétert minden módon párosítsa össze

  i1j1k1
  i1j1k2
  i1j1k3
  stb. módon, egymás melletti cellában levő értékenként, triumvirátusonként külön sorba.

  az alábbi makró végigmegy a lehetőségeken, de közben nem vált sort, így egy helyen íródnak felül az adatok. hogy lehetne rendbe szedni?

  Sub Kitolto()

Do

For i = 1993 To 2014
For j = 1 To 3
For k = 1 To 76

x = 1

Cells(x + 1, 2).Value = i
Cells(x + 1, 3).Value = ThisWorkbook.Sheets("Valami_tábla").Cells(2, j + 1).Value
Cells(x + 1, 4).Value = ThisWorkbook.Sheets("Valami_tábla").Cells(k + 2, 1).Value

x = x + 1

Next k
Next j
Next i

Loop Until x = 5016

End Sub

  szerk: az X=1-et felpakolva a for-ok fölé már működik, csak veszett lassú. miért?

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