Hirdetés

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

  • Oly

    senior tag

    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?

    SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

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