ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Forms-Compile error: user-def type not defined (https://www.excelbanter.com/excel-programming/421179-forms-compile-error-user-def-type-not-defined.html)

Tita_Guera

Forms-Compile error: user-def type not defined
 
I copied the following code from www.contextures.com/xlDAtaVal14.html--but i
rcv the error above.

I just copied the subroutine so that the cursor moves to the next cell if
tab or enter key are pressed. i am not familiar with VBA code, so i hv no
idea what i need to revise:

====================================
'Optional code to move to next cell if Tab or Enter are pressed
'from code by Ted Lanham
Private Sub TempCombo_KeyDown(ByVal _
KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
Select Case KeyCode
Case 9 'Tab
ActiveCell.Offset(0, 1).Activate
Case 13 'Enter
ActiveCell.Offset(1, 0).Activate
Case Else
'do nothing
End Select
End Sub

thank you/Maria

Michael

Forms-Compile error: user-def type not defined
 
The code on its own will not work. You will have to recreate the whole
example in order for it work.
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Tita_Guera" wrote:

I copied the following code from www.contextures.com/xlDAtaVal14.html--but i
rcv the error above.

I just copied the subroutine so that the cursor moves to the next cell if
tab or enter key are pressed. i am not familiar with VBA code, so i hv no
idea what i need to revise:

====================================
'Optional code to move to next cell if Tab or Enter are pressed
'from code by Ted Lanham
Private Sub TempCombo_KeyDown(ByVal _
KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
Select Case KeyCode
Case 9 'Tab
ActiveCell.Offset(0, 1).Activate
Case 13 'Enter
ActiveCell.Offset(1, 0).Activate
Case Else
'do nothing
End Select
End Sub

thank you/Maria



All times are GMT +1. The time now is 06:27 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com