+ Reply to Thread
Results 1 to 13 of 13

Current code to cycle through sheets and copy values is very slow - can it be sped up?

Hybrid View

  1. 09-28-2017, 05:45 AM #1
    maym
    maym is offline
    Forum Contributor
    Join Date
    10-12-2011
    Location
    Sydney
    MS-Off Ver
    Excel 2016 in 2024
    Posts
    857

    Current code to cycle through sheets and copy values is very slow - can it be sped up?

    Hi

    I have the following code that cycles through my workbook (currently has about 150 sheets so is very large) and copies certain values to my main sheet. It is extremely slow.

    I am wondering if there is a better and faster way to do this? I also update my workbook frequently so when I add a sheet, I need to run the code all over again, which is very frustrating. I am looking for a way to also just update based on the sheet I have just added?

    This is just one part of the code - it is repeated three more times however I cannot post here as it is too long!

    Sub Populate_Summary_L()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic
    
    Dim ws_count As Integer
    Dim j As Integer
    Dim k As Integer
    Dim c As Range
    Dim lRow As Long
    Dim ws2 As Worksheet
    Set ws2 = Sheets("Summary_L")
    
    lRow = ws2.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
    
        'clear the contents first from the summary sheet
        ws2.Range("A4:AT" & lRow).ClearContents
        
        
        ' Set ws_count equal to the number of worksheets in the active workbook.
         ws_count = ActiveWorkbook.Worksheets.Count
              
        ' Begin the loop.
         For j = 1 To ws_count
                              
                If Sheets(j).Name <> "Summary_L" And _
                    Sheets(j).Name <> "Summary_B" And _
                     Sheets(j).Name <> "Today" And _
                      Sheets(j).Name <> "Lookup Table" And _
                       Sheets(j).Name <> "Index" Then
                                  
                                       
                    Dim lastRow As Integer
                    lastRow = Sheets(j).Range("A" & Rows.Count).End(xlUp).Row
                           
                        For i = 10 To lastRow Step 11
                            
                            'v
                                Sheets(j).Range("B7").Copy
                                ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                ws2.Cells(Rows.Count, "S").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                ws2.Cells(Rows.Count, "AK").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                ws2.Cells(Rows.Count, "BC").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                
                            'v code
                                Sheets(j).Range("B8").Copy
                                ws2.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                ws2.Cells(Rows.Count, "T").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                ws2.Cells(Rows.Count, "AL").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                ws2.Cells(Rows.Count, "BD").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                
                            'r type
                                Sheets(j).Cells(i, 1).Copy
                                ws2.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                ws2.Cells(Rows.Count, "U").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                ws2.Cells(Rows.Count, "AM").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                                ws2.Cells(Rows.Count, "BE").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                            
                            'start the copy based on criteria
                            
                                    If Sheets(j).Cells(i, 1).Offset(9, 1) = "L" Then
                            
                                    'G rating
                                    '1FWL
                            
                                        'equal to or > 10 r criteria
                                            If Sheets(j).Cells(i, 4) >= 10 Then
                                                                                                              
                                            'equal to or less than req'd %
                                               'If Sheets(j).Cells(i, 4).Offset(3).Value / 100 <= Cells(i, 4).Offset(2).Value Then
                                               If Sheets(j).Cells(i, 4).Offset(2).Value <= 100 / (Sheets(j).Cells(i, 4).Offset(3).Value * 100) Then
                                                
                                                'equal to venue
                                                    If Sheets(j).Cells(i, 1) = ws2.Cells(Rows.Count, "C").End(xlUp) Then
                      
                                                        'copy l %
                                                            Sheets(j).Cells(i, 4).Offset(9).Copy
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 3).PasteSpecial xlPasteValues
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 3).PasteSpecial xlPasteFormats
                                                            
                                                        'copy av
                                                            Sheets(j).Cells(i, 4).Offset(3).Copy
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 4).PasteSpecial xlPasteValues
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 4).PasteSpecial xlPasteFormats
                                                    End If
                                                End If
                                            End If
                                    
                                    
                                    '2FWL
                            
                                        'equal to or > 10 r criteria
                                            If Sheets(j).Cells(i, 5) >= 10 Then
                                                                                                              
                                            'equal to or less than req'd %
                                               If Sheets(j).Cells(i, 5).Offset(2).Value <= 100 / (Sheets(j).Cells(i, 5).Offset(3).Value * 100) Then
                            
                                                'equal to v
                                                    If Sheets(j).Cells(i, 1) = ws2.Cells(Rows.Count, "C").End(xlUp) Then
                      
                                                        'copy l %
                                                            Sheets(j).Cells(i, 5).Offset(9).Copy
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 5).PasteSpecial xlPasteValues
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 5).PasteSpecial xlPasteFormats
                                                        
                                                        'copy Av
                                                            Sheets(j).Cells(i, 5).Offset(3).Copy
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 6).PasteSpecial xlPasteValues
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 6).PasteSpecial xlPasteFormats
                                                    End If
                                                End If
                                            End If
                                    
                                    
                                    '3FWL
                            
                                        'equal to or > 10 r criteria
                                            If Sheets(j).Cells(i, 6) >= 10 Then
                                                                                                              
                                           'equal to or less than req'd %
                                               If Sheets(j).Cells(i, 6).Offset(2).Value <= 100 / (Sheets(j).Cells(i, 6).Offset(3).Value * 100) Then
                            
                                                'equal to v
                                                    If Sheets(j).Cells(i, 1) = ws2.Cells(Rows.Count, "C").End(xlUp) Then
                      
                                                        'copy l %
                                                            Sheets(j).Cells(i, 6).Offset(9).Copy
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 7).PasteSpecial xlPasteValues
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 7).PasteSpecial xlPasteFormats
                                                            
                                                        'copy av
                                                            Sheets(j).Cells(i, 6).Offset(3).Copy
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 8).PasteSpecial xlPasteValues
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 8).PasteSpecial xlPasteFormats
                                                            
                                                    End If
                                                End If
                                            End If
                                    
                                    
                                    '1FPL
                            
                                        'equal to or > 10 r criteria
                                            If Sheets(j).Cells(i, 8) >= 10 Then
                                                                                                              
                                            'equal to or less than req'd %
                                               If Sheets(j).Cells(i, 8).Offset(2).Value <= 100 / (Sheets(j).Cells(i, 8).Offset(3).Value * 100) Then
                            
                                                'equal to v
                                                    If Sheets(j).Cells(i, 1) = ws2.Cells(Rows.Count, "C").End(xlUp) Then
                      
                                                        'copy l %
                                                            Sheets(j).Cells(i, 8).Offset(9).Copy
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 10).PasteSpecial xlPasteValues
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 10).PasteSpecial xlPasteFormats
                                                            
                                                        'copy Av
                                                            Sheets(j).Cells(i, 8).Offset(3).Copy
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 11).PasteSpecial xlPasteValues
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 11).PasteSpecial xlPasteFormats
                                                            
                                                    End If
                                                End If
                                            End If
                                    
                                    
                                    '2FPL
                            
                                        'equal to or > 10 r criteria
                                            If Sheets(j).Cells(i, 9) >= 10 Then
                                                                                                              
                                            'equal to or less than %
                                               If Sheets(j).Cells(i, 9).Offset(2).Value <= 100 / (Sheets(j).Cells(i, 9).Offset(3).Value * 100) Then
                                               
                                                'equal to v
                                                    If Sheets(j).Cells(i, 1) = ws2.Cells(Rows.Count, "C").End(xlUp) Then
                      
                                                        'copy l %
                                                            Sheets(j).Cells(i, 9).Offset(9).Copy
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 12).PasteSpecial xlPasteValues
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 12).PasteSpecial xlPasteFormats
                                                        
                                                        'copy Av
                                                            Sheets(j).Cells(i, 9).Offset(3).Copy
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 13).PasteSpecial xlPasteValues
                                                            ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 13).PasteSpecial xlPasteFormats
                                                            
                                                    End If
                                                End If
                                            End If                              
                                                                     
                                      
                                      
                                                                            
                                            
                                    
                                    
                                    End If
                        
                        Next i
                        
                                  
                 End If
            Next j
                   
                 
