Help with if statement

[yabbadabba]

Hi guys, i'm having trouble with my code and the if statement.My code works fine until it gets to to the lines highlighted in red. any help would be appreciated.thanx

Private Sub ListBox3_Click()
Sheets("TimeSheet").Range("E7") = ListBox3.Value
Dim Inp, Outp
Dim Rng As Range
Inp = ListBox3.Value
With Sheets("Rates").Range("A:B")
Set Rng = .Find(what:=Inp, after:=.Cells(.Rows.Count, 1), LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Outp = Rng.Offset(0, 1).Select
If Sheets("TimeSheet").Range("E7") = "Day Shift" Then
Sheets("TimeSheet").Range("F7") = Val(ActiveCell.Value * 8) + Sheets("Rates").Range("B3") * Val(TextBox48.Value) + Sheets("Rates").Range("B4") * Val(TextBox38.Value)
Else
If Sheets("TimeSheet").Range("E7") = "Afternoon Shift" Then
Sheets("TimeSheet").Range("F7") = Val(ActiveCell.Value * 8) + Sheets("Rates").Range("B6") * Val(TextBox48.Value) + Sheets("Rates").Range("B7") * Val(TextBox38.Value)
End If
End If
End If
End With
End Sub

 

[VoG]

Try

Private Sub ListBox3_Click()
Sheets("TimeSheet").Range("E7") = ListBox3.Value
Dim Inp, Outp
Dim Rng As Range
Inp = ListBox3.Value
With Sheets("Rates").Range("A:B")
    Set Rng = .Find(what:=Inp, after:=.Cells(.Rows.Count, 1), LookIn:=xlValues, _
    LookAt:=xlPart, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, _
    MatchCase:=False)
    If Not Rng Is Nothing Then
        Outp = Rng.Offset(0, 1).Select
        If Sheets("TimeSheet").Range("E7") = "Day Shift" Then
            Sheets("TimeSheet").Range("F7") = Val(ActiveCell.Value * 8) + Sheets("Rates").Range("B3") * Val(TextBox48.Value) + Sheets("Rates").Range("B4") * Val(TextBox38.Value)
        ElseIf Sheets("TimeSheet").Range("E7") = "Afternoon Shift" Then
            Sheets("TimeSheet").Range("F7") = Val(ActiveCell.Value * 8) + Sheets("Rates").Range("B6") * Val(TextBox48.Value) + Sheets("Rates").Range("B7") * Val(TextBox38.Value)
        End If
    End If
End With
End Sub

 

[yabbadabba]

Thanks VoG, but the calculations did not work for some reason.

 

[VoG]

Maybe

Private Sub ListBox3_Click()
Sheets("TimeSheet").Range("E7") = ListBox3.Value
Dim Inp, Outp
Dim Rng As Range
Inp = Val(ListBox3.Value)
With Sheets("Rates").Range("A:B")
    Set Rng = .Find(what:=Inp, after:=.Cells(.Rows.Count, 1), LookIn:=xlValues, _
    LookAt:=xlPart, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, _
    MatchCase:=False)
    If Not Rng Is Nothing Then
        Rng.Offset(0, 1).Select
        If Sheets("TimeSheet").Range("E7") = "Day Shift" Then
            Sheets("TimeSheet").Range("F7") = Val(ActiveCell.Value * 8) + Sheets("Rates").Range("B3") * Val(TextBox48.Value) + Sheets("Rates").Range("B4") * Val(TextBox38.Value)
        ElseIf Sheets("TimeSheet").Range("E7") = "Afternoon Shift" Then
            Sheets("TimeSheet").Range("F7") = Val(ActiveCell.Value * 8) + Sheets("Rates").Range("B6") * Val(TextBox48.Value) + Sheets("Rates").Range("B7") * Val(TextBox38.Value)
        End If
    Else
        MsgBox "Nothing found"
    End If
End With
End Sub

 

[yabbadabba]

VoG,Last code didn't work at all except for putting the name of the shift into the cell. First code worked only on the first calculation,and not the second.

 

[VoG]

I'm not sure what it is supposed to do but as written it will only output one value to one cell. Maybe you need to add a loop?

 

[yabbadabba]

I do thank you for your patience.basically i need to find the value of a listbox on my sheet called "rates" and multiply it by 8, then i need it to make more calculations based on values in other textboxes. hope this makes sense.thanks

Rates Sheet

Day Shift 25.00
Day Shift Overtime x 1.5 Rate 37.50
Day Shift Overtime x 2 Rate 50.00
Afternoon Shift Rate 28.00
Afternoon Shift Overtime x 1.5 Rate 42.00
Afternoon Shift Overtime x 2 Rate 56.00
Night Shift Rate 32.00
Night Shift Overtime x 1.5 Rate 48.00
Night Shift Overtime x 2 Rate 64.00
Public Holiday Rate 40.00
Public Holiday x 1.5 Rate 60.00
Public Holiday x 2 Rate 80.00
Sick Leave Rate 25.00
Annual Leave Rate 28.00
Salary Sacrifice 300.00