J
JMay
I have Column A8:A150
A8 = SI-11
A9 Blank
A10 Blank
A11 Blank
A12 = SI-12
A13 Blank
A14 Blank
A15 = SI-13
.......
To acheive what I want - Which is:
A8 = SI-11
A9 = SI-11
A10 =SI-11
A11 =SI-11
A12 = SI-12
A13 =SI-12
A14 =SI-12
A15 = SI-13
.......
When within Excel (No VBA)
I highlight A9:A14, Edit, GoTo, SpecialCells.. Blanks, OK
then with 1st cell highlite (by excel as A9) I arrow-up to A8
and Press Control+Enter -- It works FIne
When I record a Macro to do same
I get A9:A14 = SI-11 << the macro is overwriting my NON-Balank Cells
rather than reproducing from where they start downward to the next Non Blank;
I'm not hoding my mouth right, or What?
My current code:
Set mynewRng = Range("A9:A" & MylrA)
With mynewRng
.SpecialCells(xlCellTypeBlanks).Select
.FormulaR1C1 = "=R[-1]C"
End With
Thanks in advance for any assistance....
Jim
A8 = SI-11
A9 Blank
A10 Blank
A11 Blank
A12 = SI-12
A13 Blank
A14 Blank
A15 = SI-13
.......
To acheive what I want - Which is:
A8 = SI-11
A9 = SI-11
A10 =SI-11
A11 =SI-11
A12 = SI-12
A13 =SI-12
A14 =SI-12
A15 = SI-13
.......
When within Excel (No VBA)
I highlight A9:A14, Edit, GoTo, SpecialCells.. Blanks, OK
then with 1st cell highlite (by excel as A9) I arrow-up to A8
and Press Control+Enter -- It works FIne
When I record a Macro to do same
I get A9:A14 = SI-11 << the macro is overwriting my NON-Balank Cells
rather than reproducing from where they start downward to the next Non Blank;
I'm not hoding my mouth right, or What?
My current code:
Set mynewRng = Range("A9:A" & MylrA)
With mynewRng
.SpecialCells(xlCellTypeBlanks).Select
.FormulaR1C1 = "=R[-1]C"
End With
Thanks in advance for any assistance....
Jim