Guru do Excel e Power BI

Sub preenche2()
On Error GoTo errPreenche
Dim tbPrincipal As ListObject, tbBusca As ListObject
Dim counter As Long, i As Long
Dim wkf As WorksheetFunction
Dim colBusca As Long, colResultado As Long
Dim resultado As Boolean
Dim procurado As Variant


Set tbPrincipal = Backup.ListObjects("tblBACKUP")
Set tbBusca = Data.ListObjects("TbCodigos")
Set wkf = Application.WorksheetFunction


colBusca = wkf.Match("idCodAtv", tbPrincipal.HeaderRowRange, 0)
colResultado = wkf.Match("inFTE", tbPrincipal.HeaderRowRange, 0)

tbPrincipal.ListColumns(colResultado).DataBodyRange.ClearContents

    For i = 1 To tbPrincipal.DataBodyRange.Rows.Count
        resultado = False
        procurado = tbPrincipal.DataBodyRange.Cells(i, colBusca)
        counter = wkf.CountIf(tbBusca.ListColumns(1).DataBodyRange, procurado)
        
        If counter > 0 Then resultado = True
        
        tbPrincipal.DataBodyRange.Cells(i, colResultado) = resultado
    
    
    Next i


Exit Sub

errPreenche:

MsgBox "Um erro ocorreu, verifique !", vbExclamation, "Atenção"


End Sub

Sub InsereVerdadeiro()
 Dim idCodAtv As Range, k As Long
  With Sheets("Data")
   For Each idCodAtv In .Range("E2:E" & .Cells(Rows.Count, 5).End(3).Row)
    If Application.CountIf(Sheets("Backup").[A:A], idCodAtv.Value) > 0 Then
     k = Sheets("Backup").[A:A].Find(idCodAtv.Value, lookat:=xlWhole).Row
     Sheets("Backup").Cells(k, "P") = True
    End If
   Next idCodAtv
  End With
End Sub

Sub InsereVerdadeiroV2()
 Dim idCodAtv As Range
  With Sheets("Backup")
   For Each idCodAtv In .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row)
    If Application.CountIf(Sheets("Data").[E:E], idCodAtv.Value) > 0 Then idCodAtv.Offset(, 15).Value = True
   Next idCodAtv
  End With
End Sub