Excel recuperar dados do userform

[jeanvet]

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

[jeanvet]

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.