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 

내가

Answer 1

당신은 다음으로 몇 최종 Ifs의 누락 어떤 도움을 찾을 수 없습니다 -이 컴파일하지만 당신은 무엇을하려고하지 않을 수 있습니다 :

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