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
Vídeo recomendado
https://youtu.be/Ju8Esra5--I
https://youtu.be/Ju8Esra5--I
Ativar botão ALTERAR em userforms
-
Albino Sergio
- Colaborador

- Mensagens: 12
- Registrado em: Sex Nov 05, 2021 10:11 am
- Reinaldo
- 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
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
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

- Mensagens: 12
- Registrado em: Sex Nov 05, 2021 10:11 am
Re: Ativar botão ALTERAR em userforms
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
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

