Workshhet Formula
Hey below is a code I received before and I tweek it a bit but it slows my computer down when I run it and sometimes freeze the whole PC any advise on how I can Prevent this
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
If UCase(Target.Value) = "CLOSED" Or _
UCase(Target.Value) = "RESOLVED" Then
Target.EntireRow.Copy Destination:=Sheets("CLOSED"). _
Range("A" & Rows.Count).End(xlUp).Offset(1)
Target.EntireRow.Delete
End If
End If
End Sub
You work with
Private Sub Worksheet_Change(ByVal Target As Range)
It runs the macro every time you change a value.
Maybe it's better to manualy active the macro.
Notice my main language is not English.
I appreciate it, if you reply on my solution.
If you are satisfied with the solution, please mark the question solved.
You can add reputation by clicking on the star * add reputation.
What do you mean Manually activate the Macro
By a button.
or by devellopers => macro (then select your macro).
Sorry Cant seem To find the Macro when I go into Macros it does not show my Macro
Change youre code in this one, and try again.
You will see a macro called gmcgrane
Please Login or Register to view this content.
Had An Error it says Object Required ??
Maybe you an example of your workbook without confidential information.
I tried to upload the Basic Format but the Size is to Large thats without any Macro enabled
Capture.jpg
So Best I can Do is add a screen shot Sorry
You can upload your example with this (free) site.
You can upload your example with this (free) (dutch) site.
http://www.mijnbestand.nl/
The problem you have with your own macro is, that it copies the value on sheet "closed" from row 1 till row 1,048,576.
You also get the whole row in all these cells.
I don't think you want that either.
I could not get my macro work (in your workbook).
I can't help you enough with VBA.
You need to rely on someone else.
Sorry for that (unconvience).
I know this => you should rephrase the macro so it does not copy it to all cells of the "closed"sheets.
There should be the solution.
I will follow the answers to this thread, so I will, also, learn from this question.
I don't need to Copy All Rows just A-G to copy to ClosedThanks For your assistance
I understand you post in #14.
It copies the rows with in column 6 the words closed or resolved.
If these words are in column 6, it should be copied.
But it copies the whole row (whitch you intend to do), to all rows on the destiny sheet.
And i suppose you don't want that.
Yes I need to but would it make it any faster If I reduce the amount I need to Copy For Example If I only need to copy certain Cells
Columns range "A" "C" "E"
Yes I would like to copy all to closed--
But would it make it faster if I copy just Colums "A" "B""E"
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks