Excel option buton condicional ao valor de celula

[jeanvet]

tenho um formulário de cadastro que envia informações para o banco de dados onde cada cadastro gera uma numeração automática seguida dos valores preenchidos

adicionei no formulário um spinbutton, botão de rolagem, e o valor dele é igual ao numero do ultimo cadastro, então toda vez que clico no botao < do spin é carregado em todos os campos os ultimos dados preenchidos, e assim sucessivamente.

 

o problema é que não estou conseguindo carregar as infações preenchidas anteriormente quando o conteudo foi fornecido via botão de opção. ou seja, tenho no formulário uma das duas opções para escolher, macho ou fêmea, quando se clica em macho e clica em salva, para o backup vai a informação macho.

para todas os campos que não são botão de opção, o resgate funciona da seguinte forma:

ComboBox1 = ws.Cells(SpinButtonArquivo.Value + 1, 4).Value

e para os botões de opção sexo (macho;femea) e especie (canino, felino) tento com esse código mas não está funcionando.

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

alguém pode me dar uma solução? desde já agradeço

planilha em anexo

Preencher Hemograma V4.9.3.xlsm

[DJunqueira]

Sem resolver seu queixa principal, mas apresentando outras ideias...

 

Na aba 'modelo' células G30:G32 eu inseri uma formatação condicional em q uma bandeirinha verde aparece se o percentual do Leucograma estiver entre os valores de referência máximo e mínimo (K30:L32), se estiver acima, bandeira vermelha, abaixo, bandeira amarela. Isso deve agilizar a comparação com os valores de referência e a encontrar o problema do animal.

 

Na aba 'backup' eu formatei sua tabela e atribuí um nome Tabela_Cadastro, isso muitas vezes agiliza na chamada de código p/ construção de macro. Isso tb possibilita q você utilize o formulário automático do Excel p/ navegar entre os itens da tabela (Dados/Formulário).

Tb anexei uma planilha q eu tinha montado a um tempo atrás p/ controle de farmácia solidária de animais q pode te dar novas ideias.

Preencher Hemograma Veterinário.xlsm

Farmácia Solidária 2.xlsx

[jeanvet]

bem legal as ideias das bandeiras, acho que vou usar, pena que a impressora não imprime colorido, e o outro problema é que o valor minimo e máximo estão na mesma celula, 

 

e o problema eu resolvi sozinho, como vem acontecendo

 

mas fica o que eu usei, vai que ajuda agluém

If Worksheets("backup").Cells(SpinButtonArquivo.Value + 1, 3).Value = ("canino") Then
ObCanino.Value = True
Else
ObFelino.Value = True
End If