Creating Error popup button

[Raj2003]

Hi everyone,

I need help in creating popup button for certain error...
Error : If cell value is 1 for 2 consecutive cells in a particular column.. error message button should popup

Regards
Keen learner

 

[My Aswer Is This]

Assuming you are referring to column A
Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  12/16/2020  1:37:57 PM  EST
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub

If Target.Column = 1 Then

If Target.Value = Target.Offset(-1).Value Then MsgBox "You entered the value " & Target.Value & "  In the cell above"
End If
End Sub

 

[Raj2003]

Hi there,

Thanks a lot for the solution but when the cell value is entered ,it is asking for debugging as I enter the value in the first cell.Below is the screen shot for your reference.

 

[My Aswer Is This]

Hi there,

Thanks a lot for the solution but when the cell value is entered ,it is asking for debugging as I enter the value in the first cell.Below is the screen shot for your reference.



View attachment 28181

That is because you changed my script. What do you want the message to say?

 

[My Aswer Is This]

Try this:
Not sure why you want it this way but here is what you were trying to do.

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  12/17/2020  4:32:32 PM  EST
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub

    If Target.Column = 1 Then

        If Target.Value = Target.Offset(-1).Value Then MsgBox "Different Pairs Found" & vbNewLine & "In the cells above"
End If
End Sub

 

[abdelfattah]

Try this:
Not sure why you want it this way but here is what you were trying to do.

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  12/17/2020  4:32:32 PM  EST
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub

    If Target.Column = 1 Then

        If Target.Value = Target.Offset(-1).Value Then MsgBox "Different Pairs Found" & vbNewLine & "In the cells above"
End If
End Sub

I think you have mistake first you specific the column a then offset -1 this means move before column a there is not existed column before a am I right or wrong? your code doesn't work at all even if select another column like in post #3 you have a typo should be put comma this works for me

If Target.Value = Target.Offset(,-1).Value Then MsgBox "Different Pairs Found" & vbNewLine & "In the cells above"

 

[My Aswer Is This]

I think you have mistake first you specific the column a then offset -1 this means move before column a there is not existed column before a am I right or wrong? your code doesn't work at all even if select another column like in post #3 you have a typo should be put comma this works for me

If Target.Value = Target.Offset(,-1).Value Then MsgBox "Different Pairs Found" & vbNewLine & "In the cells above"

I think you have mistake first you specific the column a then offset -1 this means move before column a there is not existed column before a am I right or wrong? your code doesn't work at all even if select another column like in post #3 you have a typo should be put comma this works for me

If Target.Value = Target.Offset(,-1).Value Then MsgBox "Different Pairs Found" & vbNewLine & "In the cells above"

I test all my scripts and this script works. Target.Offset(-1)
Means the cell above

 

[Fluff]

It will fail if you change the value in row 1, which is what the OP said happened.

 

[abdelfattah]

ahh sorry buddy
I misunderstood , I think the mistake in post#3 it starts from a1 that's why it shows error nothing moves before a1 , right or wrong?

 

[My Aswer Is This]

Try this it is true if you enter a value in Row 1 the script would error out.
So try this

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  12/17/2020  5:08:12 PM  EST
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Column = 1 And Target.Row > 1 Then

        If Target.Value = Target.Offset(-1).Value Then MsgBox "Different Pairs Found" & vbNewLine & "In the cells above"
End If
End Sub