End Sub
    Reply With QuoteRegister To Reply
  2. 09-28-2017, 12:44 PM #2
    gmr4evr1
    gmr4evr1 is offline
    Forum Expert gmr4evr1's Avatar
    Join Date
    11-24-2014
    Location
    Texas
    MS-Off Ver
    Office 2010 and 2007
    Posts
    3,448

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    Change this at the beginning of your code
    Application.Calculation = xlCalculationAutomatic
    to
    Application.Calculation = xlCalculationManual
    Then add this just before the End Sub line
    Application.Calculation = xlCalculationAutomatic
    This should (in theory) speed it up a bit.
    1N73LL1G3NC3 15 7H3 4B1L17Y 70 4D4P7 70 CH4NG3 - 573PH3N H4WK1NG
    You don't have to add Rep if I have helped you out (but it would be nice), but please mark the thread as SOLVED if your issue is resolved.

    Tom
    Reply With QuoteRegister To Reply
  3. 09-28-2017, 01:42 PM #3
    xladept
    xladept is offline
    Forum Guru xladept's Avatar
    Join Date
    04-14-2012
    Location
    Pasadena, California
    MS-Off Ver
    Excel 2003,2010
    Posts
    12,378

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    I don't think it can be "sped-up" - maybe:

    Sub Populate_Summary_L()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim ws_count As Long, j As Long, k As Long, lRow As Long, lastRow As Long
    Dim C As Range, ws2 As Worksheet: Set ws2 = Sheets("Summary_L")
    lRow = ws2.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
        'clear the contents first from the summary sheet
        ws2.Range("A4:AT" & lRow).ClearContents
