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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Procurar no ultimo registo e nao no primeiro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
nuno



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

MensagemAssunto: Procurar no ultimo registo e nao no primeiro   Qui 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Procurar no ultimo registo e nao no primeiro   Qui 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nuno



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

MensagemAssunto: Procurar no ultimo registo e nao no primeiro   Qui 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nuno



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

MensagemAssunto: Resolvido   Dom Dez 29, 2013 3:47 pm

Esta resolvido..obrigado pela ajuda
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Procurar no ultimo registo e nao no primeiro   Hoje à(s) 4:43 pm

Voltar ao Topo Ir em baixo
 
Procurar no ultimo registo e nao no primeiro
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Meu primeiro trampo !
» Primeiro Wallpaper
» Pac-Man in Platform Games - Primeiro Jogo
» [RESOLVIDO]Como colocar o player em primeiro plano
» (Meu Primeiro Jogo)Escape

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: