Error Running a Macro

[Guest]

Dear members,I am quite fresh using macros.Therefore,I would like you to be
patient:
A. Situation: I recorded a macro that must open a dataform where I can see
information about a small database in Excel, but when I run it, it tells me
that there is a mistake, then I debugged the macro and found out this in the
code

Sub LoadDataForm()
'
' LoadDataForm Makro
' Makro am 7/28/2005 von Vidal A. Castillo aufgezeichnet
'
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A4:V1366").Select
ActiveSheet.ShowDataForm
End Sub

B. The debugger tells me that the problem is in the line
"ActiveSheet.ShowDataForm" but I don't understand why

C. Can somebody tells me what am I doing wrong.

 

[Guest]

hi,
i'm assuming that your form name is dataform.

replace Activesheet.showdataform with

Load dataform
Dataform.show 0

regards

FSt1

 

[Guest]

I did it, but it didn't worked out. Some extra information will be useful:

1. The form is automatically generated by EXEL by selecting all the
information from my table, clicking DATA and then FORM
2. I see that the name of the form is the same than the worksheet,in this
case "Sheet1"
3. I don't understand why the code has "ActiveSheet.ShowDataForm"
4.My EXCEL is in german,but the code is generated in english

I hope it is useful for you

 

[Dave Peterson]

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

Option Explicit
Sub testme01()
Application.DisplayAlerts = False
With activesheet
.Range("A4:V1366").Name = "'" & .Name & "'!database"
.ShowDataForm
End With
Application.DisplayAlerts = True
End Sub

(Did you want the range based on the selection or by the address???)