Pessoal, boa tarde!
Estou a duras penas adaptando um formulário que preciso para o trabalho, mas entendo lhufas de VBA. Sinceramente, o ideal nem seria utilizar essa solução, mas possuo máquinas com trava de instalação, então preciso utilizar o Excel.
Até o momento, consegui montar meu formulário com auxilio da duvida de outros aqui do fórum.. entretanto, uma dúvida: existe uma forma de que os campos texto sejam carregados do último registro? O que ocorre na verdade é que preciso fazer um cadastro em que algumas informações se repetem com frequência, como o pedido de exame, tipo:
A da Silva; 18/04/2000; Hemograma
A da Silva; 18/04/2000; Glicose
A da Silva; 18/04/2000; VHS
Gostaria de tentar "poupar" o digitador de repetir a mesma coisa tantas vezes. É possível carregar sempre o último nome como uma 'sugestão' de valor?
Abraços e já agradeço desde já a ajuda,
Audrey
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Como carregar os valores do último registro [RESOLVIDO]
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Seg Mai 22, 2017 4:48 pm
Como carregar os valores do último registro [RESOLVIDO]
Editado pela última vez por mem.vermelha em Sex Mai 26, 2017 4:53 pm, em um total de 2 vezes.
Re: Como carregar os valores do último registro
Audrey,
É possível sim. Segue abaixo um exemplo. Adicione a rotina ao final do código já existente ou após efetuar o lançamento na planilha.
Abs
É possível sim. Segue abaixo um exemplo. Adicione a rotina ao final do código já existente ou após efetuar o lançamento na planilha.
Código: Selecionar todos
'Altere Plan1 para o nome da aba onde são cadastrados os dados
With ThisWorkbook.Sheets("Plan1")
'Ativamos a planilha onde os dados são cadastrados
.Activate
'Variável do tipo Inteiro para retornar a ultima linha preenchida
Dim ultimaLinha As Integer
'Armazenamos o valor na variável
ultimaLinha = .UsedRange.Rows.Count
'Alimentamos os controles do Formulário de acordo com os valore
'da última linha preenchida e suas respectivas colunas
'Altere SeuFormulario para o nome do seu form e TextBoxX para o nome dos TextBox do seu form
SeuFormulario.TextBox1 = Cells(ultimaLinha, "A")
SeuFormulario.TextBox2 = Cells(ultimaLinha, "B")
SeuFormulario.TextBox3 = Cells(ultimaLinha, "C")
'E assim por diante...
End With
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Seg Mai 22, 2017 4:48 pm
Re: Como carregar os valores do último registro
Funcionou perfeitamente!
Muito obrigada, Gente! Jamais teria conseguido sem esse fórum!
Vou compartilhar assim que terminar o resultado final, caso possa ajudar mais alguém!
Abraços,
Audrey
Muito obrigada, Gente! Jamais teria conseguido sem esse fórum!
Vou compartilhar assim que terminar o resultado final, caso possa ajudar mais alguém!
Abraços,
Audrey
Re: Como carregar os valores do último registro
Audrey,
Que bom ficou á contento.
Favor, não esqueça de editar o título do tópico com o texto [RESOLVIDO], caso sua dúvida tenha sido sanada.
Abs
Que bom ficou á contento.
Favor, não esqueça de editar o título do tópico com o texto [RESOLVIDO], caso sua dúvida tenha sido sanada.
Abs