' Set ws_count equal to the number of worksheets in the active workbook.
         ws_count = ActiveWorkbook.Worksheets.Count
        ' Begin the loop.
        
         For j = 1 To ws_count:With Sheets(j)

     If .Name <> "Summary_L" And _
        .Name <> "Summary_B" And _
        .Name <> "Today" And _
        .Name <> "Lookup Table" And _
        .Name <> "Index" Then
                                  
lastRow = .Range("A" & Rows.Count).End(xlUp).Row
                           
        For i = 10 To lastRow Step 11
                            
                            'v
    ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = .Range("B7").Value
    ws2.Cells(Rows.Count, "S").End(xlUp).Offset(1, 0).Value = .Range("B7").Value
    ws2.Cells(Rows.Count, "AK").End(xlUp).Offset(1, 0).Value = .Range("B7").Value
    ws2.Cells(Rows.Count, "BC").End(xlUp).Offset(1, 0).Value = .Range("B7").Value
                                
                            'v code
    ws2.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = .Range("B8").Value
    ws2.Cells(Rows.Count, "T").End(xlUp).Offset(1, 0).Value = .Range("B8").Value
    ws2.Cells(Rows.Count, "AL").End(xlUp).Offset(1, 0).Value = .Range("B8").Value
    ws2.Cells(Rows.Count, "BD").End(xlUp).Offset(1, 0).Value = .Range("B8").Value
                                
                            'r type
    ws2.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = .Cells(i, 1).Value
    ws2.Cells(Rows.Count, "U").End(xlUp).Offset(1, 0).Value = .Cells(i, 1).Value
    ws2.Cells(Rows.Count, "AM").End(xlUp).Offset(1, 0).Value = .Cells(i, 1).Value
    ws2.Cells(Rows.Count, "BE").End(xlUp).Offset(1, 0).Value = .Cells(i, 1).Value
                            
                            'start the copy based on criteria
                            
                If .Cells(i, 1).Offset(9, 1) = "L" Then
                            
                                    'G rating
                                    '1FWL
                            
                        'equal to or > 10 r criteria
                If .Cells(i, 4) >= 10 Then
                                                                                                              
                        'equal to or less than req'd %
'If Sheets(j).Cells(i, 4).Offset(3).Value / 100 <= Cells(i, 4).Offset(2).Value Then
If .Cells(i, 4).Offset(2).Value <= 100 / (.Cells(i, 4).Offset(3).Value * 100) Then
                        'equal to venue
                If .Cells(i, 1) = ws2.Cells(Rows.Count, "C").End(xlUp) Then
                      
                        'copy l %
                    .Cells(i, 4).Offset(9).Copy
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 3).PasteSpecial xlPasteValues
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 3).PasteSpecial xlPasteFormats
                                                            
                        'copy av
                    .Cells(i, 4).Offset(3).Copy
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 4).PasteSpecial xlPasteValues
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 4).PasteSpecial xlPasteFormats
                End If: End If: End If
                        
                        '2FWL
                'equal to or > 10 r criteria
                If .Cells(i, 5) >= 10 Then
                'equal to or less than req'd %
If .Cells(i, 5).Offset(2).Value <= 100 / (.Cells(i, 5).Offset(3).Value * 100) Then
                        'equal to v
                If .Cells(i, 1) = ws2.Cells(Rows.Count, "C").End(xlUp) Then
                        'copy l %
                .Cells(i, 5).Offset(9).Copy
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 5).PasteSpecial xlPasteValues
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 5).PasteSpecial xlPasteFormats
                        'copy Av
                .Cells(i, 5).Offset(3).Copy
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 6).PasteSpecial xlPasteValues
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 6).PasteSpecial xlPasteFormats
                End If: End If: End If
                                    
                                    '3FWL
                        'equal to or > 10 r criteria
                If .Cells(i, 6) >= 10 Then
                        'equal to or less than req'd %
If .Cells(i, 6).Offset(2).Value <= 100 / (.Cells(i, 6).Offset(3).Value * 100) Then
                        'equal to v
                If .Cells(i, 1) = ws2.Cells(Rows.Count, "C").End(xlUp) Then
                        'copy l %
                    .Cells(i, 6).Offset(9).Copy
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 7).PasteSpecial xlPasteValues
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 7).PasteSpecial xlPasteFormats
                        'copy av
                    .Cells(i, 6).Offset(3).Copy
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 8).PasteSpecial xlPasteValues
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 8).PasteSpecial xlPasteFormats
                End If: End If: End If
                                    
                                    '1FPL
                            'equal to or > 10 r criteria
                If .Cells(i, 8) >= 10 Then
                            'equal to or less than req'd %
If .Cells(i, 8).Offset(2).Value <= 100 / (.Cells(i, 8).Offset(3).Value * 100) Then
                            'equal to v
                If .Cells(i, 1) = ws2.Cells(Rows.Count, "C").End(xlUp) Then
                                'copy l %
                    .Cells(i, 8).Offset(9).Copy
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 10).PasteSpecial xlPasteValues
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 10).PasteSpecial xlPasteFormats
                                'copy Av
                    .Cells(i, 8).Offset(3).Copy
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 11).PasteSpecial xlPasteValues
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 11).PasteSpecial xlPasteFormats
                End If: End If: End If
                                    
                                    '2FPL
                            'equal to or > 10 r criteria
                If .Cells(i, 9) >= 10 Then
                            'equal to or less than %
If .Cells(i, 9).Offset(2).Value <= 100 / (.Cells(i, 9).Offset(3).Value * 100) Then
                            'equal to v
                If .Cells(i, 1) = ws2.Cells(Rows.Count, "C").End(xlUp) Then
                            'copy l %
                    .Cells(i, 9).Offset(9).Copy
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 12).PasteSpecial xlPasteValues
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 12).PasteSpecial xlPasteFormats
                            'copy Av
                    .Cells(i, 9).Offset(3).Copy
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 13).PasteSpecial xlPasteValues
ws2.Cells(Rows.Count, "A").End(xlUp).Offset(0, 13).PasteSpecial xlPasteFormats
                    End If: End If: End If
            End If: Next i
            End If:End With: Next j
 Application.Calculation = xlCalculationAutomatic
