Olá Sérgio....
Seu código funciona, sem dúvida. Mas pra dar um toque mais profissional à macro utilize a propriedade Cell do objeto Range quando trabalhar com linhas e/ou colunas em incremento. Segue minha sugestão:
If IsNumeric(Cells(Contador, 3)) And Cells(Contador, 3) <> 0 Then
Funcionario = Cells(Contador1 + 1, 1)
End If
Funcionario = Cells(Contador1 + 1, 1)
End If
Toninho
From: sergiobertolacini
Sent: Friday, July 10, 2009 8:41 PM
To: ExcelBr@...
Subject: [ExcelBr] Codigo para verifcar se ha um numero na celula
Estou escrevendo uma linha de comando no VBA que deve verificar se ha um numero em uma determinada celula.
Tenho duvida se escrevi a linha de comando de maneira eficiente.
Utilizei o comando IsNumeric, que funciona perfeitamente o problema e quando a celula esta vazia, o VBA entende que o valor é um numero e assim tive de acrescentar um complemento na linha, que não me parece eficente.
Segue a linha de comando para avaliação dos amigos. Se possivel gostaria de saber uma forma mais profissional de escrever o codigo.
If IsNumeric(Range(
Funcionario = Range("A" & Contador1 + 1)
End If
Desde já obrigado
Sérgio Bertolacini
Offline 
Enviar e-mail