igadino Postado Janeiro 13, 2015 Denunciar Share Postado Janeiro 13, 2015 ola tenho uma planilha no excell e quando clicar para atualizar a planilha tos que tem sim aparecerá 0 na coluna Estado confornme abaixousuário e Férias EestadoPedro sim 0Joao nãoMaria nãoLima sim 0Jaquelina nãoPublic contaLinha As StringSub Lista()On Error Resume NextcontaLinha = 3Do Until TabBusca.Range("C" & contaLinha).Value = "sim"If Sheets("TabBusca").Range("C" & contaLinha) = "sim" Then' Range("G13") = "30" '.SelectRange("C" & contaLinha + 1).SelectWith Selection.Interior.ColorIndex = 14End WithExit DoElse' Range("D26") = "26" '.Select' Range("D26").Select' With Selection.Interior' .ColorIndex = 15' End WithcontaLinha = contaLinha1End IfLoopEnd Sub Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
igadino
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
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.