2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #50414 Pá addikt
    Új Válasz #50414
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Pá

    addikt

    Sziasztok!

    Van egy ilyen kódom, ami azt csinálja, hogy kijelöl egy 4 oszlop széles range-t és aztán a kijelölt range-t szépen átmásolja egymás mellé és teszi mindezt (itemnbr - 2) alkalommal.

    Sub PAYMENT_SETUP()
       
        Dim itemnbr, i As Integer
        
        Application.ScreenUpdating = False
        
        Range("CO1:CR97").Select
        Selection.Copy
        Range("CO1").Select
        itemnbr = Application.WorksheetFunction.Max(Range("CG:CG"))
        Let i = 2
        Do While i < itemnbr
        ActiveCell.Offset(, 4).Activate
        ActiveSheet.Paste
        i = i + 1
        Loop
        Application.ScreenUpdating = True
        
    End Sub

    Nincs baj bele, jól is működik. Az egyetlen gond hogy nagyon lassú, mivel konkrétan copy&pastelgeti a sorokat. Már a screen update-t is azért kapcsoltam ki, hogy ne kelljen végignézni, de ettől nem lett gyorsabb sajnos. :D

    Szóval van erre a copy&pastre valami alternatív megoldás? Jah az fontos, hogy az eredeti mezőben, amit másolgatok, formulák vannak, relatív hivatkozásokkal, amiket jó lenne megtartani.

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