jump to cellClosed

Question

Hello, 


I have two columns A and B. Suppose i write 3 in Cell A1, then I want the cursor directly jumps to cell B3 and value 3 is filled in the cell B3. in the same way if i write 5 in cell A2 then i want cursor jumps directly to B5 and in this cell 5 is filled. 
So my problem is that whatever i write in any cell of column A (i.e. cell value. from 1 to 100) the cursor jumps directly to the cell of column B (whatever vlaue is written in the cells of column A). Here it is to be noted that in columnA we will not leave any cell blank.. Is there any solution or macro for it. Please help 
Configuration: Windows 7 / Internet Explorer 9.0

venkat1926 · Answer

right click the sheet tab and click view code and copy paste this event code

save the file and then enter any number in column A and see what happens 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Long, k As Long, m
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
j = Target.Value
Range("B" & j) = j
Application.EnableEvents = True
End Sub

venkat1926 · Answer

try this modified event code. as explained right click tab and click view code and park it there.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Long, k As Long, m
'If Target.Column <> 1 Then Exit Sub
If Target.Column Mod 2 = 0 Then Exit Sub
If Target.Column > 100 Then Exit Sub
If Len(Target) = 0 Then Exit Sub
Application.EnableEvents = False
j = Target.Value
Cells(j, Target.Column + 1) = j
Application.EnableEvents = True
End Sub


your item 3.   regarding the first row blank can you  enter only in row 2 or above.  Does it require a code?( you can have if required)


try various experiments.  If this had been told in the first message itself it would have avoided modification. In your message the cell referred to is A1 .  perhaps you require first row to be blank

Jump to cell

2 responses

Similar discussions

Subscribe To Our Newsletter!