Button to select range based on the first/last cell content

[m.hamadeh]

Dear Experts,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
I would like to ask for a VB for a button to perform automatic range selection based on the content of the first cell and the last cell, as example:
<o> </o>
The first cell is fixed at A1 lets assume A1=”PIDSTART” and below at dynamic location another cell contain “PIDEND”. The macro shall search for this cell and select the range from A1 to the cell with “PIDEND” value.
<o> </o>
Example the range that will be selected A1:U23
<o> </o>
Best regards,
<o> </o>
m.hamadeh

 

[VoG]

Try this

Sub test()
Dim Found As Range
Set Found = Cells.Find(what:="PIDEND", LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then Range(Range("A1"), Found).Select
End Sub

 

[m.hamadeh]

Awsome ray:

 

[m.hamadeh]

Oh waht i have to add if this filds in other sheet, example the button in Sheet1 and the data in sheet2?

 

[VoG]

Try this

Sub test()
Dim Found As Range
With Sheets("Sheet2")
    Set Found = .Cells.Find(what:="PIDEND", LookIn:=xlValues, lookat:=xlWhole)
    If Not Found Is Nothing Then Application.Goto .Range(.Range("A1"), Found)
End With
End Sub