Re: Copy row from one sheet to another
Hello Eve,
Do you mean you have added a 'Completed' sheet in your 'Meeting Action Points Tracker V2' workbook ... and that you would like items to move automatically as they are completed ...?
Re: Copy row from one sheet to another
It would be much easier for everybody if you uploaded the workbook itself, not pictures of it.
Re: Copy row from one sheet to another
As soon as you select 'Yes' in the Column G ... an event macro can trigger itself ...
Would you need this feature for All of your worksheets ...?
If it is the case, how do you need to keep track of the 'source' worksheet in your 'completed actions' sheet ?
Would you like a proposal along these lines ...
Re: Copy row from one sheet to another
In the worksheet 'Completed Actions' ...the column G could show the source worksheet ...
Do you agree ?
Re: Copy row from one sheet to another
OK then ...
You could test following macro ..
Sub ArchiveCompleted()
'
' ArchiveCompleted Macro
Dim lastrs As Long
Dim lastrd As Long
Dim wks As Worksheet
Dim wkd As Worksheet
Dim swk As String
Dim c As Range
Dim rng As Range
Set wks = ActiveSheet
swk = wks.Name
Set wkd = Worksheets("Completed Actions")
lastrs = ActiveSheet.Cells(Application.Rows.Count, "B").End(xlUp).Row
lastrd = wkd.Cells(Application.Rows.Count, "B").End(xlUp).Row + 1
Set rng = wks.Range("G6:G" & lastrs)
For Each c In rng
If c <> "Yes" Then Exit Sub
' Copy Data to Archived
wkd.Range("B" & lastrd & ":" & "H" & lastrd).Value = wks.Range("B" & c.Row & ":" & "H" & c.Row).Value
' Add Source Name in Column G
wkd.Range("G" & lastrd) = swk
' Delete Entire Row in Source sheet
wks.Rows(c.Row & ":" & c.Row).Delete
Next c
End SubHope this will help
Re: Copy row from one sheet to another
Hello Eve,
Not sure to understand the problem you are facing ...
Would you mind attaching your latest updated workbook ...
Re: Copy row from one sheet to another
Thanks for the example ...
Please replace the macro with this version :
Sub ArchiveCompleted()
'
' ArchiveCompleted Macro
Dim lastrs As Long
Dim lastrd As Long
Dim wks As Worksheet
Dim wkd As Worksheet
Dim swk As String
Dim c As Range
Dim rng As Range
Set wks = ActiveSheet
swk = wks.Name
Set wkd = Worksheets("Completed Actions")
lastrs = ActiveSheet.Cells(Application.Rows.Count, "B").End(xlUp).Row
lastrd = wkd.Cells(Application.Rows.Count, "B").End(xlUp).Row + 1
Set rng = wks.Range("G6:G" & lastrs)
For Each c In rng
If c = "Yes" Then
' Copy Data to Archived
wkd.Range("B" & lastrd & ":" & "H" & lastrd).Value = wks.Range("B" & c.Row & ":" & "H" & c.Row).Value
' Add Source Name in Column G
wkd.Range("G" & lastrd) = swk
' Delete Entire Row in Source sheet
wks.Rows(c.Row & ":" & c.Row).Delete
End If
Next c
End SubHope this will help
Re: Copy row from one sheet to another
Eve when posting code it is mandatory to use code tags.
Please use code tags in the future.
Re: Copy row from one sheet to another
Glad you could fix the 'Copy' issue ...:wink:
Regarding your 'Sort' event macro ... what should trigger the event ...?
Re: Copy row from one sheet to another
I want the sort to trigger automatically as data is added to the spreadsheet 
Re: Copy row from one sheet to another
Any text that you paste into a message which is VBA code MUST have code tags added. Select the VBA code and click once on the # button on the editor toolbar to add the tags. You can see what it does from your posts where they have been added for you.
The rules, to which you agreed upon joining, are here in case you need to refresh your memory: http://www.ozgrid.com/forum/misc.php?do=showrules
Don’t have an account yet? Register yourself now and be a part of our community!