Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Procurar no ultimo registo e nao no primeiro

Ir para baixo 
2 participantes
AutorMensagem
nuno




Mensagens : 62
Data de inscrição : 27/02/2013

Procurar no ultimo registo e nao no primeiro Empty
MensagemAssunto: Procurar no ultimo registo e nao no primeiro   Procurar no ultimo registo e nao no primeiro EmptyQui Nov 07, 2013 3:14 pm

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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Procurar no ultimo registo e nao no primeiro Empty
MensagemAssunto: Re: Procurar no ultimo registo e nao no primeiro   Procurar no ultimo registo e nao no primeiro EmptyQui Nov 07, 2013 3:56 pm

Bom dia!!

Poderia postar seu arquivo modelo?

Se sim, o faça em site gratuito como www.sendspace.com ou outros, depois deposite o link aqui.

Caso você não tenha permissão de depositar o link, tente mascara-lo w*w*w.send*space.com*

Att
Ir para o topo Ir para baixo
nuno




Mensagens : 62
Data de inscrição : 27/02/2013

Procurar no ultimo registo e nao no primeiro Empty
MensagemAssunto: Procurar no ultimo registo e nao no primeiro   Procurar no ultimo registo e nao no primeiro EmptyQui Nov 07, 2013 4:03 pm

Aqui vai o link

https://meocloud.pt/link/716c39b1-acec-4aa4-aa61-1c4ac2442591/Gest%C3%A3o%20de%20caso%20GPS-%20Manuel%20Branco%20-%202%C2%BA%20vers%C3%A3o.xlsm
Ir para o topo Ir para baixo
nuno




Mensagens : 62
Data de inscrição : 27/02/2013

Procurar no ultimo registo e nao no primeiro Empty
MensagemAssunto: Resolvido   Procurar no ultimo registo e nao no primeiro EmptyDom Dez 29, 2013 3:47 pm

Esta resolvido..obrigado pela ajuda
Ir para o topo Ir para baixo
Conteúdo patrocinado





Procurar no ultimo registo e nao no primeiro Empty
MensagemAssunto: Re: Procurar no ultimo registo e nao no primeiro   Procurar no ultimo registo e nao no primeiro Empty

Ir para o topo Ir para baixo
 
Procurar no ultimo registo e nao no primeiro
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Registar valor diferente do que fica visível na célula
» Criar registo de data e hora da ultima atualização de mapa excel
» Macro - Localiza, copia e cola
» Criar guias, formatar e parar no último nome da lista.
» Procurar valores

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: