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

• #50414 Pá addikt

  Új Válasz 2023-02-07 21:37:48 #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.

  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