Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Executar somente nas células Visíveis (Auto Filtro)
Re: Executar somente nas células Visíveis (Auto Filtro)
sr. srobles,
resolveu o problema de o código ignorar a 1º nome da lista, mais uma vez ... parabéns.
mas, observei agora que o código não obedeceu mais o primeiro critério, que é de não considerar nomes sem repetição, ou seja, escrever "concluído" se tiver em primeiro critério mais de 1 ocorrência (obs: no código anterior estava funcionando).
por exemplo, o código não deveria ter escrito "concluído" para CARLOS e JOÃO, por serem nomes com 1 única ocorrência.
mas o código escreveu "concluído" para esses 2 nomes também.
resolveu o problema de o código ignorar a 1º nome da lista, mais uma vez ... parabéns.
mas, observei agora que o código não obedeceu mais o primeiro critério, que é de não considerar nomes sem repetição, ou seja, escrever "concluído" se tiver em primeiro critério mais de 1 ocorrência (obs: no código anterior estava funcionando).
por exemplo, o código não deveria ter escrito "concluído" para CARLOS e JOÃO, por serem nomes com 1 única ocorrência.
mas o código escreveu "concluído" para esses 2 nomes também.
att.
Mathmatic / SC
Mathmatic / SC
Re: Executar somente nas células Visíveis (Auto Filtro)
Mathmatic,
Fiz outra alteração e dessa vez, nomes que não repetem não são validados. Favor teste e retorne.
Abs
Fiz outra alteração e dessa vez, nomes que não repetem não são validados. Favor teste e retorne.
Código: Selecionar todos
Sub validarDados()
'Altere o nome da aba caso necessite
With ThisWorkbook.Sheets("Plan1")
.Activate
Cells(2, "A").Select
'Retornamos a ultima linha preenchida
Dim ultimaLinha As Integer
ultimaLinha = .UsedRange.Rows.Count
'Laço For=> Next para verificar linha a linha
For a = 2 To ultimaLinha
Dim procItem As String
Dim endereçoCelula As String
Cells(a, "A").Select
endereçoCelula = ActiveCell.AddressLocal
'Armazenamos o valor da celula ativa para verificarmos com as demais
procItem = Cells(a, "A")
'Laço For=>Next para compararmos a variável com as linhas subsequentes
For b = a To ultimaLinha
Cells(b, "A").Select
'Se o valor da variável for igual ao da célula atual
If Cells(a, "A") = Cells(b, "A") Then
If Cells(b, "D") = "Concluído" Then Exit For
'Se os valores da coluna B e C forem maiores que 0 (zero) e a linha estiver visivel
If Cells(b, "B") > 0 And Cells(b, "C") > 0 And Selection.EntireRow.Hidden = False And Selection.AddressLocal <> endereçoCelula Then
'Adicionamos Concluído na coluna D
Cells(b, "D") = "Concluído"
Exit For
Else
End If
End If
Next
Next
End With
End Sub
Saulo
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
Re: Executar somente nas células Visíveis (Auto Filtro)
sr. srobles,
agora voltou a não considerar (não validar) denovo o 1º nome da lista.
obs1: tem uma planilha em anexo no inicio do tópico para fazer os testes.
obs2: aproveito para lebrá-lo que estou no aguardo de uma evolução do tópico:
viewtopic.php?f=20&t=5194
agora voltou a não considerar (não validar) denovo o 1º nome da lista.
obs1: tem uma planilha em anexo no inicio do tópico para fazer os testes.
obs2: aproveito para lebrá-lo que estou no aguardo de uma evolução do tópico:
viewtopic.php?f=20&t=5194
att.
Mathmatic / SC
Mathmatic / SC
Re: Executar somente nas células Visíveis (Auto Filtro)
Mathmatic,
Cara, acho que dessa vez foi...
Quanto ao tópico citado anteriormente, pensei (e errado
) que tivesse relação com este. Mas sem problemas, enviarei o código lá.
Favor, teste e retorne ok?
Abs
Cara, acho que dessa vez foi...

Quanto ao tópico citado anteriormente, pensei (e errado

Favor, teste e retorne ok?
Abs
- Anexos
-
- Mathmatic.rar
- (18.28 KiB) Baixado 24 vezes
Saulo
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
Re: [RESOLVIDO] Executar somente nas células Visíveis (Auto Filtro)
tópico [RESOLVIDO]
amigo srobles,
Perfeitíssimo .... meus sinceros Parabéns ..... funcionou para todos os critérios que citei durante o decorrer do tópico... parabéns mesmo !
quanto ao outro tópico ainda não analisei, assim que analisá-lo responderei lá no tópico.
até mais amigo.
amigo srobles,
Perfeitíssimo .... meus sinceros Parabéns ..... funcionou para todos os critérios que citei durante o decorrer do tópico... parabéns mesmo !
quanto ao outro tópico ainda não analisei, assim que analisá-lo responderei lá no tópico.
até mais amigo.
att.
Mathmatic / SC
Mathmatic / SC
Re: Executar somente nas células Visíveis (Auto Filtro)
Mathmatic,
Que bom que atendeu suas necessidades. Confesso que essa demanda nunca havia enfrentado, e que foi um desafio, porém gostei muito.
Obrigado pela paciência e compreensão meu amigo.
Ok, passarei a monitorar o outro tópico e espero que consigamos êxito também.
Abs
Que bom que atendeu suas necessidades. Confesso que essa demanda nunca havia enfrentado, e que foi um desafio, porém gostei muito.
Obrigado pela paciência e compreensão meu amigo.
Ok, passarei a monitorar o outro tópico e espero que consigamos êxito também.
Abs
Saulo
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].