I Can't get SHOWDATAFORM and sendkeys to work together?

[jegentry]

Can Anyone help me with this?

I am trying to use showdataform and sendkeys to conduct the following operation:

1. open the dataform
2. Press Alt-C to set the criteria
3. Press Alt-U to enter a name in fourth field
4. Automatically enter text "gentry" as a variable, mylastname, pulled from another sheet
5. Press Alt-N to find next

Here is my code I am using that doesnt seem to work:

Sub EnterGradesWith_Startingdata()
Dim mylastname
mylastname = Worksheets("studentdata").Cells(2, 4).Value
Sheets("data").ShowDataForm
SendKeys "%C"
SendKeys "%U" & mylastname & "%N"
End Sub

[jegentry]

I have also tried:

Sub EnterGradesWith_Startingdata()

Dim mylastname
mylastname = Worksheets("studentdata").Cells(2, 4).Value

'Sheets("data").ShowDataForm

Sheets("data").Activate
Range("a1").Activate
ActiveSheet.ShowDataForm
With ActiveSheet.dataform
SendKeys "%C"
SendKeys "%U" & mylastname & "%N"
End With

End Sub

...................and can't get this to work either?

[romperstomper]

The Sendkeys commands have to be before the Showdataform call:

Please Login or Register  to view this content.

[jegentry]

Awesome!!! I thought I was going crazy! THANK YOU!

[romperstomper]

Glad to help.

Please remember to mark the thread solved.