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

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

January 7, 2013, 3:16 pm
$
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
↧
Search
Viewing all articles
Browse latest Browse all 50094

Trending Articles

Scuffham Amps - S-GEAR 2.6.0 VST, AAX, STANDALONE x86 x64 (R2R NO iLok2, +NO...

November 19, 2017, 7:24 am

Practice Sheet of Right form of verbs for HSC Students

September 22, 2019, 11:40 pm

VHSE First (1st) Allotment 2025 - vhscap.kerala.gov.in

May 24, 2025, 11:58 pm

UNIVERSE LEAGUE – UNIVERSE LEAGUE – WAR (We Are Ready) – EP [iTunes Plus M4A]

January 26, 2025, 11:12 am

City Hunter Teledrama – Episode 18 – 07th May 2016

May 6, 2016, 2:05 pm

Comment on Proposed Criteria for Identifying Predatory Conferences by Luke...

July 4, 2016, 3:53 am

Bureau of Internal Revenue: Regional Offices (Directory)

January 9, 2014, 11:06 pm

Kendrick Lamar – Not Like Us (2024) [24Bit-88.2kHz] [PMEDIA] ⭐️

May 14, 2024, 7:14 pm

Inception 2010 Hindi Dual Audio 650MB BRRip 720p ESubs HEVC

December 27, 2016, 4:23 pm

East Hull MD admits sexual assaults after another victim comes forward

January 14, 2013, 12:20 am

Download: FK ft Shenky – Nakuyewa ”Prod by: Shenky”

February 16, 2017, 4:24 pm

R. v. Sargeant, 2023 ONSC 6406 (CanLII)

November 13, 2023, 9:00 pm

Rajasthan Board 10th Result 2016 Roll No wise & Name Wise

August 20, 2016, 5:13 pm

Who’s been sentenced at Northampton Magistrates’ Court

March 30, 2019, 10:00 pm

मतलबी दोस्त स्टेट्स | Matlabi Dost Status in Hindi – Selfish Friends Status

February 13, 2020, 3:12 am

Family cries out as traditional ruler allegedly abducts brother, extorts N2.5m

September 15, 2024, 1:15 am

Long-Running Conflict In Springfield (MA) Gangland Sphere Has Manzi Family &...

December 26, 2017, 3:59 pm

Wondershare Filmora X v10.1.20.16 x64

February 8, 2021, 5:34 am

Man arrested after fracas in flat

January 16, 2017, 10:10 pm

Man charged in ongoing Sexual Assault Investigation Derek Nyilas, 46, Faces...

May 27, 2019, 8:00 am
Search