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
|