Ir ao conteúdo
  • Cadastre-se
jeanvet

Excel recuperar dados do userform

Recommended Posts

graças ao forum a função principal do meu formulário já está pronta, só que eu criei um botão de rolagem no formulário e gostaria de carregar os dados preenchidos anteriormente no próprio formulário de acordo que vai retornando ou avançando no botão de rolagem. vai em anexo a versão final

Preencher Hemograma V4.6beta.xlsm

Compartilhar este post


Link para o post
Compartilhar em outros sites

já que ninguém ajudou, eu resolvi o problema primeiro atribuindo um valor ao botão de rolagem, esse valor era a contagem do numero de celulas preenchidas no banco de dados + 1 com o seguinte código:

Private Sub UserForm_Initialize()

'spin button arquivo
    Dim iRow As Long
    Dim pt As Worksheet
    Set pt = Worksheets("backup")

    iRow = pt.Cells.Find(What:="*", SearchOrder:=xlRows, _
        SearchDirection:=xlPrevious, LookIn:=xlValues).Row

    SpinButtonArquivo.Value = iRow
    
    TBspinbutton.Value = SpinButtonArquivo.Value
    
 End Sub

definido onde comesará a contagem, basta configurar o que vai acontecer quando clicar no botão voltar do botão de rolagem:

 

Private Sub SpinButtonArquivo_Change()

TBspinbutton = SpinButtonArquivo.Value

    Dim ws As Worksheet
    Set ws = Worksheets("backup")

 

TextBoxpaciente = ws.Cells(SpinButtonArquivo.Value + 1, 2).Value
TextBoxidade = ws.Cells(SpinButtonArquivo.Value + 1, 5).Value
TextBoxproprietario = ws.Cells(SpinButtonArquivo.Value + 1, 7).Value
TextBoxdata = ws.Cells(SpinButtonArquivo.Value + 1, 9).Value
TextBoxeritrocitos = ws.Cells(SpinButtonArquivo.Value + 1, 10).Value
tbhemoglobina = ws.Cells(SpinButtonArquivo.Value + 1, 11).Value
tbhematocrito = ws.Cells(SpinButtonArquivo.Value + 1, 12).Value
tbplaquetas = ws.Cells(SpinButtonArquivo.Value + 1, 13).Value
tbalt = ws.Cells(SpinButtonArquivo.Value + 1, 14).Value
TBfa = ws.Cells(SpinButtonArquivo.Value + 1, 15).Value
tbcreatinina = ws.Cells(SpinButtonArquivo.Value + 1, 16).Value
TBureia = ws.Cells(SpinButtonArquivo.Value + 1, 17).Value
tbleucototais = ws.Cells(SpinButtonArquivo.Value + 1, 18).Value
tbeosinofilos = ws.Cells(SpinButtonArquivo.Value + 1, 19).Value
tblinfocitos = ws.Cells(SpinButtonArquivo.Value + 1, 20).Value
TBglicemia = ws.Cells(SpinButtonArquivo.Value + 1, 21).Value
ComboBox1 = ws.Cells(SpinButtonArquivo.Value + 1, 4).Value
CbVeterinario = ws.Cells(SpinButtonArquivo.Value + 1, 8).Value

Dim linha As String
linha = SpinButtonArquivo.Value + 1
If Worksheets("backup").Cells(linha, 6).Value = Macho Then
OBMasculino.Value = True
Else
ObFeminino.Value = False
End If

BotaoMostraEscondeBioquimicos = True


End Sub

então coloquei o valor do spinbutton como sendo referente a linha, então bastando variar a coluna do valor referente no banco de dados.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×