Este fórum está sendo desativado

[Domingsp]

Olá, nessa macro pretendo procurar na coluna F numeros que estão na coluna C. Antes, em cada loop a macro deve escrever em A1 o numero procurado, e a apartir de A1, procura em coluna F.
Para isso estou tentando usar o método Find na esperança de ser mais rapida a procura. Se também tiverem uma sugestão de metodo mais rapido, fico grato.
Planilha anexada.

CONTROLECX.xlsm

Na execução essa macro apresenta Erro em tempo de execuçao '91':
A variavel do objeto ou a váriavel do bloco "With" não foi definida

Código: Selecionar todos

Sub Control()
'
  Application.ScreenUpdating = False
     Workbooks("CONTROLECX.xlsm").Sheets("Plan1").Activate
        UlinC = Cells(Rows.Count, "C").End(xlUp).Row
        For m = 2 To UlinC
           Range("A1") = Cells(m, "C")
           Lin = Sheets("Plan1").Range("F:F").Find(Range("A1").Value, LookAt:=xlWhole).Row
           Cells(Lin, "D") = 1
        Next
  Application.ScreenUpdating = True
End Sub

[osvaldomp]

Na execução essa macro apresenta Erro em tempo de execuçao '91':
O erro ocorre se o número de C não for encontrado em F.

Experimente o código abaixo vinculado diretamente ao botão, não é necessário um segundo código.

Código: Selecionar todos

Private Sub CommandButton1_Click()
 With Range("D2:D" & Cells(Rows.Count, 6).End(3).Row)
  .Formula = "=IF(COUNTIF(C$2:C$" & Cells(Rows.Count, 6).End(3).Row & ",F2),1,"""")"
  .Value = .Value
 End With
End Sub

[Domingsp]

Obrigado. Funcionou.