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

Ennek a témakörnek tartalma 3 hozzászólás, 2 résztvevő. Utolsó frissítés:  delila 2 hete, 2 napja telt el.

4 bejegyzés megtekintése - 1-4 / 4
  • Szerző
    Bejegyzés
  • #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!

    #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

    #8272

    kovacsl1968
    Felhasználó

    Ismét köszönöm!

    #8273

    delila
    Felhasználó

    Szívesen. 🙂

4 bejegyzés megtekintése - 1-4 / 4

Be kell jelentkezni a hozzászóláshoz.