Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
User-defined type not defined
I have a button on a user form that after entering data when clicked should
enter the data at the bottom of a list in Excel. However when I attempt to run the code I get a "User-defined type not defined". What am I doing wrong? Private Sub fAdd_Click() Dim NewRow As Interger ' HERE is where the error is highlighted. NewRow = Worksheets("main").Range("a1").Value + 1 If Len(MyForm.fname.Value) = 0 Then MsgBox "The name field cannot be left empty", vbOKOnly, "" MyForm.fname.SetFocus Exit Sub End If Worksheets("table").Cells(NewRow, 1).Value = MyForm.fname.Value Worksheets("table").Cells(NewRow, 2).Value = MyForm.fSocial.Value MyForm.Hide End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
User-defined type not defined
As a guess you did not mean Interger <sp, but rather Integer. As a guess you
type like I do. It may be more appropraite to use long however since integer only goes to 32K while there are 65k rows... -- HTH... Jim Thomlinson "cluck" wrote: I have a button on a user form that after entering data when clicked should enter the data at the bottom of a list in Excel. However when I attempt to run the code I get a "User-defined type not defined". What am I doing wrong? Private Sub fAdd_Click() Dim NewRow As Interger ' HERE is where the error is highlighted. NewRow = Worksheets("main").Range("a1").Value + 1 If Len(MyForm.fname.Value) = 0 Then MsgBox "The name field cannot be left empty", vbOKOnly, "" MyForm.fname.SetFocus Exit Sub End If Worksheets("table").Cells(NewRow, 1).Value = MyForm.fname.Value Worksheets("table").Cells(NewRow, 2).Value = MyForm.fSocial.Value MyForm.Hide End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
User-defined type not defined
Thanks Jim, It was my "fat" fingers causing that problem.
Now I'm receiving a "type mismatch" on the very next line of code. Forgive me, but I'm fairly new at VB. "Jim Thomlinson" wrote: As a guess you did not mean Interger <sp, but rather Integer. As a guess you type like I do. It may be more appropraite to use long however since integer only goes to 32K while there are 65k rows... -- HTH... Jim Thomlinson "cluck" wrote: I have a button on a user form that after entering data when clicked should enter the data at the bottom of a list in Excel. However when I attempt to run the code I get a "User-defined type not defined". What am I doing wrong? Private Sub fAdd_Click() Dim NewRow As Interger ' HERE is where the error is highlighted. NewRow = Worksheets("main").Range("a1").Value + 1 If Len(MyForm.fname.Value) = 0 Then MsgBox "The name field cannot be left empty", vbOKOnly, "" MyForm.fname.SetFocus Exit Sub End If Worksheets("table").Cells(NewRow, 1).Value = MyForm.fname.Value Worksheets("table").Cells(NewRow, 2).Value = MyForm.fSocial.Value MyForm.Hide End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
User-defined type not defined
Guessing here, but I assume that newRow is intended to be the first blank row
in the spreadsheet? If so then the trick is to come at it from the bottom up something like this... NewRow = Worksheets("main").cells(rows.count, "A").end(xlUp).offset(0,1).row -- HTH... Jim Thomlinson "cluck" wrote: Thanks Jim, It was my "fat" fingers causing that problem. Now I'm receiving a "type mismatch" on the very next line of code. Forgive me, but I'm fairly new at VB. "Jim Thomlinson" wrote: As a guess you did not mean Interger <sp, but rather Integer. As a guess you type like I do. It may be more appropraite to use long however since integer only goes to 32K while there are 65k rows... -- HTH... Jim Thomlinson "cluck" wrote: I have a button on a user form that after entering data when clicked should enter the data at the bottom of a list in Excel. However when I attempt to run the code I get a "User-defined type not defined". What am I doing wrong? Private Sub fAdd_Click() Dim NewRow As Interger ' HERE is where the error is highlighted. NewRow = Worksheets("main").Range("a1").Value + 1 If Len(MyForm.fname.Value) = 0 Then MsgBox "The name field cannot be left empty", vbOKOnly, "" MyForm.fname.SetFocus Exit Sub End If Worksheets("table").Cells(NewRow, 1).Value = MyForm.fname.Value Worksheets("table").Cells(NewRow, 2).Value = MyForm.fSocial.Value MyForm.Hide End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
User-defined type not defined
Good Guess. I suppose I didn't explain myself very well.
THanks that was what I needed. "Jim Thomlinson" wrote: Guessing here, but I assume that newRow is intended to be the first blank row in the spreadsheet? If so then the trick is to come at it from the bottom up something like this... NewRow = Worksheets("main").cells(rows.count, "A").end(xlUp).offset(0,1).row -- HTH... Jim Thomlinson "cluck" wrote: Thanks Jim, It was my "fat" fingers causing that problem. Now I'm receiving a "type mismatch" on the very next line of code. Forgive me, but I'm fairly new at VB. "Jim Thomlinson" wrote: As a guess you did not mean Interger <sp, but rather Integer. As a guess you type like I do. It may be more appropraite to use long however since integer only goes to 32K while there are 65k rows... -- HTH... Jim Thomlinson "cluck" wrote: I have a button on a user form that after entering data when clicked should enter the data at the bottom of a list in Excel. However when I attempt to run the code I get a "User-defined type not defined". What am I doing wrong? Private Sub fAdd_Click() Dim NewRow As Interger ' HERE is where the error is highlighted. NewRow = Worksheets("main").Range("a1").Value + 1 If Len(MyForm.fname.Value) = 0 Then MsgBox "The name field cannot be left empty", vbOKOnly, "" MyForm.fname.SetFocus Exit Sub End If Worksheets("table").Cells(NewRow, 1).Value = MyForm.fname.Value Worksheets("table").Cells(NewRow, 2).Value = MyForm.fSocial.Value MyForm.Hide End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"User-defined type not defined" message in Excel | Excel Discussion (Misc queries) | |||
Workspace faux user-defined type not defined | Excel Programming | |||
User-defined data type; Error: Only User-defined types... | Excel Programming | |||
User Defined type not defined | Excel Programming | |||
Word.Document - user defined type not defined | Excel Programming |