Quantcast
Channel: Excel Help Forum - Excel Programming / VBA / Macros
Viewing all articles
Browse latest Browse all 50070

[SOLVED] Block if without end if - please help!

$
0
0
Hi,
Could you have a look at my code below (i'm sorry very much, the code is so long).
I can't find where the problem is, i'm getting the compile error "block if without end if".

Code:

Sub paste_events_worst()
Dim Rng As Range, find1 As Date, find2 As Date, find3 As Date, find4 As Date
Set Rng = Worksheets("Front page").Range("E9:E12")

If WorksheetFunction.CountA(Rng) = 4 Then

    find1 = WorksheetFunction.Small(Rng, 1)
    Set find1cd = Application.Worksheets("Front page").Range("E9:E12").Find(find1)
    a = find1cd.Offset(0, -3)
    Worksheets("Worst").TextBox1.Visible = True
    Worksheets("Worst").Range("C167:C233").EntireRow.Hidden = False
    If a = Worksheets("Front page").Range("B11") Then
    Instruction
    ElseIf a = Worksheets("Front page").Range("B12") Then
    Instruction
    ElseIf a = Worksheets("Front page").Range("B9") Then
        If Worksheets("Front page").Range("C9").Value = "" Then
        Instruction
        Else
        Instruction
        End If
    ElseIf a = Worksheets("Front page").Range("B10") Then
        If Worksheets("Front page").Range("C10").Value = "" Then
        Instruction
        Else
        Instruction
        End If
    End If
   
    find2 = Application.Small(Rng, 2)
    Set find2cd = Application.Worksheets("Front page").Range("E9:E12").Find(find2)
    b = find2cd.Offset(0, -3)
    Worksheets("Worst").TextBox2.Visible = True
    Worksheets("Worst").Range("C236:C302").EntireRow.Hidden = False
    If b = Worksheets("Front page").Range("B11") Then
    Instruction
    ElseIf b = Worksheets("Front page").Range("B12") Then
    Instruction
    ElseIf b = Worksheets("Front page").Range("B9") Then
        If Worksheets("Front page").Range("C9").Value = "" Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") Then
        Instruction
        Else
        Instruction
        End If
    ElseIf b = Worksheets("Front page").Range("B10") Then
        If Worksheets("Front page").Range("C10").Value = "" Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C10") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C10") Then
        Instruction
        Else
        Instruction
        End If
    End If

    find3 = Application.Small(Rng, 3)
    Set find3cd = Application.Worksheets("Front page").Range("E9:E12").Find(find3)
    c = find3cd.Offset(0, -3)
    Worksheets("Worst").TextBox3.Visible = True
    Worksheets("Worst").Range("C305:C371").EntireRow.Hidden = False
    If c = Worksheets("Front page").Range("B11") Then
    Instruction
    ElseIf c = Worksheets("Front page").Range("B12") Then
    Instruction
    ElseIf c = Worksheets("Front page").Range("B9") Then
        If Worksheets("Front page").Range("C9") = "" Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf b = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf b = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") And b = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") And b = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") Then
        Instruction
        Else
        Instruction
        End If
    ElseIf c = Worksheets("Front page").Range("B10") Then
        If Worksheets("Front page").Range("C10") = "" Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C10") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C10") Then
        Instruction
        ElseIf b = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C10") Then
        Instruction
        ElseIf b = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C10") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C10") And b = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C10") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C10") And b = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C10") Then
        Instruction
        Else
        Instruction
        End If
    End If

    find4 = Application.Small(Rng, 4)
    Set find4cd = Application.Worksheets("Front page").Range("E9:E12").Find(find4)
    d = find4cd.Offset(0, -3)
    Worksheets("Worst").TextBox4.Visible = True
    Worksheets("Worst").Range("C374:C439").EntireRow.Hidden = False
   
    If d = Worksheets("Front page").Range("B11") Then
    Instruction
    ElseIf d = Worksheets("Front page").Range("B12") Then
    Instruction
    ElseIf d = Worksheets("Front page").Range("B9") Then
        If Worksheets("Front page").Range("C9") = "" Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf b = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf b = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf c = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf c = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") And b = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf a = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") And b = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf c = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") And b = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") Then
        Instruction
        ElseIf c = Worksheets("Front page").Range("B12") And Worksheets("Front page").Range("C12") > Worksheets("Front page").Range("C9") And b = Worksheets("Front page").Range("B11") And Worksheets("Front page").Range("C11") > Worksheets("Front page").Range("C9") Then
        Instruction
        Else
        Instruction
        End If

Else
End If

End Sub


Viewing all articles
Browse latest Browse all 50070

Trending Articles