eric86vabeach
New Member
- Joined
- Jan 29, 2014
- Messages
- 23
i would like this to happen copy the last row on master sheet then paste it to row that has same value as "A2" .... "A2" will be typed in as seen "mm/dd/yyyy"
if the name of sheet is "monday" it would only have dates that monday falls on in column "A"
ex.
"A"[TABLE="width: 75"]
<tbody>[TR]
[TD="align: right"]1/6/2014[/TD]
[/TR]
[TR]
[TD="align: right"]1/13/2014[/TD]
[/TR]
[TR]
[TD="align: right"]1/20/2014[/TD]
[/TR]
</tbody><colgroup><col></colgroup>[/TABLE]
and so on for sheet tue,wed,thur,friday,sat,sunday
this is what i have so far
Private Sub CommandButton1_Click()
Worksheets("Master").Range("A4:Af4").copy
Cells.Find(What:=Range("A2"), After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub
so i think i need is a code to find the date on master sheet "A2" then find it on other sheet ... if ture then paste row next to date on other page that it found it on...
if the name of sheet is "monday" it would only have dates that monday falls on in column "A"
ex.
"A"[TABLE="width: 75"]
<tbody>[TR]
[TD="align: right"]1/6/2014[/TD]
[/TR]
[TR]
[TD="align: right"]1/13/2014[/TD]
[/TR]
[TR]
[TD="align: right"]1/20/2014[/TD]
[/TR]
</tbody><colgroup><col></colgroup>[/TABLE]
and so on for sheet tue,wed,thur,friday,sat,sunday
this is what i have so far
Private Sub CommandButton1_Click()
Worksheets("Master").Range("A4:Af4").copy
Cells.Find(What:=Range("A2"), After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub
so i think i need is a code to find the date on master sheet "A2" then find it on other sheet ... if ture then paste row next to date on other page that it found it on...