Controle of waarde gelijk is in VBA en daarna doorgaan met controle

[martijnbos]

Hoi,

Ik zit met de volgende vraag.
Ik wil graag een controle doen of cel Q101 gelijk is aan cel AL5
Zo niet dan moet hij een msgBox geven en daarna naar cel V9 gaan

Als deze waardes gelijk zijn dan mag hij verder gaan met onderstaande controle.

Sub Controleerverstuur()
Dim c As Range, Blank, Teller
    For Each mycell In [Q2:Q101]
        If mycell.Value <> "" Then
        If mycell.Offset(0, -15).Value = "" Then
        mycell.Offset(0, -15).Select
            MsgBox ("Het veld referentie is leeg")
            MsgBox ("Vul voor deze cell een waarde in en probeer het opnieuw")
            Teller = Teller + 1
        Exit Sub
        End If
        End If
Next
If Teller > 0 Then
Else
    Columns("A:W").Select
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-9
    Range("A1:S101").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    Columns("U:AT").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Range("Q1").Activate
    Selection.AutoFilter
    Selection.AutoFilter Field:=17, Criteria1:="="
    Rows("2:101").Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter
    
 Dim wb As Workbook
    Set wb = ActiveWorkbook
    
If Val(Application.Version) >= 12 Then
        If wb.FileFormat = 51 And wb.HasVBProject = True Then
            MsgBox "There is VBA code in this xlsx file, there will be no VBA code in the file you send." & vbNewLine & _
                   "Save the file first as xlsm and then try the macro again.", vbInformation
            Exit Sub
        End If
    End If
 
    On Error Resume Next
        wb.SendMail "m.bos@33", _
              Sheets("blad1").Range("b2")
    
    On Error GoTo 0

    End If
End Sub

 

[Warme bakkertje]

If Not [Q101] = [AL5] Then MsgBox ("Waarden stemmen niet overeen"): Application.Goto [V9]: Exit Sub

De rest van je code kan ook nog wat bijschaven gebruiken bv. alle scrollcolumns kan je zonder problemen verwijderen, alle Select's kan je ook aanpassen (verwijderen)

 

[martijnbos]

Rudi,

Bedankt voor je antwoord. Het werkt perfect.
De bedachte code is inderdaad een samenraapsel van macro etc.
Ben altijd een beetje bang om dingen te verwijderen.
Maar bedankt voor de tip. Zodra alles werkt zal ik eens in een kopie het gaan bijschaven.

Martijn