ola tenho uma planilha no excell e quando clicar para atualizar a planilha tos que tem sim aparecerá 0 na coluna Estado confornme abaixo
usuário e Férias Eestado
Pedro sim 0
Joao não
Maria não
Lima sim 0
Jaquelina não
Public contaLinha As String
Sub Lista()
On Error Resume Next
contaLinha = 3
Do Until TabBusca.Range("C" & contaLinha).Value = "sim"
If Sheets("TabBusca").Range("C" & contaLinha) = "sim" Then
' Range("G13") = "30" '.Select
Range("C" & contaLinha + 1).Select
With Selection.Interior
.ColorIndex = 14
End With
Exit Do
Else
' Range("D26") = "26" '.Select
' Range("D26").Select
' With Selection.Interior
' .ColorIndex = 15
' End With
contaLinha = contaLinha1
End If
Loop
End Sub
Postado : 13/01/2015 11:50 am