Logo Hardware.com.br
Junes Anderson
Junes Anders... Novo Membro Registrado
44 Mensagens 4 Curtidas

Ajuda em VBA

#1 Por Junes Anders... 20/07/2017 - 16:17
Ola a todos, preciso de uma mão, tenho uma planilha de cadastro de funcionários, preciso de uma estrutura que ao abrir a planilha, ele cheque uma data especifica (periodo na empresa), e que se entrar em uma condição, apareça uma MsgBox para o usuario (se for igual a 45 dias), sou iniciante em VBA tenho noções de progamação, tentei fazer algo como se estivesse programando em C++, não consegui, tenho certeza que é algo simples de ser feito, alguem poderia me ajudar? A gambiarra que tentei fazer foi essa:
ActiveWorkbook.Sheets("Funcionarios&quot.Activate
For i = 0 To 500
If (Range("F[i]&quot.Value = 45) Then
MsgBox "Periodo de Experiencia vencendo hoje", vbInformation, "Periodo de experiencia"
End If
Next i
End Sub

Ps: Coloquei até 500 pois não sei alguma função que identifique a linha do ultimo cadastro
Basole
Basole Geek Registrado
945 Mensagens 596 Curtidas
#2 Por Basole
20/07/2017 - 16:34
[code=vb]
With ActiveWorkbook.Sheets("Funcionarios")
.Activate
For i = 1 To .Cells(.Rows.Count, "f").End(xlUp).Row ' <= Ultima linha c/ valor da col. F
If .Range("F" & i).Value = 45 Then
MsgBox "Periodo de Experiencia vencendo hoje", vbInformation, "Periodo de experiencia"
.Range("F" & i).Activate ' seleciona a respectiva celula
End If
Next i
End With
[/code]
Click em Curtir se a resposta foi útil. boa.gif Dê retorno por favor. Se resolveu, atencao_regras.gif Altere o Titulo como [ Resolvido ] comemorando.gif
Junes Anderson
Junes Anders... Novo Membro Registrado
44 Mensagens 4 Curtidas
#3 Por Junes Anders...
21/07/2017 - 17:31
Boa tarde, agradeço a atenção, talvez seja algo que eu esteja deixando passar, mas quando tento executar seu codigo, aparece o erro "O objeto e´obrigatório, quando clico em deepurar, ele seleciona essa linha: For i = 1 To .Cells(.Rows.Count, "F").End(xlUp).Row ' <= Ultima linha c/ valor da col. F.

Outra questão, percebi que seu codigo seleciona a celula quando reconhece, isso nao pode ocorrer, a verificação sera feita numa planilha ocultada, se possivel teria como em vez de ativar a celular, mostrar o nome do funcionario? No caso a verificação seria da linha F, teria como mostrar o valor da coluna A quando encontrasse? Agradeço
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal