Userform - Pesquisa / Edição

[feoonline]

Olá a todos  tudo bem?

 

Sou novo aqui muito bom o espaço para tirar duvidas ainda mais alguém como eu bem amador em VBA.

 

Bom estou fazendo um formulário de cadastro de reclamação de consumidor, e estou tentando fazer um para quando quiser editar informações se seja feita a busca aparitr de um protocolo.

 

Como faço para anexar a planilha aqui tem como?

Att.

Rafael Féo

[feoonline]

Olá,

Achei um jeito de postar o arquivo Google Drive segue link abaixo:

Baixar Planilha

A ideia é a seguinte, hj a edição esta no formulário de reclamação.

Eu queria separar esse formulário, de modo que quando clicar em edição abre um campo com um botão para digitar o numero protocolo.

Após digitar o numero ele chama o formulário de edição, os protocolos tem a condição de “D” Diversos e “R” Reclamação tem como colocar essa condição para selecionar o formulário que ele chama?

Muito obrigado.
Att.
Rafael Féo

Editado Setembro 10, 2018 por feoonline

[feoonline]

Olá,

 

alguém ?

[Alyson Ronnan Martins]

Não entendi a ultima parte: 
 

os protocolos tem a condição de “D” Diversos e “R” Reclamação tem como colocar essa condição para selecionar o formulário que ele chama?

Quando colocar em editar e aparece outra linha com o numero do protocolo. ( no formulário principal)

Eu criei um formulário para encontrar o protocolo na planilha cadastro.

Coloquei o seguinte código pra fazer a pesquisa e abrir o formulário que você estava criando:
 

Public Sub Pesq()
Dim Pesquisar As String
'Dim Resultado

Pesquisar = fProtocolo.TextBox1.Value
If Pesquisar = "" Then
fProtocolo.Label30.Caption = "Numero não preenchido"
Exit Sub
End If
 
Set Resultado = Sheets("Cadastro").Range("A:A").Find(What:=Pesquisar, LookIn:= _
        xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False)
If Resultado Is Nothing Then
fProtocolo.Label30.Caption = "Não encontrado"
Exit Sub
Else
Resultado = Resultado.Row
Pesquisa.Show
'Com o numero da linha abrir formulário preenchendo os dados

End If
End Sub

E coloquei um código no formulário Pesquisa para que carregue os dados encontrados:

Public Sub CarregarDadosPesquisa(Linha As Integer)
On Error Resume Next

With Worksheets("Cadastro")
    Pesquisa.Protocolo = .Range("A" & Linha)
    Pesquisa.txt_CPF = .Range("B" & Linha)
    Pesquisa.txt_Data = .Range("C" & Linha)
    Pesquisa.txt_Cliente = .Range("D" & Linha)
    Pesquisa.txt_Endereço = .Range("E" & Linha)
    Pesquisa.txt_Bairro = .Range("F" & Linha)
    Pesquisa.txt_Estado = .Range("G" & Linha)
    Pesquisa.txt_Cidade = .Range("H" & Linha)
    Pesquisa.txt_Cep = .Range("I" & Linha)
    Pesquisa.txt_Email = .Range("J" & Linha)
    Pesquisa.txt_TelFixo = .Range("K" & Linha)
    Pesquisa.txt_Celular = .Range("L" & Linha)
    Pesquisa.txt_TipoReclamacao = .Range("N" & Linha)
    Pesquisa.txt_LocalCompra = .Range("O" & Linha)
    Pesquisa.txt_DataFabricacao = .Range("P" & Linha)
    Pesquisa.txt_DataValidade = .Range("Q" & Linha)
    Pesquisa.txt_Lote = .Range("R" & Linha)
    Pesquisa.txt_HoraEnvase = .Range("S" & Linha)
    Pesquisa.txt_Quantidade = .Range("T" & Linha)
    Pesquisa.txt_PRoduto = .Range("U" & Linha)
    'Pesquisa.txt_TipoAtendimento = .Range("V" & Linha)
    Pesquisa.txt_Relato = .Range("X" & Linha)
    Pesquisa.TXT_Datalab = .Range("X" & Linha)
    Pesquisa.TXT_Procede = .Range("Y" & Linha)
    Pesquisa.TXT_reposicao = .Range("Z" & Linha)
    Pesquisa.TXT_Datareposicao = .Range("AA" & Linha)
    Pesquisa.TXT_QtdReposição = .Range("AB" & Linha)
    Pesquisa.TXT_Dataencerramento = .Range("AC" & Linha)
    Pesquisa.TXT_Observacoes = .Range("AD" & Linha)
End With



End Sub

Ps.:
Seu trabalho é muito extenso sempre usei as duvida dos fórum para ir apreendendo passo a passo cada coisa e não pegar o código completo. (Demora mesmo para o pessoal do fórum responder)

 

Segue link para planilha: https://drive.google.com/open?id=1BYWak1I2RnW3ZNO8iE4IKxlJfK3UEIKf