Telefonszámunk: 1-472-0679

[Resolved] Kitöltés értékkel

Kezdőlap › Fórumok › Excel programozás › [Resolved] Kitöltés értékkel

Topic Resolution: Resolved
4 bejegyzés megtekintése - 1-4 / 4
  • Szerző
    Bejegyzés
  • 2021-02-12-10:11 #8268
    kovacsl1968
    Felhasználó

      Sziasztok! Egyeseknek egy kisapróság, nekem evolúciós ugrás: kitöltés makróval, egy oszlopban az értékek 1-100 között, mindegyik érték szerepeljen 10x. Egyelőre sikeresen kitöltettem csak az 1-es értékkel. Azt szeretném megadni, hogy 10 darab után az értéket növelje 1-el.

      Sub ID()

      a = 1
      For i = 2 To 1001
      For j = 2 To 2
      Sheets(“osszefuz”).Cells(i, j) = a
      CountIf.Cells(i, j) = 10
      Sheets(“osszefuz”).Cells(i, j) = a + 1
      Next j
      Next i

      End Sub

      A countif… sornál elakadtam. Kérhetek ismét segítséget? Köszönöm!

      2021-02-12-10:58 #8270
      delila
      Felhasználó

        Szia,
        Talán ezzel:

        Sub ID()
    Dim sor As Integer, ertek As Integer
    
    ertek = 10
    For sor = 2 To 101 Step 10
        Sheets("osszefuz").Range("B" & sor & ":B" & sor + 9) = ertek
        ertek = ertek + 10
    Next
End Sub

        Üdv, Delila

        2021-02-12-11:03 #8272
        kovacsl1968
        Felhasználó

          Ismét köszönöm!

          2021-02-12-11:08 #8273
          delila
          Felhasználó

            Szívesen. 🙂

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