Reply to thread

Message: [QUOTE="omen666blue, post: 7406824"] Hi all Me again im working on a diet form for you GF and i want to make it nice an simple to use basically i have got a macro at the minute that when yo click on a button it copys the calories eaten on mon,tue,wed ect. then goes to a "Weigh in" Sheet and Pastes in a Specific cells What i Now need it to do (because the first week is now complete) is t Paste To the next week So If N8 = (Value) Then Goto Cell N9 If that cell Has data in it the goto N10 ect When it finds a N Cell without Data Paste the Dim Mon(Dim Mon Is se From the origional sheet Befor If Statements) Then Rince and Repeat for Tue in O8 ect ect here is My current Macr --------------------------------------------------------------------------------- Sub Transfer_Sara( ' Transfer_Sara Macr ' Transfers Saras Eaten List to Weigh in shee Dim Mon As Intege Dim Tue As Intege Dim Wed As Intege Dim Thu As Intege Dim Fri As Intege Dim Sat As Intege Dim Sun As Intege ' Makes The New integers the same as on the Meal calc shee ' Mon = Worksheets("Sheet 1").Range("A65536").End(xlUp).Ro Mon = Worksheets("Meal Planner").Range("C22" Tue = Worksheets("Meal Planner").Range("C23" Wed = Worksheets("Meal Planner").Range("C24" Thu = Worksheets("Meal Planner").Range("C25" Fri = Worksheets("Meal Planner").Range("C26" Sat = Worksheets("Meal Planner").Range("C27" Sun = Worksheets("Meal Planner").Range("C28" 'Transfer dat Sheets("Weigh in").Range("N8") = Mo Sheets("Weigh in").Range("O8") = Tu Sheets("Weigh in").Range("P8") = We Sheets("Weigh in").Range("Q8") = Th Sheets("Weigh in").Range("R8") = Fr Sheets("Weigh in").Range("S8") = Sa Sheets("Weigh in").Range("T8") = Su End Su ----------------------------------------------------------------- How would i go about adding the IF statement to this once i Know for one Colum i can figure out the rest : Just Learning as i go at the minute! Thanks for the Help in advance Chri [/QUOTE]

Verification