Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Add to Cell When Copied
Hello, I could really use some help. I am coping data from one workbook to
another after a filter. I need to tag column M on the New Tracker workbook with the word "sent"; only for the records that was filterd and copied. Please see the code below. I have a arrow pointing to my BAD CODE. At the end of this sub I want to call another sub. How do I do that also? Thanks! Private Sub DailyReport_Click() ActiveSheet.Range("A2").AutoFilter Field:=12, Criteria1:="<" Range(("M6"), Cells(Rows.Count, ("M:M")).End(xlUp)) = "Sent" Application.ScreenUpdating = False Workbooks.Open Filename:= _ "C:\Users\Kenny\Documents\Toyota\Floater\Daily Tracker Report.xls" Windows("New Tracker.xls").Activate Range(("L6"), Cells(Rows.Count, ("L:L")).End(xlUp)).Copy Windows("Daily Tracker Report.xls").Activate Worksheets("sheet1").Range("A5").PasteSpecial Paste:=xlPasteValues Windows("New Tracker.xls").Activate Range(("A6:B6"), Cells(Rows.Count, ("B:B")).End(xlUp)).Copy Windows("Daily Tracker Report.xls").Activate Worksheets("sheet1").Range("B5").PasteSpecial Paste:=xlPasteValues Windows("New Tracker.xls").Activate Range(("G6:K6"), Cells(Rows.Count, ("G:G")).End(xlUp)).Copy Windows("Daily Tracker Report.xls").Activate Worksheets("sheet1").Range("D5").PasteSpecial Paste:=xlPasteValues Windows("New Tracker.xls").Activate Range("A6").Select 'Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select 'Selection.EntireRow.Delete 'Windows("Daily Tracker Report.xls").Activate ActiveSheet.Range("A2").AutoFilter Field:=12 Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Last cell copied | New Users to Excel | |||
Copied Cell | Excel Discussion (Misc queries) | |||
Cell Displayed Does Not Equal Cell Copied | Excel Worksheet Functions | |||
How to show where cell was copied from? | Excel Discussion (Misc queries) | |||
stop cell entry being copied to other cell | Excel Worksheet Functions |