VBA display message box, pick yes or no

[Jack_Mason]

I have a load of text data which I need to read through to confirm if its relevant or not. I want to display the text from each cell in column D in a message box and then click ‘yes’ or ‘no’ depending on its relevancy and then move onto the next cell down, when i click yes or no i want it to write yes or no in the column next to it so i can filter through this at a later date. Please, can anyone help me with this code?

 

[Joe4]

Welcome to the Board!

Here is a little example that I think will show you how to do what you want:

Sub MyMacro()

    Dim response
   
    response = MsgBox("Select Yes or No", vbYesNo)
   
    If response = vbYes Then
        Cells(Rows.Count, "D").End(xlUp).Offset(1, 0) = "Yes"
    Else
        Cells(Rows.Count, "D").End(xlUp).Offset(1, 0) = "No"
    End If
   
End Sub

 

[dmt32]

Hi,
try following & see if does what you want

Sub YesNo()
    Dim rng As Range, cell As Range
    Dim Response As VbMsgBoxResult
    
    Set rng = Range(Range("D1"), Range("D" & Rows.Count).End(xlUp))
    
    For Each cell In rng.Cells
       'optional - highlights each cell
        cell.Select
        Response = MsgBox(cell.Text & Chr(10) & "Relevant?", 35, "Relevance")
        If Response = vbCancel Then Exit Sub
        
        cell.Offset(, 1).Value = IIf(Response = vbYes, "Yes", "No")
        
    Next cell

End Sub

Dave

 

[Jack_Mason]

Hi,
try following & see if does what you want

Sub YesNo()
    Dim rng As Range, cell As Range
    Dim Response As VbMsgBoxResult
   
    Set rng = Range(Range("D1"), Range("D" & Rows.Count).End(xlUp))
   
    For Each cell In rng.Cells
       'optional - highlights each cell
        cell.Select
        Response = MsgBox(cell.Text & Chr(10) & "Relevant?", 35, "Relevance")
        If Response = vbCancel Then Exit Sub
       
        cell.Offset(, 1).Value = IIf(Response = vbYes, "Yes", "No")
       
    Next cell

End Sub

Dave

This is perfect! Thank you

 

[Jack_Mason]

Welcome to the Board!

Here is a little example that I think will show you how to do what you want:

Sub MyMacro()

    Dim response
  
    response = MsgBox("Select Yes or No", vbYesNo)
  
    If response = vbYes Then
        Cells(Rows.Count, "D").End(xlUp).Offset(1, 0) = "Yes"
    Else
        Cells(Rows.Count, "D").End(xlUp).Offset(1, 0) = "No"
    End If
  
End Sub

Thank you

 

[Joe4]

You are welcome.

Glad we could help!

 

[dmt32]

This is perfect! Thank you

glad we were able to help - many thanks for feedback

Dave