#1
|
|||
|
|||
Problem with ActiveSheet.Paste function
Hello All,
I used for a long time a small code into a worksheet to avoid doing manual Copy/Paste. Since 2019 this code worked well until yesterday. This is te part of my code where the problem happend. Code:
If ind > 5 Then 'Pour éviter de copier l'entête du tableau splagePrec = "A" + Trim(CStr(ind - 1)) & ":M" & Trim(CStr(ind - 1)) Range(splagePrec).Select Selection.Copy splage = "A" + Trim(CStr(ind)) Range(splage).Select ActiveSheet.Paste End If It can take 15 min to execute this simple line. I have tested on Windows 11/Excel 2019 PC and on Windows 10/Excel 2016 PC. the result is similar. I don't understand why this problem start now thank you for any help |
#2
|
||||
|
||||
A guess:
Either you're copying some formulae which are complex or refer to entire rows/columns and/or the cells you're changing are the precedents to many and/or complex formulae (possibly also involving entire columns). So the time taken may be the recalculation time. Do you see evidence of calculation taking place on the status bar at the bottom of the sheet? Changing calculation to manual may not speed things up but it's worth a try to see if it makes a difference. ps. your code could probably be shortened to: Code:
If ind > 5 Then 'Pour éviter de copier l'entête du tableau Range("A" & ind - 1 & ":M" & ind - 1).Copy Range("A" & ind) End If Code:
If ind > 5 Then 'Pour éviter de copier l'entête du tableau Cells(ind - 1, "A").Resize(, 13).Copy Cells(ind, "A") End If |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Copy and paste function for Command Button | Will267 | Word VBA | 1 | 05-12-2021 02:31 PM |
Replicate the copy/paste function, without involving the clipboard | alex100 | Word VBA | 8 | 11-09-2020 08:19 AM |
Problem with Value function | misokol | Excel | 3 | 01-11-2017 08:59 AM |
Problem with function | PRA007 | Word VBA | 2 | 01-13-2016 01:11 AM |
New mail - Paste function | craigfer | Outlook | 0 | 05-27-2015 08:32 AM |