Geração de ID para cadastro de clientes VBA

[silva_gs]

Olá a todos,

Primeiramente peço desculpas pela linguagem que vou utilizar neste post. Sou biomédico então tenho pouco domínio sobre a linguagem de programação. Estou com um problema no script de programação do meu arquivo VBA. Estou querendo gerar um código de identificação para as análises dos meus clientes e minha ideia é a seguinte:

Fazemos dois tipos de análises no laboratório, fisico-química e microbiológica. Para atender esta demanda, gerei dois CheckBox um com cada nome: Análises fisico-químicas; Análises microbiológicas; Em seguida, acrescentei dois TextBox na frente de casa CheckBox, para colocar o ID de cada análise de forma independente.

Estou conseguindo gerar o código, eu seleciono o CheckBox e o código é gerado porém, quando eu deseleciono o CheckBox, o código continua e não desaparece.

Estou precisando fazer com que ele suma, caso eu deselecione o CheckBox.

 

O script que estou usando para geração de código é:

Dim Y As Integer
Planilha2.Select
Planilha2.Range("A2").Select
Planilha2.Range("A2") = "0"
Range("A100000").End(xlUp).Offset(1, 0).Select
Y = Range("A100000").End(xlUp).Offset(0, 0).Value
Me.TextBox25 = Y + 1

 

Como faço para desaparecer o código caso eu deselecione o CheckBox?

 

Obrigado pela atenção,

Gabriel

[Strogonoff]

19 horas atrás, silva_gs disse:

Olá a todos,

Primeiramente peço desculpas pela linguagem que vou utilizar neste post. Sou biomédico então tenho pouco domínio sobre a linguagem de programação. Estou com um problema no script de programação do meu arquivo VBA. Estou querendo gerar um código de identificação para as análises dos meus clientes e minha ideia é a seguinte:

Fazemos dois tipos de análises no laboratório, fisico-química e microbiológica. Para atender esta demanda, gerei dois CheckBox um com cada nome: Análises fisico-químicas; Análises microbiológicas; Em seguida, acrescentei dois TextBox na frente de casa CheckBox, para colocar o ID de cada análise de forma independente.

Estou conseguindo gerar o código, eu seleciono o CheckBox e o código é gerado porém, quando eu deseleciono o CheckBox, o código continua e não desaparece.

Estou precisando fazer com que ele suma, caso eu deselecione o CheckBox.

 

O script que estou usando para geração de código é:

Dim Y As Integer
Planilha2.Select
Planilha2.Range("A2").Select
Planilha2.Range("A2") = "0"
Range("A100000").End(xlUp).Offset(1, 0).Select
Y = Range("A100000").End(xlUp).Offset(0, 0).Value
Me.TextBox25 = Y + 1

 

Como faço para desaparecer o código caso eu deselecione o CheckBox?

 

Obrigado pela atenção,

Gabriel

Gabriel, boa tarde!!!

a rotina que você postou é para a ultimha linha da planilha 2 da coluna A.

Eu costumo usar essa rotina 

Private Sub CheckBox1_Click()
CheckBox1.Value = False

seu código aqui....
End Sub

ou..

Private Sub CheckBox1_Click()
call rotina()
End Sub

 

sub rotina()

 

UserForm1.CheckBox1.Value = False (ou o nome do formulário)

end sub

outra dica:

declare 

Dim Ws as Worksheet

set Ws = Planilha2..

fica mais fácil para trabalhar para não ter que toda hora escrever planilha2..

espero ter ajudado..

caso ficou alguma dúvida, sugiro anexar uma planilha com o que precisa para devolvermos ela resolvida( crie uma pasta somente com a rotina que precisa...

abraço