Atualizar dados no Excell

[igadino 0]

ola tenho uma planilha no excell e quando clicar para atualizar a planilha todos que tem sim no campo da planilha campanha aparecerá 0 na coluna real e meta confornme abaixo

 

usuário e Férias

Pedro sim

Joao não

Maria não

Lima sim

Jaquelina não

 

Planilha Campanha

 

real meta

0 0

 

Sub Lista()

On Error Resume Next

contaLinha = 3

Do Until TabBusca.Range("C" & contaLinha).Value = "sim"

If Sheets("TabBusca").Range("C" & contaLinha) = "sim" Then

Sheets("Campanhas").Range("D13:D25" & contaLinha + 1).Select

With Selection.Interior

.ColorIndex = 14

End With

Exit Do

Else

contaLinha = contaLinha1

End If

Loop

End Sub

[xanburzum 169]

vc quer exibir os dados direto no excel ou mostrar na página.

lembrando que vc pode apenas usar um If para trocar o sim por 0