Thread: Macro to copy from active cell and down
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Claus Busch Claus Busch is offline
external usenet poster
  
Posts: 3,872
Default Macro to copy from active cell and down
Hi Kaj,

Am Sun, 3 Nov 2013 10:52:30 GMT schrieb :

From active cell copy down in actual column until no more cells with text is
met.
Blank cells should be ignored.

with not adjacent cells you can't autofill with changing referencies.
But if you want to fill with the same value you can try (text with
blanks is in column A and you want to fill column B from activecell
down):

Sub Test()
Dim LRow As Long

LRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(ActiveCell.Row, 1), Cells(LRow, 1)) _
.SpecialCells(xlCellTypeConstants).Offset(, 1) _
= ActiveCell
End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
Reply With QuoteReply With Quote