Hello!
Can you help me, please?
1) I have several sheets where users have to insert only one digit into several cells.
2) However there are other sheets where several digits have to be inserted into several cells by users.
I would like to give the possibility to insert one digit and select the following cell automatically without pressing "Enter".
I use both the numberpad and the numbers from the keyboard.
My code in workbook_open:
Application.OnKey "1", "insert_1"
Application.OnKey "{97}", "insert_1"
Application.OnKey "2", "insert_2"
Application.OnKey "{98}", "insert_2"
and so on.
My code in a module:
Sub insert_1()
If ActiveSheet.Name like "abc*" thenActivecell.Value = 1Else
...
End If
End Sub
Sub insert_2()
If ActiveSheet.Name like "abc*" thenActivecell.Value = 2else
...
End If
End Sub
and so on.
That works fine.
But If I want to insert digits into the other sheets nothing happens, because the condition doesn't match (other Sheet.Names).
How can I continue my If part with else? Users should be able to use the numbers as usually. Is that possible?
Thank you very much!
Wolli
Bookmarks