katia cruz

26 de agosto de 2017

Boa tarde,

Alguem poderia me ajudar?

Tenho uma planilha com as colunas: Etapa1, Ano1,Etapa2, Ano2,Etapa3, Ano3,Etapa4, Ano4,Etapa5, Ano5. As Etapas são valores fixos, ex. Etapa1 só recebe o valor 1, mas os anos recebem conforme o usuario cadastra.

Gostaria que quando o usuario, em um formulario, por exemplo, escolhesse a etapa 1, e depois tal ano, procurasse na planilha que dentro da etapa 1 E na coluna Ano1 o valor pesquisado pelo usuario retornando quantidade de valores encontrados em um label .

Como faço esse loop de pesquisa? Sei que tenho que usar um If then, mas nao estou conseguindo organizar

25 de agosto de 2017

BOA TARDE,

Tenho um formulario de cadastro onde consigo, pesquisar, salvar e imprimir os dados, mas quando pesquisa um registro para alterar o código esta salvando em cima do ultimo registro, ou seja, não esta selecionando a celula do registro que a pesquisa localizou para alteração. Se alguem puder me ajudar fico grata. Sgue os codigos abaixo:

-------------- Botão de Pesquisar por nome ---------------

Private Sub btn_Procurar_Click()
If Me.txt_Procurar.Text = "" Then
        MsgBox "Digite um valor para a pesquisa"
    Else
        Call ProcuraPersonalizada(Me.txt_Procurar.Text)
        Label_Registros_Contador.Visible = True
       ' SpinButton1.Visible = True
       
    End If
    txt_Procurar.Text = ""
    
