Hirdetés

Keresés

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

  • VGYke

    addikt

    válasz Delila_1 #12973 üzenetére

    Ismét köszönöm!
    Most olyan "problémába" ütköztem, hogy írtam egy primitív makrót, ami nem csinál mást, mint a Lap nevű munkalapról, a makró indításának helyén lévő munkalapra másol adatokat. Na jó, van benne minimális képletezés is, itt, ott.
    Sub Kitolt()
    Lap = "Lekérdezés"
    smax = Sheets(Lap).UsedRange.Rows.Count
    For L = 1 To smax - 1
    Cells(L + 1, 1) = Sheets(Lap).Cells(L, 1)
    szla = Sheets(Lap).Cells(L, 2)
    b = Left(szla, 8) + "-" + Mid(szla, 9, 8) + "-" + Mid(szla, 17, 8)
    Cells(L + 1, 2) = b
    '......hasonló 8. oszlopig
    Next L
    End Sub

    Van 8 kitöltendő oszlop és jelenleg 850 sor. A makró kb. 4-5 perc alatt fut le, 50% proci terhelés mellett, pedig nem annyira gagyi a gép. Ez így normális és ilyen feladatot ne makróval, hanem excel képletekkel oldjak meg?

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