Ir para conteúdo
Fórum Script Brasil
  • 0

Geração de ID para cadastro de clientes VBA


silva_gs

Pergunta

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 para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...