Como carregar os valores do último registro [RESOLVIDO]

[mem.vermelha]

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

[srobles]

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.

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

Abs

[mem.vermelha]

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

[srobles]

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