Telefonszámunk: 1-472-0679

[Resolved] Makró programozás_For ciklus

Kezdőlap › Fórumok › Excel programozás › [Resolved] Makró programozás_For ciklus

Topic Resolution: Resolved
3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • 2023-04-21-09:18 #9850
    kisszoli9614
    Felhasználó

      Sziasztok!

      Segítségeteket szeretném kérni egy for ciklus megalkotásával kapcsolatban.
      FKERES függvények segítségével szeretnék adatokat rendszerezni különböző intervallumokból.
      Ezek az intervallumok a Munka1 munkalapon vannak:
      – 1. intervallum: P20 – S65
      – 2. intervallum: P70 – S115
      – 3. intervallum: P120 – S165
      – 4. intervallum: P170 – S215
      – 5. intervallum: P220 – S265
      …
      …
      …
      – 50. intervallum: P2470 – S2515

      Az egyes intervallumokból az értékeket a Munka2 munkalapon szeretném sorba rendezni:
      (Az 1. intervallumból az értékeket a Munka2 munkalap 1. sorába, 2. intervallumból az értékeket a Munka2 munkalap 2. sorába, egészen az 50. intervallumig – 50 sorig)

      1. intervallum értékei:
      Munka2 A1 cella -> X érték
      Munka2 B1 cella -> Y érték
      Munka2 C1 cella -> Z érték

      2. intervallum értékei:
      Munka2 A2 cella -> X érték
      Munka2 B2 cella -> Y érték
      Munka2 C2 cella -> Z érték

      (Az FKERES függvények már megvannak)

      Egy olyan for ciklust szeretnék megalkotni ami egymás után megvizsgálja az intervallumokat és az FKERES függvények alapján megvalósul az adatrendezés.

      Előre is köszönöm a segítséget!

      2023-04-21-16:14 #9852
      delila
      Felhasználó

        Szia!

        Ha az adatrendezést úgy érted, hogy a Munka1 lap kikeresett értékeit beírod a Munka2 lap megfelelő soraiba, ill. oszlopaiba, akkor ezt javaslom:

        Sub Ciklus()
    Dim tol As Integer, ig As Integer, ide As Integer, keres As Integer
    Sheets("Munka1").Select
    
    ide = 0
    For keres = 20 To 2500 Step 50
        tol = keres: ig = keres + 50
        ide = ide + 1
        FKeres tol, ig, ide
    Next
End Sub

Sub FKeres(tol, ig, ide)
    Sheets("Munka2").Cells(ide, 1) = Application.WorksheetFunction.VLookup("X", Range("P" & tol & ":Q" & ig), 2, 0)
    Sheets("Munka2").Cells(ide, 2) = Application.WorksheetFunction.VLookup("Y", Range("P" & tol & ":Q" & ig), 2, 0)
    Sheets("Munka2").Cells(ide, 3) = Application.WorksheetFunction.VLookup("Z", Range("P" & tol & ":Q" & ig), 2, 0)
End Sub

        A VLOOLUP a P:Q tartományban keres, a Q értékét adja vissza.

        Delila

        2023-05-11-09:38 #9891
        kisszoli9614
        Felhasználó

          Szia!

          Köszönöm szépen a segítséget!
          Tökéletesen működik!

        • Szerző
          Bejegyzés
        3 bejegyzés megtekintése - 1-3 / 3
        • Be kell jelentkezni a hozzászóláshoz.