Find Method

[LiSa]

Hello

I have two workbooks called Alpha and Beta, which both
have one worksheet (Sheet1).
Alpha has a string in range A1 and a command button on it.
When the user clicks the button on Alpha, I want Excel to
open Beta and do a 'Find' in the Column A of Beta, for the
string that is in range A1 of Alpha.

If the string is found on Beta, then I want to
activate/select the cell two columns along on the same
row, offset(0,2), else if it doesn't find it then do
nothing.

This is my code so far which doesn't work.

Private Sub Commandbutton1_Click()
Workbooks.Open "path to Beta"
With ActiveWorkBook.Sheet1.Columns(1)
Set C = .Find(What:=ThisWorkBook.Sheet1.Range("A1"))
If Not c is Nothing

 

[LiSa]

Sorry I pressed tab trying to indent code which sent it by
mistake.

Here is all the code.

Private Sub Commandbutton1_Click()
Workbooks.Open "path to Beta"
With ActiveWorkBook.Sheet1.Columns(1)
Set C = .Find(What:=ThisWorkBook.Sheet1.Range("A1"))
If Not c is Nothing
c.address.offset(0,2).activate
end if
end with
end sub

 

[Don Guillett]

See if this helps

Sub resizefind()
With Sheet1.Columns(1)
Set c = .Find(What:=Sheet1.Range("b1"))
If Not c Is Nothing Then c.Resize(1, 3).Select
End With
End Sub

 

[Don Guillett]

If you only want to select the cell that is 2 columns to the right then use
this line.
If Not c Is Nothing Then c.Offset(0, 2).Select

However, what do you want to select it for. You can use it without
selecting.
then c.offset(0,2)=5

 

[Tom Ogilvy]

Private Sub Commandbutton1_Click()
Workbooks.Open "path to Beta"
With ActiveWorkBook.worksheets(1).Columns(1)
Set C = .Find(What:=ThisWorkBook.worksheets(1).Range("A1"))
If Not c is Nothing
c.offset(0,2).activate
end if
end with
end sub