eric86vabeach
New Member
- Joined
- Jan 29, 2014
- Messages
- 23
my front work sheet looks like this or something like it
[TABLE="width: 500"]
<tbody>[TR]
[TD]today's work day[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/21/2014[/TD]
[TD]total bills[/TD]
[TD]total people[/TD]
[TD]bar sales[/TD]
[TD]food sales[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]10211[/TD]
[TD]1020[/TD]
[TD]205.22[/TD]
[TD]320.95[/TD]
[/TR]
</tbody>[/TABLE]
and my work sheet is named "master" then i have 7 other sheets there names are
monday,tues,wed,thur,fri,sat,sun
i would like to have a button at top when i click it it copy "row 3" that data is "blank,10211,1020,205.22,320.95"
as seen above
then 2/21/2014 is a fri so that day of the week is friday so "A2" would match to sheet "Friday" .... "Friday" sheet looks like this
[TABLE="width: 500"]
<tbody>[TR]
[TD]1/3/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1/10/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1/17/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1/24/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1/31/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/7/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/14/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/21/2014[/TD]
[TD]10211[/TD]
[TD]1020[/TD]
[TD]205.22[/TD]
[TD]320.95[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
so it would paste the row like so
and so on.... 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
any tip or codes that may help?
[TABLE="width: 500"]
<tbody>[TR]
[TD]today's work day[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/21/2014[/TD]
[TD]total bills[/TD]
[TD]total people[/TD]
[TD]bar sales[/TD]
[TD]food sales[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]10211[/TD]
[TD]1020[/TD]
[TD]205.22[/TD]
[TD]320.95[/TD]
[/TR]
</tbody>[/TABLE]
and my work sheet is named "master" then i have 7 other sheets there names are
monday,tues,wed,thur,fri,sat,sun
i would like to have a button at top when i click it it copy "row 3" that data is "blank,10211,1020,205.22,320.95"
as seen above
then 2/21/2014 is a fri so that day of the week is friday so "A2" would match to sheet "Friday" .... "Friday" sheet looks like this
[TABLE="width: 500"]
<tbody>[TR]
[TD]1/3/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1/10/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1/17/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1/24/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1/31/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/7/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/14/2014[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/21/2014[/TD]
[TD]10211[/TD]
[TD]1020[/TD]
[TD]205.22[/TD]
[TD]320.95[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
so it would paste the row like so
and so on.... 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
any tip or codes that may help?