marreco
01-16-2013, 03:56 PM
Hi.
I found this routine done by, Patel45, and tried to adapt.
the problem is that it is taking too long to finish.
could someone help me?
Sub Teste_Patel45()
Dim cell As Range, cella As Range, rng As Range, srng As Range
Set rng = Sheets(2).UsedRange
Set srng = Sheets(1).UsedRange
Application.ScreenUpdating = False
For Each cell In rng
For Each cella In srng
If cella = cell Then
cella.Offset.Cells(1, 7).Value = "Sim"
End If
Next cella
Next cell
Application.ScreenUpdating = True
End Sub
I need to check duplicate data in different worksheets, and writing palavrea "yes" in column "G" Worksheet 1
thank you!!
I found this routine done by, Patel45, and tried to adapt.
the problem is that it is taking too long to finish.
could someone help me?
Sub Teste_Patel45()
Dim cell As Range, cella As Range, rng As Range, srng As Range
Set rng = Sheets(2).UsedRange
Set srng = Sheets(1).UsedRange
Application.ScreenUpdating = False
For Each cell In rng
For Each cella In srng
If cella = cell Then
cella.Offset.Cells(1, 7).Value = "Sim"
End If
Next cella
Next cell
Application.ScreenUpdating = True
End Sub
I need to check duplicate data in different worksheets, and writing palavrea "yes" in column "G" Worksheet 1
thank you!!