Goto Function

[PH]

I need make Input sheet..,
example :
in cell : b6 ( 1 until 31)

if input 1 automatically goto ab1
if input 2 automatically goto cd 1
......

How to make this ??

 

[Joe Was]

Right click the sheet tab that you want this to happen on and paste this code into the sheet module:

Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Sheet1").Range("A1").Value = 1 Then
Worksheets("Sheet1").Range("Ab1").Select
End If
End Sub

Change the ranges as needed and add additional tests as needed. Note you can only have one "Change Event" so add all your code to the one Sub! Hope this helps. JSW

 

[PH]

Thanks,

but i had problem .. because everytime change another cell after enter they will go to last cell AB1

how to fix this .. only if change in A1 will go to AB1