Boa tarde
Recorro à vossa ajuda para resolver um problema:
- Tenho um programa em vba excell para registo de utentes numa instituição social.
Acontece que cada jovem passa por um processo de avaliação mensal e este programa o que faz é inserir para cada mês a avaliação do jovem com dados pessoais que se mantem todos os meses e dados de avaliação que são mudados mês apos mês.
Por exemplo no mês de janeiro entra um jovem, onde se inserem dados pessoais, escola, turma. Depois no decorrer desse mês faz –se uma avaliação e acrescenta-se os dados.
No mês de fevereiro a fim de não esta a introduzir novamente todos os dados do mesmo jovem criei uma caixa de combinação onde aparecem todos os jovens já inseridos. Escolho o jovem e puxo (Botao 1) os dados apenas de identificação e faço um novo registo para mês a seguir.
Comando Botão 1:
Dim c As Range
Dim linha
Dim ws As Worksheet
Dim linhactual As Long
If txtNomeUtente.Text = "" Then
MsgBox "Selecione o nome do Jovem!"
End IF
For Each ws In Worksheets
Set c = ws.Range("C:C").Find(txtNomeUtente.Value, LookIn:=xlValues, _
LookAt:=xlPart)
If Not c Is Nothing Then
txtNomeUtente.Value = c.Value
txtNomeGestor.Value = c.Offset(0, 1).Value
txtNomePsicologo.Value = c.Offset(0, 2).Value
txtNomeAS.Value = c.Offset(0, 3).Value
txtMorada.Value = c.Offset(0, 4).Value
txtCidade.Value = c.Offset(0, 5).Value
txtCP.Value = c.Offset(0, 6).Value
txtNaturalidade.Value = c.Offset(0, 7).Value
End If
Next
Problema: puxa os dados do primeiro registo do jovem que encontra e eu quero que puxe os dados do ultimo registo pois estão mais atualizados.
Será que alguém me pode ajudar?
Obrigado