End Sub
    Last edited by xladept; 09-29-2017 at 02:23 PM. Reason: Bakerman Correction
    If I've helped you, please consider adding to my reputation - just click on the liitle star at the left.

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(Pride has no aftertaste.)

    You can't do one thing. XLAdept

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~aka Orrin
    Reply With QuoteRegister To Reply
  4. 09-29-2017, 12:26 AM #4
    maym
    maym is offline
    Forum Contributor
    Join Date
    10-12-2011
    Location
    Sydney
    MS-Off Ver
    Excel 2016 in 2024
    Posts
    857

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    I tried this code xladept but I can an error here:

    With Sheets(j)
    The error is 'subscript out of range'?
    Reply With QuoteRegister To Reply
  5. 09-29-2017, 01:01 AM #5
    bakerman2
    bakerman2 is offline
    Forum Guru bakerman2's Avatar
    Join Date
    10-03-2012
    Location
    Antwerp, Belgium
    MS-Off Ver
    MO Prof Plus 2016
    Posts
    6,909

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    Change this.

            With Sheets(j)
         For j = 1 To ws_count
    to this
            For j = 1 To ws_count
        With Sheets(j)
    Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
    You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
    Reply With QuoteRegister To Reply
  6. 09-29-2017, 01:03 AM #6
    maym
    maym is offline
    Forum Contributor
    Join Date
    10-12-2011
    Location
    Sydney
    MS-Off Ver
    Excel 2016 in 2024
    Posts
    857

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    thanks bakerman but now I get this error down the bottom:

    End If: Next j
    which is: 'Next without for'

    I assume I need to re-order these at the end somehow?
    Reply With QuoteRegister To Reply
  7. 09-29-2017, 01:51 AM #7
    bakerman2
    bakerman2 is offline
    Forum Guru bakerman2's Avatar
    Join Date
    10-03-2012
    Location
    Antwerp, Belgium
    MS-Off Ver
    MO Prof Plus 2016
    Posts
    6,909

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    You'll have to indent your code properly and find out where there's missing or misplaced something.
    Reply With QuoteRegister To Reply
  8. 09-29-2017, 01:54 AM #8
    maym
    maym is offline
    Forum Contributor
    Join Date
    10-12-2011
    Location
    Sydney
    MS-Off Ver
    Excel 2016 in 2024
    Posts
    857

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    well, I have taken xladept's suggestion above so I am not exactly sure what's missing?
    Reply With QuoteRegister To Reply
  9. 09-29-2017, 11:14 AM #9
    xladept
    xladept is offline
    Forum Guru xladept's Avatar
    Join Date
    04-14-2012
    Location
    Pasadena, California
    MS-Off Ver
    Excel 2003,2010
    Posts
    12,378

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    I went line by line through your code, unless I missed something the change should have worked

    But, with Bakerman's rearrangement the End With has to precede the Next j.

    I've edited the post
    Last edited by xladept; 09-29-2017 at 02:24 PM.
    Reply With QuoteRegister To Reply
  10. 09-29-2017, 10:03 PM #10
    maym
    maym is offline
    Forum Contributor
    Join Date
    10-12-2011
    Location
    Sydney
    MS-Off Ver
    Excel 2016 in 2024
    Posts
    857

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    with the changes made, it appears to be working now. I will do some more testing.

    Thanks for your help
    Reply With QuoteRegister To Reply
  11. 09-29-2017, 10:56 PM #11
    xladept
    xladept is offline
    Forum Guru xladept's Avatar
    Join Date
    04-14-2012
    Location
    Pasadena, California
    MS-Off Ver
    Excel 2003,2010
    Posts
    12,378

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    But, is it any quicker?
    Reply With QuoteRegister To Reply
  12. 09-29-2017, 11:12 PM #12
    maym
    maym is offline
    Forum Contributor
    Join Date
    10-12-2011
    Location
    Sydney
    MS-Off Ver
    Excel 2016 in 2024
    Posts
    857

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    sorry, yes it is! About 3 times faster, so really appreciate your help thank you
    Reply With QuoteRegister To Reply
  13. 09-29-2017, 11:28 PM #13
    xladept
    xladept is offline
    Forum Guru xladept's Avatar
    Join Date
    04-14-2012
    Location
    Pasadena, California
    MS-Off Ver
    Excel 2003,2010
    Posts
    12,378

    Re: Current code to cycle through sheets and copy values is very slow - can it be sped up?

    Good to know.
    Reply With QuoteRegister To Reply
+ Reply to Thread
« Previous Thread | Next Thread »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. [SOLVED] VBA code help (current code too slow and freezes)
    By xxsinghxx in forum Excel Programming / VBA / Macros
    Replies: 5
    Last Post: 09-13-2017, 05:22 PM
  2. Code to copy values to formula's in other sheets
    By Miehjs in forum Excel Programming / VBA / Macros
    Replies: 3
    Last Post: 03-03-2015, 07:50 PM
  3. Code Sheets.Delete very slow
    By vio.coman in forum Excel Programming / VBA / Macros
    Replies: 5
    Last Post: 09-27-2014, 10:11 PM
  4. VBA Code to Move and/or Copy Sheets out to a New Workbook based on Cell Values
    By lhickerson in forum Excel Programming / VBA / Macros
    Replies: 5
    Last Post: 09-18-2014, 09:45 AM
  5. Copying values between sheets VERY slow...
    By ridetoeat in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 04-22-2010, 04:35 AM
  6. VBA code to send data to different sheets slow refresh
    By covershaker in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 01-25-2010, 03:09 AM
  7. Cycle sheets & copy color coding
    By Hasseldm in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 11-24-2008, 10:14 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules


Search Engine Friendly URLs by vBSEO 3.6.0 RC 1