excel vba please check this code that it is not working

Question

I got this error message:

Compile Error End If without block if

in the last End If instruction

Would you please share with me your answers.

Than you in advance. I really appreciate your help.

            If rompeControl = "" Then
            rompeControl = sheet_E.Range("H" & nf).Value
            wkFecha = sheet_E.Range("G" & nf).Value
            wkRuc = sheet_E.Range("J" & nf).Value
            If (sheet_E.Range("J" & nf) > "90000000") Then nc = 99
            Else
            sheet_E.Range("R" & nf) = Len(sheet_E.Range("J" & nf))
            nc = sheet_E.Range("R" & nf).Value
            End If

            wkLocal = sheet_E.Range("N" & nf).Value
            wkDebito = 0#
            wkCredito = 0#
            wkDebitoT = 0#
            wkCreditoT = 0#
            wkTipoId = "04"
            wkTipoDoc = "18"
        End If

user2480047 · Accepted Answer · 2013-07-08 15:36:45Z

2

It should be:

 If (sheet_E.Range("J" & nf) > "90000000") Then 
     nc = 99
 Else
     sheet_E.Range("R" & nf) = Len(sheet_E.Range("J" & nf))
     nc = sheet_E.Range("R" & nf).Value
 End If

You can put it like this If (sheet_E.Range("J" & nf) > "90000000") Then nc = 99 only in case of not having an else.

answered Jul 8, 2013 at 15:36

user2480047

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

excel vba please check this code that it is not working

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related