Hi everyone,
I have finally finished a macro which I use on several documents that come through. (This macro takes data from one sheet and pastes it into another sheet) the problem is, if I have a document with ~1000 or more lines, excel because EXTREMELY slow after I use this macro. To the point where it will not "Refresh" the cells when I enter new data, or even extend the cells out.
Here is the code I am using:
Is there anyway to "refresh" excel, so it isn't bogging down? I'm completely open to re-writing the code with some help from the Excel VBA Gurus of this forum.
Thanks,
~Mike
I have finally finished a macro which I use on several documents that come through. (This macro takes data from one sheet and pastes it into another sheet) the problem is, if I have a document with ~1000 or more lines, excel because EXTREMELY slow after I use this macro. To the point where it will not "Refresh" the cells when I enter new data, or even extend the cells out.
Here is the code I am using:
Code:
Sub Copy_Green_White_Cells_Creatives()
' This will copy any creative names that have either green or white fill into "Sheet1"
' and will then paste them as "Values"
'
Application.ScreenUpdating = False
Dim count As Integer
With Worksheets("AD-Creative Direction")
For x = 4 To .Cells(Rows.count, 3).End(xlUp).Row
' Find all cells in column 3 (C) to the end of my data
ConditionalColor = Worksheets("AD-Creative Direction").Cells(x, 3).Interior.ColorIndex
' Macro is checking column 3 for Specific color(s)
If ConditionalColor = xlNone Or ConditionalColor = 14 And .Cells(x, 3) > "" Then
' If "Fill" in Cells are 14 (Green) or xlNone (No Fill) and they have data... copy them to "Sheet 1"
.Cells(x, 1).Copy
Worksheets("Sheet1").Cells(1 + count, 1).PasteSpecial xlPasteValues
.Cells(x, 2).Copy
Worksheets("Sheet1").Cells(1 + count, 2).PasteSpecial xlPasteValues
.Cells(x, 3).Copy
Worksheets("Sheet1").Cells(1 + count, 3).PasteSpecial xlPasteValues
count = count + 1
End If
Next x
End With
Application.ScreenUpdating = True
End Sub
Is there anyway to "refresh" excel, so it isn't bogging down? I'm completely open to re-writing the code with some help from the Excel VBA Gurus of this forum.
Thanks,
~Mike