Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #32252 DeFranco nagyúr
    Új Válasz #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