Simply copy selected cell down 1

[sera]

I'm pretty new to VBA, sorry for noob question.

I want to copy a selected cell down X number rows. Just like clicking the corner and dragging it down X number cells. This is text cells.

my problem is finding the row col of the selected cell.


Sera

 

[PHV]

my problem is finding the row col of the selected cell
Something like ActiveCell.Row and ActiveCell.Column ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[SkipVought]

Might be something like...

  x=5
  with Activecell
    .copy range(.cells(1,1), .cells(x,1))
  end with

Skip,

_{[red]Be Advised![/red] Coeds studying ancient Egyptian plumbing, might be known as...
Pharaoh Faucet Majors}

 

[sera]

Thanks All!

My solution:

Sub copy_down()
    y = ActiveCell.Column
    x = ActiveCell.Row
    txt = ActiveCell.Value
 
    ' I need this to copy down 65 cells

    For i = 1 To 65
        Cells(x + i, y).Select
        Selection.Value = txt
    Next i

End Sub

Sera

 

[sera]

guess i got my x y swapped! ugh! need more coffee

Sera

 

[SkipVought]

x=65

Skip,

_{[red]Be Advised![/red] Coeds studying ancient Egyptian plumbing, might be known as...
Pharaoh Faucet Majors}

 

[sera]

its not going from row 1-65
it could be going row 112-177 or row 388-453 etc.

Sera

 

[SkipVought]

did you TRY it???

Skip,

_{[red]Be Advised![/red] Coeds studying ancient Egyptian plumbing, might be known as...
Pharaoh Faucet Majors}

 

[sera]

works fine!


Sera

 

[oletrol]

No matter what row you are in try
activecell.offset(65,0)=activecell