Help changong Lotus code to Excel

[wdpittjr]

Lotus code looks like this except it was all on one line: <BASEFONT color=#000000 size=1 face=Arial LOTUS_SIZE="10"></BASEFONT>

{?}{RIGHT}{?}{RIGHT}{?}{RIGHT}{?}{RIGHT}{?}{RIGHT}{?}{DOWN}{LEFT 4}{RIGHT}{?}{RIGHT}{?}{RIGHT}{?}{RIGHT}{?}{DOWN}{LEFT 5}{BRANCH \C}

<TBODY>
</TBODY>

I let Excel record the key strokes I want (see below) basically I would like it if instead of the numbers example "458, 1458, etc" that I could just enter new data from the keyboard in those places. The standard keyboard settings will almost work except the second line of data starts two cells to the right of the upper line requiring me to tab two extra times.

<CODE>ActiveCell.FormulaR1C1 = "458" Range("C3").Select ActiveCell.FormulaR1C1 = "1458" Range("D3").Select ActiveCell.FormulaR1C1 = "14" Range("E3").Select ActiveCell.FormulaR1C1 = "15" Range("F3").Select ActiveCell.FormulaR1C1 = "45" Range("C4").Select ActiveCell.FormulaR1C1 = "hfgr" Range("D4").Select ActiveCell.FormulaR1C1 = "ytur" Range("E4").Select ActiveCell.FormulaR1C1 = "jdjhd" Range("F4").Select ActiveCell.FormulaR1C1 = "kjgye" Range("B5").Select</CODE>
</PRE>

 

[Scott Huish]

I'm not sure what you mean by the second line starting two cells to the right of the upper line.

The sequence in your code is C3:F3, C4:F4, then B5, which can be accomplished in the Worksheet Change event like this:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c, x
c = Array("C3", "D3", "E3", "F3", "C4", "D4", "E4", "F4", "B5")
x = Application.Match(Target.Address(0, 0), c, 0)
If IsNumeric(x) Then Range(c(x Mod 9)).Select
End Sub

Copy the above code.
Right click on the sheet tab where you want this to happen on, paste the code in the white area. Hit Alt-q