Jump to content
Fórum Script Brasil
  • 0

Geração de ID para cadastro de clientes VBA


Question

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

Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0
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
 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148907
    • Total Posts
      645002
×
×
  • Create New...