Hi,
I'm just starting to get into VBA because I spent most of my time working through everything in just recording macros. With the help of a co-worker I was able to create a way to enter data into a cell and then have it come back with a message box based on different criteria. What I can't figure out is how to change a cell if the original content cell is cleared or changed.
So far one of my challenges is that I don't yet know the language and how to properly ask questions, sorry if this doesn't make sense. Below is the expression I have for my file. What I need to do is if I change the value on a cell and it falls out of the range that will make a note the note gets deleted.
Does this make sense and does anybody have guidance?
Private Sub Incorrect_Amount_Will_Fix_Click()
End Sub
Private Sub CommandButton1_Click()
Dim mystring As String
Me.Hide
If Me.OptionButton1.Value = True Then
mycell.Offset(0, 5).Value = "High Inventory"
End If
If Me.OptionButton2.Value = True Then
mycell.Offset(0, 5).Value = "Low Inventory"
End If
If Me.OptionButton3.Value = True Then
mystring = InputBox("Enter Correct Amount")
mycell.Value = mystring
End If
End Sub
Private Sub UserForm_Activate()
Me.OptionButton1.Value = True
End Sub
Private Sub UserForm_Click()
End Sub
I'm just starting to get into VBA because I spent most of my time working through everything in just recording macros. With the help of a co-worker I was able to create a way to enter data into a cell and then have it come back with a message box based on different criteria. What I can't figure out is how to change a cell if the original content cell is cleared or changed.
So far one of my challenges is that I don't yet know the language and how to properly ask questions, sorry if this doesn't make sense. Below is the expression I have for my file. What I need to do is if I change the value on a cell and it falls out of the range that will make a note the note gets deleted.
Does this make sense and does anybody have guidance?
Private Sub Incorrect_Amount_Will_Fix_Click()
End Sub
Private Sub CommandButton1_Click()
Dim mystring As String
Me.Hide
If Me.OptionButton1.Value = True Then
mycell.Offset(0, 5).Value = "High Inventory"
End If
If Me.OptionButton2.Value = True Then
mycell.Offset(0, 5).Value = "Low Inventory"
End If
If Me.OptionButton3.Value = True Then
mystring = InputBox("Enter Correct Amount")
mycell.Value = mystring
End If
End Sub
Private Sub UserForm_Activate()
Me.OptionButton1.Value = True
End Sub
Private Sub UserForm_Click()
End Sub