User-defined type not defined

[cluck]

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

[Jim Thomlinson]

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
>

[cluck]

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
> >

[Jim Thomlinson]

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
> > >

[cluck]

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
> > > >