Copy cells that vary in range
Rock on!! thank you!!!!!
"Vergel Adriano" wrote:
Hi,
here's one way :
Sub test()
Dim rStart As Range
Dim rEnd As Range
Set rStart = Columns(2).Find("start example 1")
Set rEnd = Columns(2).Find("end example 1")
If Not rStart Is Nothing And Not rEnd Is Nothing Then
Range(rStart, rEnd).Copy
End If
End Sub
--
Hope that helps.
Vergel Adriano
"BCLivell" wrote:
Hi everyone!
I need some assistence to come up with come code that will copy a range of
cells from a single column. The text in the first cell and the last cell are
always the same. But sometimes there could be 5 cells inbetween and other
times there could be 100 cells inbetween. Below is what I ahve come up with
to so far to show where I am trying to go. Thank you for your help!!
startrow = Columns(2).Find("start example 1").Select
ActiveCell.Copy
******Need to also copy all cells inbetween here****
startrow = Columns(2).Find("end example 1").Select
ActiveCell.Copy
|