bleedUTorange
New Member
- Joined
- Aug 3, 2011
- Messages
- 9
I have a report that is updated daily. I have specific cells in one sheet ("Paste") that need to be copied over to another sheet ("Team") in a specific row based on a specific date. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
fficeffice" /><o
></o>
<o></o>
Cells D8:D25 in worksheet ("Paste") has the date of reference. So I need the Macro to find that date in column D within ("Paste") copy the needed data in B8:C8 (‘this is needed all the way down to B25:C25’) and paste it to the row with the same date within the worksheet ("Team").<o></o>
<o></o>
Note: I am not dealing with complete columns or row, only individual cells, because the data must pertain to certain employees for that particular day. So I am assuming that each cell that needs to be copied with have its own “date statement”.<o></o>
<o></o>
Below is a sample of my code as of current. Initially I wrote to paste the appropriate data (B8:C8) to the next available cell of the specific column that didn’t have any data in it. Since the directive has change, I know it will need to be eliminated and be replaced with the “date statement”.<o></o>
<o></o>
Sheets("Paste").Visible = True<o></o>
Sheets("Paste").Select<o></o>
Range("A1").Select<o></o>
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<o></o>
:=False, Transpose:=False<o></o>
<o></o>
Sheets("Paste").Select<o></o>
Range("b8").Select<o></o>
Selection.Copy<o></o>
Sheets("Team").Select<o></o>
Columns("f:f").Select<o></o>
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, lookat _<o></o>
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _<o></o>
False).Activate<o></o>
ActiveCell.Select<o></o>
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _<o></o>
False, Transpose:=False<o></o>
<o></o>
Sheets("Paste").Select<o></o>
Range("c8").Select<o></o>
Selection.Copy<o></o>
Sheets("Team").Select<o></o>
Columns("g:g").Select<o></o>
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, lookat _<o></o>
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _<o></o>
False).Activate<o></o>
ActiveCell.Select<o></o>
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _<o></o>
False, Transpose:=False <o></o>
<o></o>
If I happen to confuse you, unfortunately I could do easily, or need more information please ask me questions so I can help you to help me.
<o></o>
I'm very new to VB, but can usually follow code logic pretty well. Let me know if you need any more information from me. Thank you so much!<o></o>
fficeffice" /><o></o><o
></o>Cells D8:D25 in worksheet ("Paste") has the date of reference. So I need the Macro to find that date in column D within ("Paste") copy the needed data in B8:C8 (‘this is needed all the way down to B25:C25’) and paste it to the row with the same date within the worksheet ("Team").<o
></o><o
></o>Note: I am not dealing with complete columns or row, only individual cells, because the data must pertain to certain employees for that particular day. So I am assuming that each cell that needs to be copied with have its own “date statement”.<o
></o><o
></o>Below is a sample of my code as of current. Initially I wrote to paste the appropriate data (B8:C8) to the next available cell of the specific column that didn’t have any data in it. Since the directive has change, I know it will need to be eliminated and be replaced with the “date statement”.<o
></o><o
></o>Sheets("Paste").Visible = True<o
></o>Sheets("Paste").Select<o
></o>Range("A1").Select<o
></o>Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<o
></o>:=False, Transpose:=False<o
></o><o
></o>Sheets("Paste").Select<o
></o>Range("b8").Select<o
></o>Selection.Copy<o
></o>Sheets("Team").Select<o
></o>Columns("f:f").Select<o
></o>Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, lookat _<o
></o>:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _<o
></o>False).Activate<o
></o>ActiveCell.Select<o
></o>Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _<o
></o>False, Transpose:=False<o
></o><o
></o>Sheets("Paste").Select<o
></o>Range("c8").Select<o
></o>Selection.Copy<o
></o>Sheets("Team").Select<o
></o>Columns("g:g").Select<o
></o>Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, lookat _<o
></o>:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _<o
></o>False).Activate<o
></o>ActiveCell.Select<o
></o>Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _<o
></o>False, Transpose:=False <o
></o><o
></o>If I happen to confuse you, unfortunately I could do easily, or need more information please ask me questions so I can help you to help me.
<o
></o>I'm very new to VB, but can usually follow code logic pretty well. Let me know if you need any more information from me. Thank you so much!<o
></o>
