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