Hello

I'm am new, so please be patient.

I need to find in SheetB/ColumnB, values of SheetA/ColumnB and if I fin
them, I should delete them.

Dim tcid As Integer
tcid = ActiveCell.Value

Cells.Find(What:=tcid, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
True, SearchFormat:=False).Activate

I recorded a macro, but I get and error message.

I read something about "&quot" but I get a compiling error if I use that
syntax.
Could someone help me, please?

Thanks!
-Z

Your code will fail if the Find doesn't find what its looking
for, because there is nothing to activate. Instead of putting the
Activate method at the end of the Find method, as your code does,
use code like


Dim FoundCell As Range
Set FoundCell = Cells.Find(....)
If FoundCell Is Nothing Then
' code for not found
Else
FoundCell.Activate
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"zuhnara" wrote in message
...
Hello

I'm am new, so please be patient.

I need to find in SheetB/ColumnB, values of SheetA/ColumnB and
if I fin
them, I should delete them.

Dim tcid As Integer
tcid = ActiveCell.Value

Cells.Find(What:=tcid, After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext,
MatchCase:= _
True, SearchFormat:=False).Activate

I recorded a macro, but I get and error message.

I read something about "&quot" but I get a compiling error if I
use that
syntax.
Could someone help me, please?

Thanks!
-Z

That worked
Thank you very much!

-Zuh

"Chip Pearson" wrote:

Your code will fail if the Find doesn't find what its looking
for, because there is nothing to activate. Instead of putting the
Activate method at the end of the Find method, as your code does,
use code like


Dim FoundCell As Range
Set FoundCell = Cells.Find(....)
If FoundCell Is Nothing Then
' code for not found
Else
FoundCell.Activate
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"zuhnara" wrote in message
...
Hello

I'm am new, so please be patient.

I need to find in SheetB/ColumnB, values of SheetA/ColumnB and
if I fin
them, I should delete them.

Dim tcid As Integer
tcid = ActiveCell.Value

Cells.Find(What:=tcid, After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext,
MatchCase:= _
True, SearchFormat:=False).Activate

I recorded a macro, but I get and error message.

I read something about """ but I get a compiling error if I
use that
syntax.
Could someone help me, please?

Thanks!
-Z