Automatic Pop Up Warning Message

[SebastianWidjaja]

Hi guys,

I am trying to create a set of code that transfer a daily data from cell D39 to P2 and if P2 is not empty then transfer the data to one cell below P2 (In this case its P3 and so on). However, I just want to transfer the data from cell P2 TO P8. So, when cell P8 is filled and I try to run the code, a message box will pop up. Here is my code, and the red-highlighted text is where the error is.

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

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

Thanks in advanced!

[6StringJazzer]

What is the error?

Where is ButtonOneClick defined in your code? Is it a variable or a control?

[SebastianWidjaja]

What is the error?

Where is ButtonOneClick defined in your code? Is it a variable or a control?

The message box does not pop up.

Dim ButtonOneClick as Boolean is my definition. Also just wondering, If I define something on vba code, am I supposed to place the definition under the Sub Copy() or above it ?


Thanks !

[6StringJazzer]

You should declare variables underneath the Sub declaration, unless there is a need to make them global (usually not).

You are checking to see if ButtonOneClick is TRUE. Where in your code do you give it a value? If you never give it a value, it defaults to FALSE so the If condition will be FALSE and you will never see the MsgBox.

Please show all of your code.

[SebastianWidjaja]

You should declare variables underneath the Sub declaration, unless there is a need to make them global (usually not).

You are checking to see if ButtonOneClick is TRUE. Where in your code do you give it a value? If you never give it a value, it defaults to FALSE so the If condition will be FALSE and you will never see the MsgBox.

Please show all of your code.

How do I give ButtonOneClick a value? I am new into Excel VBA so I have been learning it myself with the help of people in this forum.
Here is all my code. Its not very complicated as its only for a simple task.

Sub Copy()
Dim ButtonOneClick as Boolean
     If [P2] = Empty Then
        [P2] = [D39]
    Else
        Range("P" & Rows.Count).End(xlUp).Offset(1) = [D39]
    End If
    
   If [N8] <> "" And ButtonOneClick = True Then
        MsgBox "Please Press Reset Button", vbCritical, "Error"
    End If
    
End Sub

[6StringJazzer]

I could tell you how to give ButtonOneClick a value but it won't be helpful unless I know what you want it to mean.

You description in your first post matches your code, except for this variable, which isn't mentioned. What are you intending ButtonOneClick to be for? You are checking for it to be TRUE--what does it mean if it's TRUE?

[SebastianWidjaja]

Its true mean is when I click the button and cell N8 is filled, I want to show the message box automatically

[SebastianWidjaja]

I am just looking for a function that when a button was click with a certain condition that is true, the messagebox will pop up Or when I copy a certain data that goes beyond the limit range the messagebox will pop up.

[6StringJazzer]

Declaring a variable does not connect the code to the button in any way. I don't understand the relationship between the button and this code. Are you saying that you have a button, and you want this code to run when the button is clicked?

Your latest post says something about a "limit range" but that is not mentioned earlier and I don't know what limit you mean.

At this point I am going to ask you to attach your file so I can try to understand what you are doing. The paper clip icon does not work for attachments. Instead, under the text box where you type your reply click the Go Advanced button. On the next screen scroll down and click on Manage Attachments, which will show a pop-up window to Select and Upload a file. Then close the window.

[dominicb]

Cross posted : https://www.mrexcel.com/forum/excel-...ll-pop-up.html

Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

[SebastianWidjaja]

Thanks dominicb for telling me, I will make sure I wont do it again