Vídeo recomendado
https://youtu.be/Ju8Esra5--I

Ativar botão ALTERAR em userforms

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Albino Sergio
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sex Nov 05, 2021 10:11 am

Ativar botão ALTERAR em userforms

Mensagem por Albino Sergio »

Bom dia Senhores,
Estou tentando aprender VBA via vídeos do youtube e estou desenvolvendo um programa VBA userforms. Já desenvolvi os botões GRAVAR, EXCLUIR, LIMPAR E BUSCAR. só que embarrerei no botão ALTERAR, não consegui ainda o comando certo que faça as edições no BDados pelo formulário userforms.
Quando a BUSCA anterior é feita pelo ID, ou seja, pela coluna "A:A" (nº de código) a edição funciona perfeitamente, só que agora preciso fazer a busca pela coluna mais centralizada na coluna "R:R" (pelo nº do processo) a edição não funciona, já tentei váaarias combinações e pesquisas nos youtubes.
Segue o comando que estou tentando:
Private Sub BtAlterarAud_Click()
Private Sub BtAlterarAud_Click()
Dim LINHA_FIM As Integer
Dim PROCESSO As Integer

LINHA_FIM = Plan6.Range("R30000").End(xlUp).Row
PROCESSO = Cbo_Processo_Aud

For i = 3 To LINHA_FIM
If PROCESSO = Plan6.Range("R" & i) Then

Plan6.Range("O" & i) = Txt_Data_Aud.Text
Plan6.Range("P" & i) = Txt_Hora_Aud.Text
Plan6.Range("Q" & i) = Txt_Status_Aud.Text
Plan6.Range("R" & i) = Txt_Processo_Aud.Text
Plan6.Range("S" & i) = Txt_Modalidade_Aud.Text
Plan6.Range("TU" & i) = Txt_Cliente_Aud.Text
Plan6.Range("U" & i) = Txt_Réu_Aud.Text

MsgBox "Registro da Audiência ALTERADO com sucesso.", vbInformation, "ALTERAR!"
Exit Sub
End If
Next
End sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Ativar botão ALTERAR em userforms

Mensagem por Reinaldo »

Pela definição de variáveis, o PROCESSO e um numero inteiro (integer);
porem mesmo estando visualmente como numero no excel, internamente pode ser considerado um texto.
Então experimente utilizar a pesquisa com Processo como texto.
Caso não consiga , disponha um modelo com poucos dados (ficticios) mas significativo de seu projeto


Albino Sergio
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sex Nov 05, 2021 10:11 am

Re: Ativar botão ALTERAR em userforms

Mensagem por Albino Sergio »

Show Reinaldo, perfeito
Acho que agora só falta um pequeno detalhe para eu CONCLUIR o meu projeto.
O botão EXCLUIR só executa o comando se eu estiver na planilha "BDados" (Plan6). não consegui até agora desenvolver o comando que exclua uma linha na Plan6 (selecionado no combo Processo), estando trabalhando na Plan3, ou seja, que direciona para a Plan6.

Um abraço grande
Obrigado


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder