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

  • Oly

    őstag

    Sziasztok

    Van egy hosszabb makróm, amiből kivettem most egy pár sort:

    s = s + 1
    Cells(s + 1, 11).Value = DateValue(Now)
    Cells(s + 1, 12).Value = Cells(m + 1, 1).Value

    Cells(s + 1, 13).Value = "A"
    Cells(s + 1, 14).Value = 48
    s = s + 1
    Cells(s + 1, 11).Value = DateValue(Now)
    Cells(s + 1, 12).Value = Cells(m + 1, 1).Value

    Cells(s + 1, 13).Value = "A"
    Cells(s + 1, 14).Value = 49
    s = s + 1
    Cells(s + 1, 11).Value = DateValue(Now)
    Cells(s + 1, 12).Value = Cells(m + 1, 1).Value

    Cells(s + 1, 13).Value = "A"
    Cells(s + 1, 14).Value = 31
    Cells(s + 1, 15).Value = "ID"
    s = s + 1
    Cells(s + 1, 11).Value = DateValue(Now)
    Cells(s + 1, 12).Value = Cells(m + 1, 1).Value

    Cells(s + 1, 13).Value = "A"

    A félkövérrel kiemelt rész ismétlődik elég sokszor.
    Van arra lehetőség, hogy ez csak egyszer szerepeljen a kódban, amit mindig meghívok a megfelelő helyen?

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