Quicker way to enter in multiple vba if statements

I have attached a copy of my monthly work schedule. Sorry if it looks too noobish but I am.
The question I have is on the schedule right now, it uses to of the same schedule, one is called request off and the other the final. The request off right now is where all changes are made, and they reflect on the final. I did it this way because I could not figure out how to make the cells autofill according to the day of the week, like if it was friday i needed it to fill in the shifts and normal days off automatically. What I am trying to do now is eliminate the need for the second schedule, the request off one. I think I have figured out how to have the cells autofilled according to the day of the week, and also let the user enter in other stuff such as sick, vacation or whatever, and have it autofill if the cell is left blank, using vba. this is what i have so far, and it is working I was just wondering if it was possible to set it up for a range of cells instead of having to enter each one in manually.

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

If Range("h2").Value <= 0 Then
Range("h2") = Range("i2")
End If

If Range("h3").Value <= 0 Then
Range("h3") = Range("i3")
End If

End Sub

example.zip
Any and all help is greatly appreciated. Thanks.

jubangy

Please take a couple of minutes and read the Forum Rules then edit your thread title by following the instructions in the rules (Rule 1)

Why are you using VBA, looking at the code you've posted I would have thought it was unnecessary.

Originally Posted by jubangy

?
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.

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