Form Micro

[Jim Cox]

I am trying to active a form from a macro. I used the 'copy' function but it
fails. It tells me that the ShowDataFrom method failed. The spreadsheet will
be used my schools in our district to register students for the science
fair. I'm not the proficient in Excel.

Sub InputList()
'
' InputList Macro
' Macro recorded 10/5/2006 by 'Jim C'

'
Sheets("Names").Select
Range("A4:E4").Select
ActiveSheet.ShowDataForm
End Sub

Thanks Jim C

 

[Dave Peterson]

Excel _knows_ where to look for the data (and screws up).

Here's an article that explains how the problem occurs in VBA (with solution)
http://support.microsoft.com/default.aspx?scid=KB;en-us;q110462
XL: ShowDataForm Method Fails If Data Can't Be Found

 

[JLGWhiz]

"UserForm1.Show" without the quotemarks will work if you only have one
UserForm for that workbook. To make it go away use "Unload UserForm1" ,
again without the quotemarks. You don't need the ActiveSheet preface since
the UserForm is a stand alone object.

If the UserForm has a name, you can use it instead of UserForm1, i.e.
"FormName.Show"

 

[Jim Cox]

Thanks for the info, but I'm still having a problem. At least I'm headed in
the right direction

Thanks
Jim C

 

[Dave Peterson]

Do you know how many columns are part of the data table?

Can you pick out a column that always has data if that row is used?

Option Explicit
Sub testme01()
Dim LastRow as long
Application.DisplayAlerts = False
With activesheet
lastrow = .cells(.rows.count,"A").end(xlup).row
.Range("A4:E" & lastRow).Name = "'" & .Name & "'!database"
.ShowDataForm
End With
Application.DisplayAlerts = True
End Sub

I started in A4 (like your code showed) and then used column A to find the last
row used. And went to column E (like your code showed).

By naming the range DataBase, excel's showdataform knew where to look to find
the data.