Quicker way to enter in multiple vba if statements

?
Could you elaborate a little more?
I need it so if something is entered into one of the days, that will be the info used, but when the next month comes, when i redo the schedule i need the formula back without having to retype it.

With the 2 sheets, the request off and the final this isnt a problem but I am trying to eliminate the request off sheet, so when I do the schedule for the following month, the formulas return when i clear the cells.
for example say in c5 i put in vac, next month when i do the schedule in c5 i need to be able to clear cell c5 and have it use the data from t5.
Liek i said with the 2 sheets this isnt a problem, but i would liek to get it down to just one.
Thanks.

Originally Posted by davesexcel

Very strange, I thought I attached a code to this thread..
anyway...

Try this

Sub YouKnow()
    Dim r As Range
    Dim c As Range
    Set r = Range("H1", Range("H65536").End(xlUp))
    For Each c In r.Cells
        If c <= 0 Then
            c = c.Offset(0, 1)
        End If
    Next c
End Sub

Thankyou Davesexcel, but that is not doing anything.
Maybe this will help describe what I am trying to do alittle better,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("c5").Value <= 0 Then
Range("c5") = Range("t5")
End If

If Range("d5").Value <= 0 Then
Range("d5") = Range("u5")
End If

If Range("e5").Value <= 0 Then
Range("e5") = Range("v5")
End If

If Range("f5").Value <= 0 Then
Range("f5") = Range("w5")
End If

If Range("c6").Value <= 0 Then
Range("c6") = Range("t6")
End If

If Range("d6").Value <= 0 Then
Range("d6") = Range("u6")
End If

If Range("e6").Value <= 0 Then
Range("e6") = Range("v6")
End If

If Range("f6").Value <= 0 Then
Range("f6") = Range("w6")
End If



End Sub

This so far works, except I need it to go down to row35.
Thanks again.

Originally Posted by davesexcel

What do you mean it doesn't do anything??

Try placing the code in the worksheet change then

BTW
Your new example is nothing like your original example,

In the new example I just changed the cell ranges to the ones I am using.
Also, I did try your formula in worksheet change, and it keeps saying expecting end sub.

Thanks again for your help.

Thankyou a ton jindon, that seems to have done the trick, I am not even going to try and pretend like I understand the code, but if you wouldn't mind maybe you could explain it so I can try and get a grasp of it.
Usually I can work my way through them and figure it out but this one makes no sense to me, however like I said it seems to be workign well. I appreciate it muchly, and thank you davesexcel for taking the time to try and help me.