Excel VBA, пожалуйста, проверьте этот код, он не работает

Question

я получил сообщение об ошибке:

Compile Error End If без блока, если

в последнем End If инструкция

вы поделитесь бы со мной ваши ответы.

Чем вы заранее. Я действительно ценю твою помощь.

  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 

Answer 1

Оно должно быть:

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 

Вы можете поместить его как этот If (sheet_E.Range("J" & nf) > "90000000") Then nc = 99 только в случае, когда не имеющий еще.