IFに関するVBAの混乱

Question

おそらく単純な障害ですが、私はエラーを見つけることができません。コードは、私の "else"には "if"がないと言っています。しかし、私は理由を見つけるカント...

ヘルプ私はend ifまたは他のいくつかの問題を追加するかどうかを逃した

:)をしてください？

Sub In_knapp_Click() 

Dim i As Long 
Dim g As Long 
Dim a As Long 
Dim b As Long 

b = 3 

For a = 1 To 7 Step 1 

    If Weekday(Now(), vbMonday) = a Then 

        For g = 3 To 12 Step 2 

         If g = 11 Then 
         MsgBox "Ingen Ut tid hittades" 
         Exit For 

         Else 

          If IsEmpty(Worksheets("Pontevedra").Cells(b, g).Value) Then 

           For i = 2 To 10 Step 2 

            If IsEmpty(Worksheets("Pontevedra").Cells(b, i).Value) Then 

             Worksheets("Pontevedra").Cells(b, i).Value = Now 
             ButtonOneClick = True 
             Exit For 

            Else 

            MsgBox "Fel" 

            End If 

          Else 

        Next g 

        End If   
    Else 
     b = b + 1 
End If 
Next a 
End Sub 

私はあなたが次のIといくつかのエンドIFを含まれていない任意のヘルプ

Answer 1

見つけるカント - これはコンパイルが、あなたがやろうとしているものではないかもしれない：

Sub In_knapp_Click() 
    Dim i As Long 
    Dim g As Long 
    Dim a As Long 
    Dim b As Long 
    b = 3 
    For a = 1 To 7 Step 1 
     If Weekday(Now(), vbMonday) = a Then 
      For g = 3 To 12 Step 2 
       If g = 11 Then 
        MsgBox "Ingen Ut tid hittades" 
        Exit For 
       Else 
        If IsEmpty(Worksheets("Pontevedra").Cells(b, g).Value) Then 
         For i = 2 To 10 Step 2 
          If IsEmpty(Worksheets("Pontevedra").Cells(b, i).Value) Then 
           Worksheets("Pontevedra").Cells(b, i).Value = Now 
           ButtonOneClick = True 
           Exit For 
          Else 
           MsgBox "Fel" 
          End If 
         Next i 
        Else 
         ' ? 
        End If 
        '? 
       End If 
      Next g 
     Else 
      b = b + 1 
     End If 
    Next a 
End Sub