Procedure is te groot

pjschiks · 1 mrt 2015

Hallo,

Ik heb in excel een formulier toegevoegd om een comment aan een cel toe te voegen.

Deze code moet checken welke checkbox(en), gekoppeld aan de cellen BB1 t/m BB96, geselecteerd staan. Vervolgens moet hij in een andere werkblad de letter "Q" zetten. Dit zijn de cellen C3 t/m C98. Cel C3 is gekoppeld aan Checkbox BB1, C4 aan BB2 enz. Vervolgens moet hij in 3 verschillende sheets deze comment plaatsen in vast gestelde cellen. Ook moet de font size worden vergroot naar 18. Als je het formulier heb ingevult ben je op de sheet MP, daar moet je dus ook weer op belanden.

Echter krijg ik de melding dat deze procedure te groot is. Zou er iemand hier mee kunnen helpen?

Code:

Private Sub cmdOK_Click()

    Application.ScreenUpdating = False
  
    If Range("BB1").Value = True Then
    Sheets("Data").Select
    Range("C3").Value = "Q"
    Sheets("MP").Select
    Range("C6").Font.Size = 18
    Range("C6").AddComment
    Range("C6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("C6").Font.Size = 18
    Range("C6").AddComment
    Range("C6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("C6").Font.Size = 18
    Range("C6").AddComment
    Range("C6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
        
    If Range("BB2").Value = True Then
    Sheets("Data").Select
    Range("C4").Value = "Q"
    Sheets("MP").Select
    Range("D6").Font.Size = 18
    Range("D6").AddComment
    Range("D6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("D6").Font.Size = 18
    Range("D6").AddComment
    Range("D6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("D6").Font.Size = 18
    Range("D6").AddComment
    Range("D6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB3").Value = True Then
    Sheets("Data").Select
    Range("C5").Value = "Q"
    Sheets("MP").Select
    Range("E6").Font.Size = 18
    Range("E6").AddComment
    Range("E6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("E6").Font.Size = 18
    Range("E6").AddComment
    Range("E6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("E6").Font.Size = 18
    Range("E6").AddComment
    Range("E6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB4").Value = True Then
    Sheets("Data").Select
    Range("C6").Value = "Q"
    Sheets("MP").Select
    Range("F6").Font.Size = 18
    Range("F6").AddComment
    Range("F6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("F6").Font.Size = 18
    Range("F6").AddComment
    Range("F6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("F6").Font.Size = 18
    Range("F6").AddComment
    Range("F6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB5").Value = True Then
    Sheets("Data").Select
    Range("C7").Value = "Q"
    Sheets("MP").Select
    Range("H6").Font.Size = 18
    Range("H6").AddComment
    Range("H6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("H6").Font.Size = 18
    Range("H6").AddComment
    Range("H6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("H6").Font.Size = 18
    Range("H6").AddComment
    Range("H6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB6").Value = True Then
    Sheets("Data").Select
    Range("C8").Value = "Q"
    Sheets("MP").Select
    Range("I6").Font.Size = 18
    Range("I6").AddComment
    Range("I6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("I6").Font.Size = 18
    Range("I6").AddComment
    Range("I6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("I6").Font.Size = 18
    Range("I6").AddComment
    Range("I6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB7").Value = True Then
    Sheets("Data").Select
    Range("C9").Value = "Q"
    Sheets("MP").Select
    Range("J6").Font.Size = 18
    Range("J6").AddComment
    Range("J6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("J6").Font.Size = 18
    Range("J6").AddComment
    Range("J6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("J6").Font.Size = 18
    Range("J6").AddComment
    Range("J6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB8").Value = True Then
    Sheets("Data").Select
    Range("C10").Value = "Q"
    Sheets("MP").Select
    Range("K6").Font.Size = 18
    Range("K6").AddComment
    Range("K6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("K6").Font.Size = 18
    Range("K6").AddComment
    Range("K6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("K6").Font.Size = 18
    Range("K6").AddComment
    Range("K6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB9").Value = True Then
    Sheets("Data").Select
    Range("C11").Value = "Q"
    Sheets("MP").Select
    Range("C11").Font.Size = 18
    Range("C11").AddComment
    Range("C11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("C11").Font.Size = 18
    Range("C11").AddComment
    Range("C11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("C11").Font.Size = 18
    Range("C11").AddComment
    Range("C11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB10").Value = True Then
    Sheets("Data").Select
    Range("C12").Value = "Q"
    Sheets("MP").Select
    Range("D11").Font.Size = 18
    Range("D11").AddComment
    Range("D11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("D11").Font.Size = 18
    Range("D11").AddComment
    Range("D11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("D11").Font.Size = 18
    Range("D11").AddComment
    Range("D11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB11").Value = True Then
    Sheets("Data").Select
    Range("C13").Value = "Q"
    Sheets("MP").Select
    Range("E11").Font.Size = 18
    Range("E11").AddComment
    Range("E11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("E11").Font.Size = 18
    Range("E11").AddComment
    Range("E11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("E11").Font.Size = 18
    Range("E11").AddComment
    Range("E11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB12").Value = True Then
    Sheets("Data").Select
    Range("C14").Value = "Q"
    Sheets("MP").Select
    Range("F11").Font.Size = 18
    Range("F11").AddComment
    Range("F11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("F11").Font.Size = 18
    Range("F11").AddComment
    Range("F11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("F11").Font.Size = 18
    Range("F11").AddComment
    Range("F11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB13").Value = True Then
    Sheets("Data").Select
    Range("C15").Value = "Q"
    Sheets("MP").Select
    Range("H11").Font.Size = 18
    Range("H11").AddComment
    Range("H11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("H11").Font.Size = 18
    Range("H11").AddComment
    Range("H11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("H11").Font.Size = 18
    Range("H11").AddComment
    Range("H11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB14").Value = True Then
    Sheets("Data").Select
    Range("C16").Value = "Q"
    Sheets("MP").Select
    Range("I11").Font.Size = 18
    Range("I11").AddComment
    Range("I11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("I11").Font.Size = 18
    Range("I11").AddComment
    Range("I11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("I11").Font.Size = 18
    Range("I11").AddComment
    Range("I11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB15").Value = True Then
    Sheets("Data").Select
    Range("C17").Value = "Q"
    Sheets("MP").Select
    Range("J11").Font.Size = 18
    Range("J11").AddComment
    Range("J11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("J11").Font.Size = 18
    Range("J11").AddComment
    Range("J11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("J11").Font.Size = 18
    Range("J11").AddComment
    Range("J11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB16").Value = True Then
    Sheets("Data").Select
    Range("C18").Value = "Q"
    Sheets("MP").Select
    Range("K11").Font.Size = 18
    Range("K11").AddComment
    Range("K11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("K11").Font.Size = 18
    Range("K11").AddComment
    Range("K11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("K11").Font.Size = 18
    Range("K11").AddComment
    Range("K11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB17").Value = True Then
    Sheets("Data").Select
    Range("C19").Value = "Q"
    Sheets("MP").Select
    Range("C16").Font.Size = 18
    Range("C16").AddComment
    Range("C16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("C16").Font.Size = 18
    Range("C16").AddComment
    Range("C16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("C16").Font.Size = 18
    Range("C16").AddComment
    Range("C16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB18").Value = True Then
    Sheets("Data").Select
    Range("C20").Value = "Q"
    Sheets("MP").Select
    Range("D16").Font.Size = 18
    Range("D16").AddComment
    Range("D16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("D16").Font.Size = 18
    Range("D16").AddComment
    Range("D16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("D16").Font.Size = 18
    Range("D16").AddComment
    Range("D16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB19").Value = True Then
    Sheets("Data").Select
    Range("C21").Value = "Q"
    Sheets("MP").Select
    Range("E16").Font.Size = 18
    Range("E16").AddComment
    Range("E16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("E16").Font.Size = 18
    Range("E16").AddComment
    Range("E16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("E16").Font.Size = 18
    Range("E16").AddComment
    Range("E16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB20").Value = True Then
    Sheets("Data").Select
    Range("C22").Value = "Q"
    Sheets("MP").Select
    Range("F16").Font.Size = 18
    Range("F16").AddComment
    Range("F16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("F16").Font.Size = 18
    Range("F16").AddComment
    Range("F16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("F16").Font.Size = 18
    Range("F16").AddComment
    Range("F16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB21").Value = True Then
    Sheets("Data").Select
    Range("C23").Value = "Q"
    Sheets("MP").Select
    Range("H16").Font.Size = 18
    Range("H16").AddComment
    Range("H16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("H16").Font.Size = 18
    Range("H16").AddComment
    Range("H16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("H16").Font.Size = 18
    Range("H16").AddComment
    Range("H16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB22").Value = True Then
    Sheets("Data").Select
    Range("C24").Value = "Q"
    Sheets("MP").Select
    Range("I16").Font.Size = 18
    Range("I16").AddComment
    Range("I16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("I16").Font.Size = 18
    Range("I16").AddComment
    Range("I16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("I16").Font.Size = 18
    Range("I16").AddComment
    Range("I16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB23").Value = True Then
    Sheets("Data").Select
    Range("C25").Value = "Q"
    Sheets("MP").Select
    Range("J16").Font.Size = 18
    Range("J16").AddComment
    Range("J16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("J16").Font.Size = 18
    Range("J16").AddComment
    Range("J16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("J16").Font.Size = 18
    Range("J16").AddComment
    Range("J16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB24").Value = True Then
    Sheets("Data").Select
    Range("C26").Value = "Q"
    Sheets("MP").Select
    Range("K16").Font.Size = 18
    Range("K16").AddComment
    Range("K16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("K16").Font.Size = 18
    Range("K16").AddComment
    Range("K16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("K16").Font.Size = 18
    Range("K16").AddComment
    Range("K16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB25").Value = True Then
    Sheets("Data").Select
    Range("C27").Value = "Q"
    Sheets("MP").Select
    Range("O6").Font.Size = 18
    Range("O6").AddComment
    Range("O6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("O6").Font.Size = 18
    Range("O6").AddComment
    Range("O6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("O6").Font.Size = 18
    Range("O6").AddComment
    Range("O6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB26").Value = True Then
    Sheets("Data").Select
    Range("C28").Value = "Q"
    Sheets("MP").Select
    Range("P6").Font.Size = 18
    Range("P6").AddComment
    Range("P6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("P6").Font.Size = 18
    Range("P6").AddComment
    Range("P6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("P6").Font.Size = 18
    Range("P6").AddComment
    Range("P6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB27").Value = True Then
    Sheets("Data").Select
    Range("C29").Value = "Q"
    Sheets("MP").Select
    Range("Q6").Font.Size = 18
    Range("Q6").AddComment
    Range("Q6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("Q6").Font.Size = 18
    Range("Q6").AddComment
    Range("Q6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("Q6").Font.Size = 18
    Range("Q6").AddComment
    Range("Q6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB28").Value = True Then
    Sheets("Data").Select
    Range("C30").Value = "Q"
    Sheets("MP").Select
    Range("R6").Font.Size = 18
    Range("R6").AddComment
    Range("R6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("R6").Font.Size = 18
    Range("R6").AddComment
    Range("R6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("R6").Font.Size = 18
    Range("R6").AddComment
    Range("R6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB29").Value = True Then
    Sheets("Data").Select
    Range("C31").Value = "Q"
    Sheets("MP").Select
    Range("T6").Font.Size = 18
    Range("T6").AddComment
    Range("T6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("T6").Font.Size = 18
    Range("T6").AddComment
    Range("T6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("T6").Font.Size = 18
    Range("T6").AddComment
    Range("T6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB30").Value = True Then
    Sheets("Data").Select
    Range("C32").Value = "Q"
    Sheets("MP").Select
    Range("U6").Font.Size = 18
    Range("U6").AddComment
    Range("U6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("U6").Font.Size = 18
    Range("U6").AddComment
    Range("U6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("U6").Font.Size = 18
    Range("U6").AddComment
    Range("U6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB31").Value = True Then
    Sheets("Data").Select
    Range("C33").Value = "Q"
    Sheets("MP").Select
    Range("V6").Font.Size = 18
    Range("V6").AddComment
    Range("V6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("V6").Font.Size = 18
    Range("V6").AddComment
    Range("V6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("V6").Font.Size = 18
    Range("V6").AddComment
    Range("V6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB32").Value = True Then
    Sheets("Data").Select
    Range("C34").Value = "Q"
    Sheets("MP").Select
    Range("W6").Font.Size = 18
    Range("W6").AddComment
    Range("W6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("W6").Font.Size = 18
    Range("W6").AddComment
    Range("W6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("W6").Font.Size = 18
    Range("W6").AddComment
    Range("W6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB33").Value = True Then
    Sheets("Data").Select
    Range("C35").Value = "Q"
    Sheets("MP").Select
    Range("O11").Font.Size = 18
    Range("O11").AddComment
    Range("O11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("O11").Font.Size = 18
    Range("O11").AddComment
    Range("O11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("O11").Font.Size = 18
    Range("O11").AddComment
    Range("O11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB34").Value = True Then
    Sheets("Data").Select
    Range("C36").Value = "Q"
    Sheets("MP").Select
    Range("P11").Font.Size = 18
    Range("P11").AddComment
    Range("P11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("P11").Font.Size = 18
    Range("P11").AddComment
    Range("P11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("P11").Font.Size = 18
    Range("P11").AddComment
    Range("P11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB35").Value = True Then
    Sheets("Data").Select
    Range("C37").Value = "Q"
    Sheets("MP").Select
    Range("Q11").Font.Size = 18
    Range("Q11").AddComment
    Range("Q11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("Q11").Font.Size = 18
    Range("Q11").AddComment
    Range("Q11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("Q11").Font.Size = 18
    Range("Q11").AddComment
    Range("Q11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
        
    If Range("BB36").Value = True Then
    Sheets("Data").Select
    Range("C38").Value = "Q"
    Sheets("MP").Select
    Range("R11").Font.Size = 18
    Range("R11").AddComment
    Range("R11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("R11").Font.Size = 18
    Range("R11").AddComment
    Range("R11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("R11").Font.Size = 18
    Range("R11").AddComment
    Range("R11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB37").Value = True Then
    Sheets("Data").Select
    Range("C39").Value = "Q"
    Sheets("MP").Select
    Range("T11").Font.Size = 18
    Range("T11").AddComment
    Range("T11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("T11").Font.Size = 18
    Range("T11").AddComment
    Range("T11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("T11").Font.Size = 18
    Range("T11").AddComment
    Range("T11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB38").Value = True Then
    Sheets("Data").Select
    Range("C40").Value = "Q"
    Sheets("MP").Select
    Range("U11").Font.Size = 18
    Range("U11").AddComment
    Range("U11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("U11").Font.Size = 18
    Range("U11").AddComment
    Range("U11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("U11").Font.Size = 18
    Range("U11").AddComment
    Range("U11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB39").Value = True Then
    Sheets("Data").Select
    Range("C41").Value = "Q"
    Sheets("MP").Select
    Range("V11").Font.Size = 18
    Range("V11").AddComment
    Range("V11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("V11").Font.Size = 18
    Range("V11").AddComment
    Range("V11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("V11").Font.Size = 18
    Range("V11").AddComment
    Range("V11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB40").Value = True Then
    Sheets("Data").Select
    Range("C42").Value = "Q"
    Sheets("MP").Select
    Range("W11").Font.Size = 18
    Range("W11").AddComment
    Range("W11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("W11").Font.Size = 18
    Range("W11").AddComment
    Range("W11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("W11").Font.Size = 18
    Range("W11").AddComment
    Range("W11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB41").Value = True Then
    Sheets("Data").Select
    Range("C43").Value = "Q"
    Sheets("MP").Select
    Range("O16").Font.Size = 18
    Range("O16").AddComment
    Range("O16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("O16").Font.Size = 18
    Range("O16").AddComment
    Range("O16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("O16").Font.Size = 18
    Range("O16").AddComment
    Range("O16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB42").Value = True Then
    Sheets("Data").Select
    Range("C44").Value = "Q"
    Sheets("MP").Select
    Range("P16").Font.Size = 18
    Range("P16").AddComment
    Range("P16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("P16").Font.Size = 18
    Range("P16").AddComment
    Range("P16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("P16").Font.Size = 18
    Range("P16").AddComment
    Range("P16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB43").Value = True Then
    Sheets("Data").Select
    Range("C45").Value = "Q"
    Sheets("MP").Select
    Range("Q16").Font.Size = 18
    Range("Q16").AddComment
    Range("Q16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("Q16").Font.Size = 18
    Range("Q16").AddComment
    Range("Q16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("Q16").Font.Size = 18
    Range("Q16").AddComment
    Range("Q16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB44").Value = True Then
    Sheets("Data").Select
    Range("C46").Value = "Q"
    Sheets("MP").Select
    Range("R16").Font.Size = 18
    Range("R16").AddComment
    Range("R16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("R16").Font.Size = 18
    Range("R16").AddComment
    Range("R16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("R16").Font.Size = 18
    Range("R16").AddComment
    Range("R16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB45").Value = True Then
    Sheets("Data").Select
    Range("C47").Value = "Q"
    Sheets("MP").Select
    Range("T16").Font.Size = 18
    Range("T16").AddComment
    Range("T16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("T16").Font.Size = 18
    Range("T16").AddComment
    Range("T16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("T16").Font.Size = 18
    Range("T16").AddComment
    Range("T16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB46").Value = True Then
    Sheets("Data").Select
    Range("C48").Value = "Q"
    Sheets("MP").Select
    Range("U16").Font.Size = 18
    Range("U16").AddComment
    Range("U16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("U16").Font.Size = 18
    Range("U16").AddComment
    Range("U16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("U16").Font.Size = 18
    Range("U16").AddComment
    Range("U16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB47").Value = True Then
    Sheets("Data").Select
    Range("C49").Value = "Q"
    Sheets("MP").Select
    Range("V16").Font.Size = 18
    Range("V16").AddComment
    Range("V16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("V16").Font.Size = 18
    Range("V16").AddComment
    Range("V16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("V16").Font.Size = 18
    Range("V16").AddComment
    Range("V16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB48").Value = True Then
    Sheets("Data").Select
    Range("C50").Value = "Q"
    Sheets("MP").Select
    Range("W16").Font.Size = 18
    Range("W16").AddComment
    Range("W16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("W16").Font.Size = 18
    Range("W16").AddComment
    Range("W16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("W16").Font.Size = 18
    Range("W16").AddComment
    Range("W16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB49").Value = True Then
    Sheets("Data").Select
    Range("C51").Value = "Q"
    Sheets("MP").Select
    Range("AA6").Font.Size = 18
    Range("AA6").AddComment
    Range("AA6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AA6").Font.Size = 18
    Range("AA6").AddComment
    Range("AA6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AA6").Font.Size = 18
    Range("AA6").AddComment
    Range("AA6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB50").Value = True Then
    Sheets("Data").Select
    Range("C52").Value = "Q"
    Sheets("MP").Select
    Range("AB6").Font.Size = 18
    Range("AB6").AddComment
    Range("AB6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AB6").Font.Size = 18
    Range("AB6").AddComment
    Range("AB6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AB6").Font.Size = 18
    Range("AB6").AddComment
    Range("AB6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB51").Value = True Then
    Sheets("Data").Select
    Range("C53").Value = "Q"
    Sheets("MP").Select
    Range("AC6").Font.Size = 18
    Range("AC6").AddComment
    Range("AC6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AC6").Font.Size = 18
    Range("AC6").AddComment
    Range("AC6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AC6").Font.Size = 18
    Range("AC6").AddComment
    Range("AC6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB52").Value = True Then
    Sheets("Data").Select
    Range("C54").Value = "Q"
    Sheets("MP").Select
    Range("AD6").Font.Size = 18
    Range("AD6").AddComment
    Range("AD6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AD6").Font.Size = 18
    Range("AD6").AddComment
    Range("AD6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AD6").Font.Size = 18
    Range("AD6").AddComment
    Range("AD6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB53").Value = True Then
    Sheets("Data").Select
    Range("C55").Value = "Q"
    Sheets("MP").Select
    Range("AF6").Font.Size = 18
    Range("AF6").AddComment
    Range("AF6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AF6").Font.Size = 18
    Range("AF6").AddComment
    Range("AF6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AF6").Font.Size = 18
    Range("AF6").AddComment
    Range("AF6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB54").Value = True Then
    Sheets("Data").Select
    Range("C56").Value = "Q"
    Sheets("MP").Select
    Range("AG6").Font.Size = 18
    Range("AG6").AddComment
    Range("AG6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AG6").Font.Size = 18
    Range("AG6").AddComment
    Range("AG6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AG6").Font.Size = 18
    Range("AG6").AddComment
    Range("AG6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB55").Value = True Then
    Sheets("Data").Select
    Range("C57").Value = "Q"
    Sheets("MP").Select
    Range("AH6").Font.Size = 18
    Range("AH6").AddComment
    Range("AH6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AH6").Font.Size = 18
    Range("AH6").AddComment
    Range("AH6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AH6").Font.Size = 18
    Range("AH6").AddComment
    Range("AH6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB56").Value = True Then
    Sheets("Data").Select
    Range("C58").Value = "Q"
    Sheets("MP").Select
    Range("AI6").Font.Size = 18
    Range("AI6").AddComment
    Range("AI6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AI6").Font.Size = 18
    Range("AI6").AddComment
    Range("AI6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AI6").Font.Size = 18
    Range("AI6").AddComment
    Range("AI6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB57").Value = True Then
    Sheets("Data").Select
    Range("C59").Value = "Q"
    Sheets("MP").Select
    Range("AA11").Font.Size = 18
    Range("AA11").AddComment
    Range("AA11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AA11").Font.Size = 18
    Range("AA11").AddComment
    Range("AA11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AA11").Font.Size = 18
    Range("AA11").AddComment
    Range("AA11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB58").Value = True Then
    Sheets("Data").Select
    Range("C60").Value = "Q"
    Sheets("MP").Select
    Range("AB11").Font.Size = 18
    Range("AB11").AddComment
    Range("AB11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AB11").Font.Size = 18
    Range("AB11").AddComment
    Range("AB11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AB11").Font.Size = 18
    Range("AB11").AddComment
    Range("AB11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB59").Value = True Then
    Sheets("Data").Select
    Range("C61").Value = "Q"
    Sheets("MP").Select
    Range("AC11").Font.Size = 18
    Range("AC11").AddComment
    Range("AC11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AC11").Font.Size = 18
    Range("AC11").AddComment
    Range("AC11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AC11").Font.Size = 18
    Range("AC11").AddComment
    Range("AC11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB60").Value = True Then
    Sheets("Data").Select
    Range("C62").Value = "Q"
    Sheets("MP").Select
    Range("AD11").Font.Size = 18
    Range("AD11").AddComment
    Range("AD11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AD11").Font.Size = 18
    Range("AD11").AddComment
    Range("AD11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AD11").Font.Size = 18
    Range("AD11").AddComment
    Range("AD11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB61").Value = True Then
    Sheets("Data").Select
    Range("C63").Value = "Q"
    Sheets("MP").Select
    Range("AF11").Font.Size = 18
    Range("AF11").AddComment
    Range("AF11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AF11").Font.Size = 18
    Range("AF11").AddComment
    Range("AF11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AF11").Font.Size = 18
    Range("AF11").AddComment
    Range("AF11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB62").Value = True Then
    Sheets("Data").Select
    Range("C64").Value = "Q"
    Sheets("MP").Select
    Range("AG11").Font.Size = 18
    Range("AG11").AddComment
    Range("AG11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AG11").Font.Size = 18
    Range("AG11").AddComment
    Range("AG11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AG11").Font.Size = 18
    Range("AG11").AddComment
    Range("AG11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB63").Value = True Then
    Sheets("Data").Select
    Range("C65").Value = "Q"
    Sheets("MP").Select
    Range("AH11").Font.Size = 18
    Range("AH11").AddComment
    Range("AH11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AH11").Font.Size = 18
    Range("AH11").AddComment
    Range("AH11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AH11").Font.Size = 18
    Range("AH11").AddComment
    Range("AH11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB64").Value = True Then
    Sheets("Data").Select
    Range("C66").Value = "Q"
    Sheets("MP").Select
    Range("AI11").Font.Size = 18
    Range("AI11").AddComment
    Range("AI11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AI11").Font.Size = 18
    Range("AI11").AddComment
    Range("AI11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AI11").Font.Size = 18
    Range("AI11").AddComment
    Range("AI11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB65").Value = True Then
    Sheets("Data").Select
    Range("C67").Value = "Q"
    Sheets("MP").Select
    Range("AA16").Font.Size = 18
    Range("AA16").AddComment
    Range("AA16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AA16").Font.Size = 18
    Range("AA16").AddComment
    Range("AA16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AA16").Font.Size = 18
    Range("AA16").AddComment
    Range("AA16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB66").Value = True Then
    Sheets("Data").Select
    Range("C68").Value = "Q"
    Sheets("MP").Select
    Range("AB16").Font.Size = 18
    Range("AB16").AddComment
    Range("AB16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AB16").Font.Size = 18
    Range("AB16").AddComment
    Range("AB16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AB16").Font.Size = 18
    Range("AB16").AddComment
    Range("AB16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB67").Value = True Then
    Sheets("Data").Select
    Range("C69").Value = "Q"
    Sheets("MP").Select
    Range("AC16").Font.Size = 18
    Range("AC16").AddComment
    Range("AC16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AC16").Font.Size = 18
    Range("AC16").AddComment
    Range("AC16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AC16").Font.Size = 18
    Range("AC16").AddComment
    Range("AC16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB68").Value = True Then
    Sheets("Data").Select
    Range("C70").Value = "Q"
    Sheets("MP").Select
    Range("AD16").Font.Size = 18
    Range("AD16").AddComment
    Range("AD16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AD16").Font.Size = 18
    Range("AD16").AddComment
    Range("AD16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AD16").Font.Size = 18
    Range("AD16").AddComment
    Range("AD16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB69").Value = True Then
    Sheets("Data").Select
    Range("C71").Value = "Q"
    Sheets("MP").Select
    Range("AF16").Font.Size = 18
    Range("AF16").AddComment
    Range("AF16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AF16").Font.Size = 18
    Range("AF16").AddComment
    Range("AF16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AF16").Font.Size = 18
    Range("AF16").AddComment
    Range("AF16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB70").Value = True Then
    Sheets("Data").Select
    Range("C72").Value = "Q"
    Sheets("MP").Select
    Range("AG16").Font.Size = 18
    Range("AG16").AddComment
    Range("AG16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AG16").Font.Size = 18
    Range("AG16").AddComment
    Range("AG16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AG16").Font.Size = 18
    Range("AG16").AddComment
    Range("AG16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB71").Value = True Then
    Sheets("Data").Select
    Range("C73").Value = "Q"
    Sheets("MP").Select
    Range("AH16").Font.Size = 18
    Range("AH16").AddComment
    Range("AH16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AH16").Font.Size = 18
    Range("AH16").AddComment
    Range("AH16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AH16").Font.Size = 18
    Range("AH16").AddComment
    Range("AH16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB72").Value = True Then
    Sheets("Data").Select
    Range("C74").Value = "Q"
    Sheets("MP").Select
    Range("AI16").Font.Size = 18
    Range("AI16").AddComment
    Range("AI16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AI16").Font.Size = 18
    Range("AI16").AddComment
    Range("AI16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AI16").Font.Size = 18
    Range("AI16").AddComment
    Range("AI16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB73").Value = True Then
    Sheets("Data").Select
    Range("C75").Value = "Q"
    Sheets("MP").Select
    Range("AM6").Font.Size = 18
    Range("AM6").AddComment
    Range("AM6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AM6").Font.Size = 18
    Range("AM6").AddComment
    Range("AM6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AM6").Font.Size = 18
    Range("AM6").AddComment
    Range("AM6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB74").Value = True Then
    Sheets("Data").Select
    Range("C76").Value = "Q"
    Sheets("MP").Select
    Range("AN6").Font.Size = 18
    Range("AN6").AddComment
    Range("AN6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AN6").Font.Size = 18
    Range("AN6").AddComment
    Range("AN6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AN6").Font.Size = 18
    Range("AN6").AddComment
    Range("AN6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB75").Value = True Then
    Sheets("Data").Select
    Range("C77").Value = "Q"
    Sheets("MP").Select
    Range("AO6").Font.Size = 18
    Range("AO6").AddComment
    Range("AO6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AO6").Font.Size = 18
    Range("AO6").AddComment
    Range("AO6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AO6").Font.Size = 18
    Range("AO6").AddComment
    Range("AO6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB76").Value = True Then
    Sheets("Data").Select
    Range("C78").Value = "Q"
    Sheets("MP").Select
    Range("AP6").Font.Size = 18
    Range("AP6").AddComment
    Range("AP6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AP6").Font.Size = 18
    Range("AP6").AddComment
    Range("AP6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AP6").Font.Size = 18
    Range("AP6").AddComment
    Range("AP6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB77").Value = True Then
    Sheets("Data").Select
    Range("C79").Value = "Q"
    Sheets("MP").Select
    Range("AR6").Font.Size = 18
    Range("AR6").AddComment
    Range("AR6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AR6").Font.Size = 18
    Range("AR6").AddComment
    Range("AR6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AR6").Font.Size = 18
    Range("AR6").AddComment
    Range("AR6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB78").Value = True Then
    Sheets("Data").Select
    Range("C80").Value = "Q"
    Sheets("MP").Select
    Range("AS6").Font.Size = 18
    Range("AS6").AddComment
    Range("AS6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AS6").Font.Size = 18
    Range("AS6").AddComment
    Range("AS6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AS6").Font.Size = 18
    Range("AS6").AddComment
    Range("AS6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB79").Value = True Then
    Sheets("Data").Select
    Range("C81").Value = "Q"
    Sheets("MP").Select
    Range("AT6").Font.Size = 18
    Range("AT6").AddComment
    Range("AT6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AT6").Font.Size = 18
    Range("AT6").AddComment
    Range("AT6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AT6").Font.Size = 18
    Range("AT6").AddComment
    Range("AT6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB80").Value = True Then
    Sheets("Data").Select
    Range("C82").Value = "Q"
    Sheets("MP").Select
    Range("AU6").Font.Size = 18
    Range("AU6").AddComment
    Range("AU6").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AU6").Font.Size = 18
    Range("AU6").AddComment
    Range("AU6").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AU6").Font.Size = 18
    Range("AU6").AddComment
    Range("AU6").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB81").Value = True Then
    Sheets("Data").Select
    Range("C83").Value = "Q"
    Sheets("MP").Select
    Range("AM11").Font.Size = 18
    Range("AM11").AddComment
    Range("AM11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AM11").Font.Size = 18
    Range("AM11").AddComment
    Range("AM11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AM11").Font.Size = 18
    Range("AM11").AddComment
    Range("AM11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB82").Value = True Then
    Sheets("Data").Select
    Range("C84").Value = "Q"
    Sheets("MP").Select
    Range("AN11").Font.Size = 18
    Range("AN11").AddComment
    Range("AN11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AN11").Font.Size = 18
    Range("AN11").AddComment
    Range("AN11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AN11").Font.Size = 18
    Range("AN11").AddComment
    Range("AN11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB83").Value = True Then
    Sheets("Data").Select
    Range("C85").Value = "Q"
    Sheets("MP").Select
    Range("AO11").Font.Size = 18
    Range("AO11").AddComment
    Range("AO11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AO11").Font.Size = 18
    Range("AO11").AddComment
    Range("AO11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AO11").Font.Size = 18
    Range("AO11").AddComment
    Range("AO11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB84").Value = True Then
    Sheets("Data").Select
    Range("C86").Value = "Q"
    Sheets("MP").Select
    Range("AP11").Font.Size = 18
    Range("AP11").AddComment
    Range("AP11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AP11").Font.Size = 18
    Range("AP11").AddComment
    Range("AP11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AP11").Font.Size = 18
    Range("AP11").AddComment
    Range("AP11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB85").Value = True Then
    Sheets("Data").Select
    Range("C87").Value = "Q"
    Sheets("MP").Select
    Range("AR11").Font.Size = 18
    Range("AR11").AddComment
    Range("AR11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AR11").Font.Size = 18
    Range("AR11").AddComment
    Range("AR11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AR11").Font.Size = 18
    Range("AR11").AddComment
    Range("AR11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB86").Value = True Then
    Sheets("Data").Select
    Range("C88").Value = "Q"
    Sheets("MP").Select
    Range("AS11").Font.Size = 18
    Range("AS11").AddComment
    Range("AS11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AS11").Font.Size = 18
    Range("AS11").AddComment
    Range("AS11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AS11").Font.Size = 18
    Range("AS11").AddComment
    Range("AS11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB87").Value = True Then
    Sheets("Data").Select
    Range("C89").Value = "Q"
    Sheets("MP").Select
    Range("AT11").Font.Size = 18
    Range("AT11").AddComment
    Range("AT11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AT11").Font.Size = 18
    Range("AT11").AddComment
    Range("AT11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AT11").Font.Size = 18
    Range("AT11").AddComment
    Range("AT11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB88").Value = True Then
    Sheets("Data").Select
    Range("C90").Value = "Q"
    Sheets("MP").Select
    Range("AU11").Font.Size = 18
    Range("AU11").AddComment
    Range("AU11").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AU11").Font.Size = 18
    Range("AU11").AddComment
    Range("AU11").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AU11").Font.Size = 18
    Range("AU11").AddComment
    Range("AU11").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB89").Value = True Then
    Sheets("Data").Select
    Range("C91").Value = "Q"
    Sheets("MP").Select
    Range("AM16").Font.Size = 18
    Range("AM16").AddComment
    Range("AM16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AM16").Font.Size = 18
    Range("AM16").AddComment
    Range("AM16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AM16").Font.Size = 18
    Range("AM16").AddComment
    Range("AM16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB90").Value = True Then
    Sheets("Data").Select
    Range("C92").Value = "Q"
    Sheets("MP").Select
    Range("AN16").Font.Size = 18
    Range("AN16").AddComment
    Range("AN16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AN16").Font.Size = 18
    Range("AN16").AddComment
    Range("AN16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AN16").Font.Size = 18
    Range("AN16").AddComment
    Range("AN16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB91").Value = True Then
    Sheets("Data").Select
    Range("C93").Value = "Q"
    Sheets("MP").Select
    Range("AO16").Font.Size = 18
    Range("AO16").AddComment
    Range("AO16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AO16").Font.Size = 18
    Range("AO16").AddComment
    Range("AO16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AO16").Font.Size = 18
    Range("AO16").AddComment
    Range("AO16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB92").Value = True Then
    Sheets("Data").Select
    Range("C94").Value = "Q"
    Sheets("MP").Select
    Range("AP16").Font.Size = 18
    Range("AP16").AddComment
    Range("AP16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AP16").Font.Size = 18
    Range("AP16").AddComment
    Range("AP16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AP16").Font.Size = 18
    Range("AP16").AddComment
    Range("AP16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB93").Value = True Then
    Sheets("Data").Select
    Range("C95").Value = "Q"
    Sheets("MP").Select
    Range("AR16").Font.Size = 18
    Range("AR16").AddComment
    Range("AR16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AR16").Font.Size = 18
    Range("AR16").AddComment
    Range("AR16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AR16").Font.Size = 18
    Range("AR16").AddComment
    Range("AR16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB94").Value = True Then
    Sheets("Data").Select
    Range("C96").Value = "Q"
    Sheets("MP").Select
    Range("AS16").Font.Size = 18
    Range("AS16").AddComment
    Range("AS16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AS16").Font.Size = 18
    Range("AS16").AddComment
    Range("AS16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AS16").Font.Size = 18
    Range("AS16").AddComment
    Range("AS16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB95").Value = True Then
    Sheets("Data").Select
    Range("C97").Value = "Q"
    Sheets("MP").Select
    Range("AT16").Font.Size = 18
    Range("AT16").AddComment
    Range("AT16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AT16").Font.Size = 18
    Range("AT16").AddComment
    Range("AT16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AT16").Font.Size = 18
    Range("AT16").AddComment
    Range("AT16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If
    
    If Range("BB96").Value = True Then
    Sheets("Data").Select
    Range("C98").Value = "Q"
    Sheets("MP").Select
    Range("AU16").Font.Size = 18
    Range("AU16").AddComment
    Range("AU16").Comment.Text Text:=Me.txtComment.Value
    Sheets("P-gebouw").Select
    Range("AU16").Font.Size = 18
    Range("AU16").AddComment
    Range("AU16").Comment.Text Text:=Me.txtComment.Value
    Sheets("PR").Select
    Range("AU16").Font.Size = 18
    Range("AU16").AddComment
    Range("AU16").Comment.Text Text:=Me.txtComment.Value
    Sheets("MP").Select
    End If


    Unload Me
    
    Application.ScreenUpdating = True
       
End Sub

edmoor · 1 mrt 2015

Ik heb je eerste If statement als voorbeeld genomen hoe je het beter kunt schrijven. En dan bedoel ik zonder al die sheet .Select opdrachten. Die vertragen de zaak en vergen geheugen. Kijk eens naar deze:

Code:

Private Sub cmdOK_Click()
    Application.ScreenUpdating = False

    If Range("BB1") Then
        Sheets("Data").Range("C3") = "Q"
        Call SetComment("MP", "C6")
        Call SetComment("P-gebouw", "C6")
        Call SetComment("PR", "C6")
    End If

    Application.ScreenUpdating = True
End Sub

Sub SetComment(Blad As String, Adres As Range)
    With Sheets(Blad).Range(Adres)
        .Font.Size = 18
        .AddComment
        .Comment.Text Text:=Me.txtComment
    End With
End Sub

Zo blijf je tevens op de actieve sheet en is je code veel korter door gebruik te maken van een extra Sub met parameters.
Of het ook je probleem oplost kan ik zo niet zeggen.

pjschiks · 2 mrt 2015

Edmor,

Bedankt voor je super snelle reactie! Ik heb de code aangepast op de manier zoals jij deze had gezet voordat je je bericht wijzigde. En ik moet zeggen, het werkt perfect!

Code:

If Range("BB1").Value = True Then
    Sheets("Data").Range("C3") = "Q"
    With Sheets("MP").Range("C6")
        .Font.Size = 18
        .AddComment
        .Comment.Text Text:=Me.txtComment.Value
    End With
    
    With Sheets("P-gebouw").Range("C6")
        .Font.Size = 18
        .AddComment
        .Comment.Text Text:=Me.txtComment.Value
    End With
    
    With Sheets("PR").Range("C6")
        .Font.Size = 18
        .AddComment
        .Comment.Text Text:=Me.txtComment.Value
    End With
    End If

Hierdoor werkt de code al perfect! Ik zal na een goede nachtrust de code veranderen naar jou vernieuwde code. Daarmee is het nog korter, scheelt weer geheugen!

Bedankt!

edmoor · 2 mrt 2015

Ok dan. Een ander voordeel van het werken met die extra sub is dat als er een wijziging moet gebeuren in de eigenschappen van de cel met commentaar, je dat op maar 1 plek hoeft aan te passen.

pjschiks · 2 mrt 2015

Toch nog een extra vraag erover, ik heb de code aangepast naar zoals jij vertelde;

Code:

Private Sub cmdOK_Click()

    Application.ScreenUpdating = False

    If Range("BB1").Value = True Then
        Sheets("Data").Range("C3") = "Q"
        Call SetComment("MP", "C6")
        Call SetComment("P-gebouw", "C6")
        Call SetComment("PR", "C6")
    End If

    Application.ScreenUpdating = True

End sub

Sub SetComment(Blad As String, Adres As Range)
 
    With Sheets(Blad).Range(Adres)
        .Font.Size = 18
        .AddComment
        .Comment.Text Text:=Me.txtComment
    End With
    
End Sub

Maar als ik dat doe krijg ik een Compileer fout: Typen komen niet met elkaar overeen.
Ik heb wel paar dingen geprobeerd, maar de fout blijft terug komen.

Als ik op OK heb geklikt selecteerd hij de "C6" in de eerste regel.

Doe ik misschien iets fout?

edmoor · 2 mrt 2015

Nee, ik wel

Maak van dit:
Sub SetComment(Blad As String, Adres As Range)

Eens dit:
Sub SetComment(Blad As String, Adres As String)

pjschiks · 2 mrt 2015

Werkt als een trein!

Nogmaals bedankt voor de hulp!

edmoor · 2 mrt 2015

Als die trein niet door Utrecht hoeft gaat het wel goed

Procedure is te groot

pjschiks

Gebruiker

edmoor

Inventaris

pjschiks

Gebruiker

edmoor

Inventaris

pjschiks

Gebruiker

edmoor

Inventaris

pjschiks

Gebruiker

edmoor

Inventaris

Nieuwste berichten

Wij waarderen jouw privacy