End Sub
Private Sub ProcuraPersonalizada(ByVal TermoPesquisado As String)
Dim Busca As Range
Dim Primeira_Ocorrencia As String
Dim Resultados As String
                                                 
        'Executa a busca POR NOME (COLUNA 
        Set Busca = Plan1.Range("B:B").Find(What:=TermoPesquisado, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    
    'Caso tenha encontrado alguma ocorrência...
    If Not Busca Is Nothing Then
     
        Primeira_Ocorrencia = Busca.Address
        Resultados = Busca.Row  'Lista o primeiro resultado na variavel
   
        'Neste loop, pesquisa todas as próximas ocorrências para
        'o termo pesquisado
        Do
            Set Busca = Plan1.Cells.FindNext(After:=Busca)
        
            'Condicional para não listar o primeiro resultado
            'pois já foi listado acima
            If Not Busca.Address Like Primeira_Ocorrencia Then
                Resultados = Resultados & ";" & Busca.Row
            End If
        Loop Until Busca.Address Like Primeira_Ocorrencia
    
    
        MatrizResultados = Split(Resultados, ";")
        
        'Atualiza dados iniciais no formulário
        SpinButton1.Max = UBound(MatrizResultados)  'Valor maximo do seletor de registros
        
        SpinButton1.Visible = True ' DEIXA O SELETOR VISIVEL
        
        'habilita o seletor de registro
        SpinButton1.Enabled = True
        
        'indicador do seletor de registros
        Label_Registros_Contador.Caption = "1 de " & UBound(MatrizResultados) + 1
        
      
        
        'Box com o conteudo encontrado
        BOXNOME.Text = Plan1.Cells(MatrizResultados(0), 2).Value
        BOXDTNASC.Text = Plan1.Cells(MatrizResultados(0), 3).Value
        BOXCIDNAS.Text = Plan1.Cells(MatrizResultados(0), 4).Value
        BOXUFNASC.Value = Plan1.Cells(MatrizResultados(0), 5).Value
        BOXPAI.Text = Plan1.Cells(MatrizResultados(0), 6).Value
        BOXMAE.Text = Plan1.Cells(MatrizResultados(0), 7).Value
        BOXIGREJA.Text = Plan1.Cells(MatrizResultados(0), 8).Value
        BOXCIDIGREJA.Text = Plan1.Cells(MatrizResultados(0), 9).Value
        BOXUFIGREJA.Value = Plan1.Cells(MatrizResultados(0), 10).Value
        BOXDTBATISMO.Text = Plan1.Cells(MatrizResultados(0), 11).Value
        BOXBPADRINHO.Text = Plan1.Cells(MatrizResultados(0), 12).Value
        BOXBMADRINHA.Text = Plan1.Cells(MatrizResultados(0), 13).Value
        BOXENDERECO.Text = Plan1.Cells(MatrizResultados(0), 14).Value
        BOXN.Text = Plan1.Cells(MatrizResultados(0), 15).Value
        BOXBAIRRO.Text = Plan1.Cells(MatrizResultados(0), 16).Value
        BOXCIDEND.Text = Plan1.Cells(MatrizResultados(0), 17).Value
        BOXTEL1.Text = Plan1.Cells(MatrizResultados(0), 18).Value
        BOXTEL2.Text = Plan1.Cells(MatrizResultados(0), 19).Value
        BOXTRANSF.Value = Plan1.Cells(MatrizResultados(0), 20).Value
        BOXDESIST.Value = Plan1.Cells(MatrizResultados(0), 21).Value
        BOXDTCOMUNHAO.Text = Plan1.Cells(MatrizResultados(0), 22).Value
        BOXOBS.Text = Plan1.Cells(MatrizResultados(0), 23).Value
        BOXMATRICULA.Text = Plan1.Cells(MatrizResultados(0), 24).Value
        ANO1.Text = Plan1.Cells(MatrizResultados(0), 25).Value
        ETAPA1.Value = Plan1.Cells(MatrizResultados(0), 26).Value
        FALTA1.Text = Plan1.Cells(MatrizResultados(0), 27).Value
        OBS1.Text = Plan1.Cells(MatrizResultados(0), 28).Value
        CAT1.Text = Plan1.Cells(MatrizResultados(0), 29).Value
        ANO2.Text = Plan1.Cells(MatrizResultados(0), 30).Value
        ETAPA2.Value = Plan1.Cells(MatrizResultados(0), 31).Value
        FALTA2.Text = Plan1.Cells(MatrizResultados(0), 32).Value
        OBS2.Text = Plan1.Cells(MatrizResultados(0), 33).Value
        CAT2.Text = Plan1.Cells(MatrizResultados(0), 34).Value
        ANO3.Text = Plan1.Cells(MatrizResultados(0), 35).Value
        ETAPA3.Value = Plan1.Cells(MatrizResultados(0), 36).Value
        FALTA3.Text = Plan1.Cells(MatrizResultados(0), 37).Value
        OBS3.Text = Plan1.Cells(MatrizResultados(0), 38).Value
        CAT3.Text = Plan1.Cells(MatrizResultados(0), 39).Value
        ANO4.Text = Plan1.Cells(MatrizResultados(0), 40).Value
        ETAPA4.Value = Plan1.Cells(MatrizResultados(0), 41).Value
        FALTA4.Text = Plan1.Cells(MatrizResultados(0), 42).Value
        OBS4.Text = Plan1.Cells(MatrizResultados(0), 43).Value
        CAT4.Text = Plan1.Cells(MatrizResultados(0), 44).Value
        ANO5.Text = Plan1.Cells(MatrizResultados(0), 45).Value
        ETAPA5.Value = Plan1.Cells(MatrizResultados(0), 46).Value
        FALTA5.Text = Plan1.Cells(MatrizResultados(0), 47).Value
        OBS5.Text = Plan1.Cells(MatrizResultados(0), 48).Value
        CAT5.Text = Plan1.Cells(MatrizResultados(0), 49).Value
        ANO6.Text = Plan1.Cells(MatrizResultados(0), 50).Value
        ETAPA6.Value = Plan1.Cells(MatrizResultados(0), 51).Value
        FALTA6.Text = Plan1.Cells(MatrizResultados(0), 52).Value
        OBS6.Text = Plan1.Cells(MatrizResultados(0), 53).Value
        CAT6.Text = Plan1.Cells(MatrizResultados(0), 54).Value
        ANO7.Text = Plan1.Cells(MatrizResultados(0), 55).Value
        ETAPA7.Value = Plan1.Cells(MatrizResultados(0), 56).Value
        FALTA7.Text = Plan1.Cells(MatrizResultados(0), 57).Value
        OBS7.Text = Plan1.Cells(MatrizResultados(0), 58).Value
        CAT7.Text = Plan1.Cells(MatrizResultados(0), 59).Value
        BOXPADRINHO.Text = Plan1.Cells(MatrizResultados(0), 60).Value
        BOXMADRINHA.Text = Plan1.Cells(MatrizResultados(0), 61).Value
        BOXDTCRISMA.Text = Plan1.Cells(MatrizResultados(0), 62).Value
    
   
    
    Else    'Caso nada tenha sido encontrado, exibe mensagem informativa
    
       
        SpinButton1.Enabled = False     'desabilita o seletor de registros
        Label_Registros_Contador.Caption = ""   'zera os resultados encontrados
        LIMPARCAMPOS  'limpa os campos do formulário
        MsgBox "Nenhum resultado para '" & TermoPesquisado & "' foi encontrado."
        SpinButton1.Visible = False
    
    End If
    
End Sub


------------ Botão ALTERAR -------------

CONVERTERCARACTERES ' CONVERTE PARA MAIUSCULA
    ActiveCell.Offset(0, 1).Value = BOXNOME.Text
    ActiveCell.Offset(0, 2).Value = BOXDTNASC.Text
    ActiveCell.Offset(0, 3).Value = BOXCIDNAS
    ActiveCell.Offset(0, 4).Value = BOXUFNASC
    ActiveCell.Offset(0, 5).Value = BOXPAI
    ActiveCell.Offset(0, 6).Value = BOXMAE
    ActiveCell.Offset(0, 7).Value = BOXIGREJA
    ActiveCell.Offset(0, 8).Value = BOXCIDIGREJA
    ActiveCell.Offset(0, 9).Value = BOXUFIGREJA
    ActiveCell.Offset(0, 10).Value = BOXDTBATISMO
    ActiveCell.Offset(0, 11).Value = BOXBPADRINHO
    ActiveCell.Offset(0, 12).Value = BOXBMADRINHA
    ActiveCell.Offset(0, 13).Value = BOXENDERECO
    ActiveCell.Offset(0, 14).Value = BOXN
    ActiveCell.Offset(0, 15).Value = BOXBAIRRO
    ActiveCell.Offset(0, 16).Value = BOXCIDEND
    ActiveCell.Offset(0, 17).Value = BOXTEL1
    ActiveCell.Offset(0, 18).Value = BOXTEL2
    ActiveCell.Offset(0, 19).Value = BOXTRANSF
    ActiveCell.Offset(0, 20).Value = BOXDESIST
    ActiveCell.Offset(0, 21).Value = BOXDTCOMUNHAO
    ActiveCell.Offset(0, 22).Value = BOXOBS
    ActiveCell.Offset(0, 23).Value = BOXMATRICULA
    ActiveCell.Offset(0, 24).Value = ANO1
    ActiveCell.Offset(0, 25).Value = ETAPA1
    ActiveCell.Offset(0, 26).Value = FALTA1
    ActiveCell.Offset(0, 27).Value = OBS1
    ActiveCell.Offset(0, 28).Value = CAT1
    ActiveCell.Offset(0, 29).Value = ANO2
    ActiveCell.Offset(0, 30).Value = ETAPA2
    ActiveCell.Offset(0, 31).Value = FALTA2
    ActiveCell.Offset(0, 32).Value = OBS2
    ActiveCell.Offset(0, 33).Value = CAT2
    ActiveCell.Offset(0, 34).Value = ANO3
    ActiveCell.Offset(0, 35).Value = ETAPA3
    ActiveCell.Offset(0, 36).Value = FALTA3
    ActiveCell.Offset(0, 37).Value = OBS3
    ActiveCell.Offset(0, 38).Value = CAT3
    ActiveCell.Offset(0, 39).Value = ANO4
    ActiveCell.Offset(0, 40).Value = ETAPA4
    ActiveCell.Offset(0, 41).Value = FALTA4
    ActiveCell.Offset(0, 42).Value = OBS4
    ActiveCell.Offset(0, 43).Value = CAT4
    ActiveCell.Offset(0, 44).Value = ANO5
    ActiveCell.Offset(0, 45).Value = ETAPA5
    ActiveCell.Offset(0, 46).Value = FALTA5
    ActiveCell.Offset(0, 47).Value = OBS5
    ActiveCell.Offset(0, 48).Value = CAT5
    ActiveCell.Offset(0, 49).Value = ANO6
    ActiveCell.Offset(0, 50).Value = ETAPA6
    ActiveCell.Offset(0, 51).Value = FALTA6
    ActiveCell.Offset(0, 52).Value = OBS6
    ActiveCell.Offset(0, 53).Value = CAT6
    ActiveCell.Offset(0, 54).Value = ANO7
    ActiveCell.Offset(0, 55).Value = ETAPA7
    ActiveCell.Offset(0, 56).Value = FALTA7
    ActiveCell.Offset(0, 57).Value = OBS7
    ActiveCell.Offset(0, 58).Value = CAT7
    ActiveCell.Offset(0, 59).Value = BOXPADRINHO
    ActiveCell.Offset(0, 60).Value = BOXMADRINHA
    ActiveCell.Offset(0, 61).Value = BOXDTCRISMA
    
    LIMPARCAMPOS        'limpa os campos
    ActiveWorkbook.Save ' salvo a planilha
    MsgBox "Atualização realizada com sucesso!", vbInformation, "Confirmação"
           
 End Sub

Entrar

katia cruz

Posts

Cadastrado em

Última visita

Tipo de conteúdo

Artigos

Selos

Fabricantes

Livros

Cursos

Análises

Fórum

posts postados por katia cruz

vba excel - pesquisa numa planilha com contador de valores encontrados

como alterar dados da planilha com formulario vba

Sobre o Clube do Hardware

Direitos autorais

Mais

Fórum

Atividades

Artigos

Análises

Livros

Cursos