[VBA] If button is clicked with a certain condition and a message box will pop up

[SebastianWidjaja]

Hey guys,

I just need a small help here, I have a set of code that is 90% ready, it is very simple code. However, the problem is I want to add an "If" statement when the button is pressed and it meets a certain condition, a message box will pop up automatically after the button is pressed. At the moment, I am looking for a code for if button has been clicked with a specific condition.

[LEFT][COLOR=#333333][FONT=monospace]Sub Copy()

     If [N2] = Empty Then
        [N2] = [D39]
    Else
        Range("P" & Rows.Count).End(xlUp).Offset(1) = [D39]
    End If
    
   If [N8] <> "" And  Then
        MsgBox "Please Press Reset Button", vbCritical, "Error"
    End If
    
End Sub[/FONT][/COLOR][/LEFT]

Above is my code now. What I want is when cell N8 is filled and you pressed the button (in this case I assigned this Copy code to my Copy Button) a message box will pop up. I do not know what to add after "And".

Thanks in advanced!

 

[Fluff]

Surely if N8 has data then the reset button has not been clicked, so there is no need to test for anything other than if N8<>""

 

[SebastianWidjaja]

If I olnly have N8 <>" on my if statement, the message box will pop up when I am filling N8. However, what I am looking for is when N8 is filled and I pressed the copy button, the message box will pop up, not when I am filling in cell N8.

 

[Fluff]

Sorry, but I do not understand what you are trying to do.
At the moment you copy code has nothing to do with N8 other than checking if it's blank or not.

 

[SebastianWidjaja]

that's why I am asking help here because I don't know what to add in the if statement other than if N8 is blank or not. I do not know what code to put if the button has been clicked and N8 is filled then the message box show up. I am new into this macro vba I learnt this myself only less than a few days. I don't know all the codes that I can use. I guess its alright if you cannot help.

Thanks tho!

 

[Fluff]

If N8 is not blank when you click the copy button this will show the message box

Sub Copy()

     If [N2] = Empty Then
        [N2] = [D39]
    Else
        Range("P" & Rows.Count).End(xlUp).Offset(1) = [D39]
    End If
    
   If [N8] <> "" Then
        MsgBox "Please Press Reset Button", vbCritical, "Error"
    End If
    
End Sub

but I'm not sure that that is what you're after

 

[SebastianWidjaja]

If N8 is not blank when you click the copy button this will show the message box

Sub Copy()

     If [N2] = Empty Then
        [N2] = [D39]
    Else
        Range("P" & Rows.Count).End(xlUp).Offset(1) = [D39]
    End If
    
   If [N8] <> "" Then
        MsgBox "Please Press Reset Button", vbCritical, "Error"
    End If
    
End Sub

but I'm not sure that that is what you're after

that is not what I am after, I know I am missing a code in the if statement and I don't know what is it. when N8 is not blank (filled) and I pressed the copy button, the message box will pop up. But I don't know what to add in the if statement

 

[Fluff]

What is in cell D39?

 

[SebastianWidjaja]

What is in cell D39?

It is a data that changes everyday. So I want to keep the data in a table from N2:N8 and I don't want to keep the data more than N8. I am not the only one who uses the file so I want to set up a reminder for everyone when N8 is not blank (filled) and they press the copy button it shows up the message box without copying the data to cell N9.

 

[Fluff]

But you only copy that to N2 if its empty, otherwise you copy it to col P