copy text of cells down to blank cells
 

how can i create a macro
let's say

column n

row2 al
row3
row4
row5 ps
row6
row7 ax
row8
row9

go to column "n", select first cell with text, copy that text to blank cells
below until it gets to another cell with text, copy that text to blank cells
below, and continue the same procedure until no more cells with text

result should be

row2 al
row3 al
row4 al
row5 ps
row6 ps
row7 ax
row8 ax
row9 ax

thanks a lot

copy text of cells down to blank cells
 

Modify ranges as needed:

Sub SameAsAbove()
'Copies data from cell above if current cell in range is blank
Dim MyRange As Range
Dim MyCell As Range
Dim Endrow As Integer
Endrow = Range("A65536").End(xlUp).Row
Set MyRange = Range("A1:G" & Endrow)
MyRange.Select
On Error Resume Next
For Each MyCell In MyRange
If MyCell.Value = "" Then
MyCell.Value = MyCell.Offset(-1, 0).Value
End If
Next MyCell
End Sub

andresg1975 wrote:
how can i create a macro
let's say

column n

row2 al
row3
row4
row5 ps
row6
row7 ax
row8
row9

go to column "n", select first cell with text, copy that text to blank cells
below until it gets to another cell with text, copy that text to blank cells
below, and continue the same procedure until no more cells with text

result should be

row2 al
row3 al
row4 al
row5 ps
row6 ps
row7 ax
row8 ax
row9 ax

thanks a lot

copy text of cells down to blank cells
 

This code should do what you want. this assumes that row 9 is your last
row. You can modify as appropriate.

Sub test()
Range("N2").Select
txt = ActiveCell.Value

Repeat:

If Range("N" & ActiveCell.Row + 1) = "" _
Then
LastRow = Range("N" & (ActiveCell.Row)).End(xlDown).Offset(-1,
0).Row
Range("N" & (ActiveCell.Row + 1) & ":N" & LastRow).Select

If Selection.End(xlDown).Row = 65536 _
Then
Range("N" & (ActiveCell.Row) & ":N9").Select
Selection.Value = txt
End
Else:
Selection.Value = txt
txt = Range("N" & LastRow + 1).Value
End If
Range(Selection.Address).End(xlDown).Select
Else:
End If
GoTo Repeat

End Sub


Regards

"andresg1975" wrote in message
...
how can i create a macro
let's say

column n

row2 al
row3
row4
row5 ps
row6
row7 ax
row8
row9

go to column "n", select first cell with text, copy that text to blank
cells
below until it gets to another cell with text, copy that text to blank
cells
below, and continue the same procedure until no more cells with text

result should be

row2 al
row3 al
row4 al
row5 ps
row6 ps
row7 ax
row8 ax
row9 ax

thanks a lot

copy text of cells down to blank cells
 

Debra Dalgleish has some techniques:
http://www.contextures.com/xlDataEntry02.html


andresg1975 wrote:

how can i create a macro
let's say

column n

row2 al
row3
row4
row5 ps
row6
row7 ax
row8
row9

go to column "n", select first cell with text, copy that text to blank cells
below until it gets to another cell with text, copy that text to blank cells
below, and continue the same procedure until no more cells with text

result should be

row2 al
row3 al
row4 al
row5 ps
row6 ps
row7 ax
row8 ax
row9 ax

thanks a lot

--

Dave Peterson