| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
User form problem
Dear all,
I follow a book's example which teaches how to transfer the data (Name & Sex) from an user form onto a spreadsheet. I follow the procedures step-by-step but when I clicked the "OK" button which executives the transfer action, a compile error occurred stating "variables not defined" and highlighted the wording "NextRow =" in the VBA code below. Please kindly advise what's wrong with the code and how to remedy it. Thanks. Sheets("Sheet1").Activate NextRow = _ Application.WorksheetFunction.CountA(Range("A:A")) + 1 Cells(NextRow, 1) = TextName.Text If OptionMale Then Cells(NextRow, 2) = "Male" If OptionFemale Then Cells(NextRow, 2) = "Female" If OptionUnknown Then Cells(NextRow, 2) = "Unknown" TextName.Text = "" OptionUnknown = True TextName.Text.SetFocus |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
User form problem
If you get a Variable Not Defined error, it means exactly that -- you
haven't declared the variable. At the beginning of the procedure, after the Sub or Function statement, declare the variable: Dim NextRow As Long -- Cordially, Chip Pearson Microsoft MVP - Excel www.cpearson.com (email address is on the web site) "Freshman" wrote in message ... Dear all, I follow a book's example which teaches how to transfer the data (Name & Sex) from an user form onto a spreadsheet. I follow the procedures step-by-step but when I clicked the "OK" button which executives the transfer action, a compile error occurred stating "variables not defined" and highlighted the wording "NextRow =" in the VBA code below. Please kindly advise what's wrong with the code and how to remedy it. Thanks. Sheets("Sheet1").Activate NextRow = _ Application.WorksheetFunction.CountA(Range("A:A")) + 1 Cells(NextRow, 1) = TextName.Text If OptionMale Then Cells(NextRow, 2) = "Male" If OptionFemale Then Cells(NextRow, 2) = "Female" If OptionUnknown Then Cells(NextRow, 2) = "Unknown" TextName.Text = "" OptionUnknown = True TextName.Text.SetFocus |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
User form problem
Hi Chip,
Thanks for your help and it works. As I'm just a VBA beginner, please tolerate my stupid question. All the best. Regards. "Chip Pearson" wrote: If you get a Variable Not Defined error, it means exactly that -- you haven't declared the variable. At the beginning of the procedure, after the Sub or Function statement, declare the variable: Dim NextRow As Long -- Cordially, Chip Pearson Microsoft MVP - Excel www.cpearson.com (email address is on the web site) "Freshman" wrote in message ... Dear all, I follow a book's example which teaches how to transfer the data (Name & Sex) from an user form onto a spreadsheet. I follow the procedures step-by-step but when I clicked the "OK" button which executives the transfer action, a compile error occurred stating "variables not defined" and highlighted the wording "NextRow =" in the VBA code below. Please kindly advise what's wrong with the code and how to remedy it. Thanks. Sheets("Sheet1").Activate NextRow = _ Application.WorksheetFunction.CountA(Range("A:A")) + 1 Cells(NextRow, 1) = TextName.Text If OptionMale Then Cells(NextRow, 2) = "Male" If OptionFemale Then Cells(NextRow, 2) = "Female" If OptionUnknown Then Cells(NextRow, 2) = "Unknown" TextName.Text = "" OptionUnknown = True TextName.Text.SetFocus |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
User form problem
We tolerate all kinds of questions -- we're a nice group of people. As an
aside, you posted your question in the worksheet.function newsgroup. It would have been more appropriate to post in the programming group, since it was a programming/VBA related question. -- Cordially, Chip Pearson Microsoft MVP - Excel www.cpearson.com (email address is on the web site) "Freshman" wrote in message ... Hi Chip, Thanks for your help and it works. As I'm just a VBA beginner, please tolerate my stupid question. All the best. Regards. "Chip Pearson" wrote: If you get a Variable Not Defined error, it means exactly that -- you haven't declared the variable. At the beginning of the procedure, after the Sub or Function statement, declare the variable: Dim NextRow As Long -- Cordially, Chip Pearson Microsoft MVP - Excel www.cpearson.com (email address is on the web site) "Freshman" wrote in message ... Dear all, I follow a book's example which teaches how to transfer the data (Name & Sex) from an user form onto a spreadsheet. I follow the procedures step-by-step but when I clicked the "OK" button which executives the transfer action, a compile error occurred stating "variables not defined" and highlighted the wording "NextRow =" in the VBA code below. Please kindly advise what's wrong with the code and how to remedy it. Thanks. Sheets("Sheet1").Activate NextRow = _ Application.WorksheetFunction.CountA(Range("A:A")) + 1 Cells(NextRow, 1) = TextName.Text If OptionMale Then Cells(NextRow, 2) = "Male" If OptionFemale Then Cells(NextRow, 2) = "Female" If OptionUnknown Then Cells(NextRow, 2) = "Unknown" TextName.Text = "" OptionUnknown = True TextName.Text.SetFocus |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| User Form: Consecutive numbering | Excel Worksheet Functions | |||
| Filter Excel Pivot, based on user entry form | Excel Discussion (Misc queries) | |||
| Baffling! Spreadsheet Data Form Size | Excel Discussion (Misc queries) | |||
| user form question: text box to display result | Excel Worksheet Functions | |||
| User Form in VB = TextBox | Excel Discussion (Misc queries) | |||
Linear Mode
