Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to write an If Then VBA
I am having trouble writing an If Then VBA that inserts the correct info into
my worksheet. See code below. I have a userform tha inserts all the info in the correct rows but does not give me my answer. Private Sub CommandButtonOk_Click() If TextBoxName.Text = "" Then MsgBox "You must enter a name." Exit Sub End If NextBlankRow = Application.WorksheetFunction.CountA(Range("ColA") ) + 1 'MsgBox (NextBlankRow) Cells(NextBlankRow, 1) = TextBoxName.Text Cells(NextBlankRow, 2) = TextBoxAge.Text If TextBoxAge = 3 And TextBoxAge <= 12 Then Events = "Kids" ElseIf TextBoxAge = 13 And TextBoxAge <= 19 Then Events = "Teens" ElseIf TextBoxAge = 20 And TextBoxAge <= 49 Then Events = "Adults" ElseIf TextBoxAge = 50 Then Events = "Seniors" End If TextBoxName.Text = "" In Excel I have Column 3 named Events and when I type the name and age I would like the the event column filled in based on the above data. Can anyone help? TextBoxAge.Text = "" TextBoxName.SetFocus End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to write an If Then VBA
Private Sub CommandButtonOk_Click()
Dim events as String .. . . Cells(NextBlankRow, 2) = TextBoxAge.Text If TextBoxAge = 3 And TextBoxAge <= 12 Then Events = "Kids" ElseIf TextBoxAge = 13 And TextBoxAge <= 19 Then Events = "Teens" ElseIf TextBoxAge = 20 And TextBoxAge <= 49 Then Events = "Adults" ElseIf TextBoxAge = 50 Then Events = "Seniors" End If cells(NetBlankRow,Range("Events").Column).Value = events -- Regards, Tom Ogilvy "Marcie" wrote in message ... I am having trouble writing an If Then VBA that inserts the correct info into my worksheet. See code below. I have a userform tha inserts all the info in the correct rows but does not give me my answer. Private Sub CommandButtonOk_Click() If TextBoxName.Text = "" Then MsgBox "You must enter a name." Exit Sub End If NextBlankRow = Application.WorksheetFunction.CountA(Range("ColA") ) + 1 'MsgBox (NextBlankRow) Cells(NextBlankRow, 1) = TextBoxName.Text Cells(NextBlankRow, 2) = TextBoxAge.Text If TextBoxAge = 3 And TextBoxAge <= 12 Then Events = "Kids" ElseIf TextBoxAge = 13 And TextBoxAge <= 19 Then Events = "Teens" ElseIf TextBoxAge = 20 And TextBoxAge <= 49 Then Events = "Adults" ElseIf TextBoxAge = 50 Then Events = "Seniors" End If TextBoxName.Text = "" In Excel I have Column 3 named Events and when I type the name and age I would like the the event column filled in based on the above data. Can anyone help? TextBoxAge.Text = "" TextBoxName.SetFocus End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to write an If Then VBA
Tom,
Thank you so much. It worked. I knew I was missing something, just didn't know what. Marcie "Tom Ogilvy" wrote: Private Sub CommandButtonOk_Click() Dim events as String .. . . Cells(NextBlankRow, 2) = TextBoxAge.Text If TextBoxAge = 3 And TextBoxAge <= 12 Then Events = "Kids" ElseIf TextBoxAge = 13 And TextBoxAge <= 19 Then Events = "Teens" ElseIf TextBoxAge = 20 And TextBoxAge <= 49 Then Events = "Adults" ElseIf TextBoxAge = 50 Then Events = "Seniors" End If cells(NetBlankRow,Range("Events").Column).Value = events -- Regards, Tom Ogilvy "Marcie" wrote in message ... I am having trouble writing an If Then VBA that inserts the correct info into my worksheet. See code below. I have a userform tha inserts all the info in the correct rows but does not give me my answer. Private Sub CommandButtonOk_Click() If TextBoxName.Text = "" Then MsgBox "You must enter a name." Exit Sub End If NextBlankRow = Application.WorksheetFunction.CountA(Range("ColA") ) + 1 'MsgBox (NextBlankRow) Cells(NextBlankRow, 1) = TextBoxName.Text Cells(NextBlankRow, 2) = TextBoxAge.Text If TextBoxAge = 3 And TextBoxAge <= 12 Then Events = "Kids" ElseIf TextBoxAge = 13 And TextBoxAge <= 19 Then Events = "Teens" ElseIf TextBoxAge = 20 And TextBoxAge <= 49 Then Events = "Adults" ElseIf TextBoxAge = 50 Then Events = "Seniors" End If TextBoxName.Text = "" In Excel I have Column 3 named Events and when I type the name and age I would like the the event column filled in based on the above data. Can anyone help? TextBoxAge.Text = "" TextBoxName.SetFocus End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
re write | Excel Programming | |||
is it possible to execute write to the fields in another .xsl form a macro in another .xsl? e.g. some way to load another .xsl into an .xsl macro and write to its data? | Excel Worksheet Functions | |||
Better way to write this | Excel Programming | |||
How to I write a UDF? | Excel Discussion (Misc queries) | |||
Better way to write this VBA | Excel Programming |