jcgmcs

A listagem q me refiro não é no combobox mas sim na própria ListView... o que é digitado nessas linhas, tbém é listado no Listview tndeu...

Midori boa noite! Só mais um ajuste... rss Por favor, conseguiria fazer ignorar o que tiver nas linhas 2 e 4 ? O conteúdo está sendo listado na ListView e não queria isso...

Blzz!! funcionando... Rsrs obrigado meu amigo, Abç

Midori boa tde!! Capital não tá carregando..

Bom dia! As colunas ainda irei até a "GJ" com outras informações... E o problema está na linha 2 e 4. Preciso ignorar o que estiver nelas lá nos ComboBox...

Midori bom dia! Anexei novamente planilha modelo pra você dar uma averiguada ae por gentileza... e essa é mais próxima do que pretendo fazer aqui... Veja que deixei uma ..OBs.. nela ok! Abç e obrigado... Busca_Personalizada_4 - MOD10 (Municipios Brasil) ABAS.xls

Bom dia! Sim, estou adaptando em outra com minhas informações reais... e com testes q fiz aqui concluí q é por ter dados nessas linhas. Não me preocupei nesses detalhes dessas linhas e colunas porque imaginei q seria fácil de só alterar "a partir de..." Então, se você puder pôr os comentários e detalhes dessas linhas e colunas pra identificação será ótimo tbém...

Midori blzz Este seu código... Private Sub ComboBox1_Change() Dim Tabela As Range Dim Coluna As Integer Dim Linha As Long Static Inicia As Boolean If Inicia = True Then Set Tabela = [A3].CurrentRegion With WorksheetFunction If .CountIf(Tabela.Rows(1), ComboBox1.Value) Then Coluna = .Match(ComboBox1.Value, Tabela.Rows(1), 0) Call cb_Procurar.Clear For Linha = 2 To Tabela.Rows.Count If .CountIf(Tabela(1, Coluna).Resize(Linha), _ Tabela(Linha, Coluna)) <= 1 Then Call cb_Procurar.AddItem(Tabela(Linha, Coluna)) End If Next Linha End If End With End If Inicia = True End Sub É possível fazer ele ignorar as linhas: 1. 2 e 4 ? Nessas linhas eu tenho outras informações q não podem ser removidas e estou com problemas por causa disso no "ComboBox1" e "cb_Procurar" já que toda busca é feita na coluna inteira. Na linha 3 é onde começam meus Cabeçalhos e as informações iniciam a partir da linha 5...

Boa tde! Essa Plan2 pode excluir ae.. eu q me esqueci de fazer isso.. rsrs

Bom dia! É a lista, relatório q será gerado no ListView...

Midori boa noite! Um impasse aqui... rss A coluna Capital não tá sendo listada... Imagino eu q é por não ser todas as linhas com dados. Tem como você dar uma revisada no código e corrigir esse detalhe por favor... obrigado!!!

Boa tde Wendell.. Blzz meu amigo! Deu certo aqui tá... Muito obrigado e forte abraço ae...

Midori ficou perfeito... Show de bolaaaa!!! Aproveitando o embalo, pode me dizer como fazer pra salvar a lista na Plan2..?

Midori bom dia amigo! Minha vs é Office 2007... Então, já fiz uns testes e concluí q pra cada item no combo2 tem q ter um combo separado... o que você tá dizendo seria isso mesmo q ocorreia ou não? porque o que quero é manter apenas essas duas combos 1 e 2 tdeu!?

Olá! Ajuda pra fazer Listar na combobox2 conforme o que digitar na combobox1... Tipo, tenho no combo1: Cidade, UF, Região, etc... Gostaria que ao digitar "Cidade" no combo1, na combo2 ao clicar, ele me daria a lista de Cidades. Se digitar na combo1 "UF", ele me daria a lista de todos os Estados e por ae em diante com os demais... Segue anexo modelo Planilha q estou tentando adaptar. obrigado! Busca_Personalizada_4 - MOD2 (Municipios Brasil).xls

Wendell boa tde! Acho q não.. rsrs É pra atualizar tipo dando "Enter" nas células tdeu!

Perfeito Wendell... funcionando direitinho!! obrigado!! rsrs Utilizando-se desse código... Sub EnterCell() 'Sub atualizar() Application.EnableEvents = True UltimaLinha = Plan1.Rows.Count For X = 5 To Plan1.Range("FO" & UltimaLinha).End(xlUp).Row Plan1.Cells(X, 171).Select Plan1.Cells(X, 171).Value = Plan1.Cells(X, 171).Value Next MsgBox "Concluído! ", vbOKOnly + vbInformation, "" End Sub É possível fazer ele atualizar as colunas de "FO" à "FZ" até a linha 5000 de uma só vez...? Éq agora tenho q fazer isso e são 8 Blocos de 12 colunas cada....?

Wendell boa noite! O problema deste seu código... Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range For Each Cell In Target With Cell If .Column = 183 Then 'Número da coluna GA Range("GB" & .Row).NumberFormat = "@" Range("GB" & .Row) = Range("GA" & .Row) End If End With Next End Sub É que está pra tudo q for digitado na "GA" ele joga pra "GB" corretamente, até ae seu código funciona... Mas o caso éq na "GA" já estão as fórmulas. Seu eu digito de "FO" à "FZ" em qualquer linha a "GA" cápta o valor e seu código não reconhecendo porque na "GA" estão as formulas tndeu! Por gentileza, você poderia dar essa revisada..?

Wendell boa noite! Se ajudar, segue parte do código que utilizo... Tudo funcionandp diretinho mas quando troco "BP" por "GA" ListView não encontra a busca da Combo... 'ComboBox1 Lista "Onde Procurar" Sub ConfigurarListaDeCampos() Dim arrPesquisarNasPlanilhas As Variant Dim i As Integer With ComboBox1 .Style = fmStyleDropDownList .AddItem "Toda Planilha" .AddItem "Empresa / Cliente" .AddItem "Bairro" .AddItem "Observações" .AddItem "Ramo / Atividades" .AddItem "Status ZAP ON" .AddItem "Status S/RET ON" .AddItem "Status ZAP INDEF." .AddItem "Status ZAP OFF" .AddItem "Status S/ZAP HIST" .AddItem "Status ZAP ON/OFF" .AddItem "Status S/RET ON/OFF" .AddItem "Status ZAP ON/HIST" .AddItem "Status SEM ZAP" .AddItem "Status ZAP OFF/HIST" .AddItem "Contatos Mês/Ano" .AddItem "Contatos Ano" .AddItem "Retornos Ano" .AddItem "Retornos Mês/Ano" .AddItem "Pret. Compra Ano Ativ/Inat" .AddItem "Pret. Compra Mês/Ano Ativ/Inat" .AddItem "Vendas Mês/Ano" .AddItem "Vendas Ano" .AddItem "Ltodos" .ListIndex = 0 End With With Combo_OndeSalvar 'Recupera as Planilhas que são base de dados arrPesquisarNasPlanilhas = ConfigPlanilhasBase .Style = fmStyleDropDownList For i = 0 To UBound(arrPesquisarNasPlanilhas) .AddItem arrPesquisarNasPlanilhas(i) Next i .ListIndex = 0 End With End Sub 'Especifica Colunas "Onde Procurar - ComboBox1" Function ConfigColunas(ByVal sNomeCampo As String) As String Select Case sNomeCampo Case "x" ConfigColunas = "A" Case "Cód" ConfigColunas = "B" Case "Empresa / Cliente" ConfigColunas = "C" 'Em baixo Case "Teste4" ConfigColunas = "D" Case "Teste5" ConfigColunas = "E" Case "Teste6" ConfigColunas = "F" Case "Teste7" ConfigColunas = "G" Case "Teste8" ConfigColunas = "H" Case "Teste9" ConfigColunas = "I" Case "Cont.Dia" ConfigColunas = "J" Case "Observações" ConfigColunas = "K" Case "Teste12" ConfigColunas = "L" Case "Teste13" ConfigColunas = "M" Case "Teste14" ConfigColunas = "N" Case "Teste15" ConfigColunas = "O" Case "Teste16" ConfigColunas = "P" Case "Teste17" ConfigColunas = "Q" Case "Teste18" ConfigColunas = "R" Case "Teste19" ConfigColunas = "S" Case "Pret. Compra Ano Ativ/Inat" ConfigColunas = "T" Case "Pret. Compra Mês/Ano Ativ/Inat" ConfigColunas = "R" Case "Ramo / Atividades" ConfigColunas = "U" Case "Teste22" ConfigColunas = "V" Case "Ltodos" ConfigColunas = "W" Case "Status ZAP ON" ConfigColunas = "AN" '40 Case "Status S/RET ON" ConfigColunas = "AO" '41 Case "Status S/RET ON/OFF" ConfigColunas = "AP" '42 Case "Status ZAP OFF" ConfigColunas = "AQ" '43 Case "Status ZAP INDEF." ConfigColunas = "AR" '44 Case "Status S/ZAP HIST" ConfigColunas = "AS" '45 Case "Status ZAP ON/HIST" ConfigColunas = "AT" '46 Case "Status ZAP ON/OFF" ConfigColunas = "AU" '47 Case "Status SEM ZAP" ConfigColunas = "AV" '48 Case "Status ZAP OFF/HIST" ConfigColunas = "AW" '49 Case "Contatos Mês/Ano" ConfigColunas = "AH" Case "Contatos Ano" ConfigColunas = "AF" Case "Retornos Ano" ConfigColunas = "AI" Case "Retornos Mês/Ano" ConfigColunas = "AJ" Case "Vendas Ano" ConfigColunas = "BP" Case "Vendas Mês/Ano" ConfigColunas = "BQ" Case Else ConfigColunas = "" End Select End Function

Midori boa tde amigo... beleza Fico feliz de seu retorno mas então infelizmente, minha planilha e códigos é de uma extensão enorme e pra postar aqui eu teria q refazê-la toda de novo pra te mandar apenas essa parte da Print q postei tdeu... Mas a base é essae da print, eu só queria me livrar dessas fórmulas q estão na coluna "GA" ou então mantê-las mas que na "GB" sejem colocados os "anos" em texto... OBs: O preenchimento de anos nas linhas e colunas de "FO" até "FZ" é manual e se dá a partir da linha 5 tdeu! No aguardo e obrigado!

Wendell bom dia!! Então, carregamento não é no Dropdown e sim na ListView, ela éq não carregando o que está em Fórmulas tndeu... Já fiz testes aqui alterando com colunas só em texto, funciona mas quando volto pra colunas q tem fórmulas não funciona, não faz carregamentos.

Oreia boa noite!! Então, sua sugestão ainda continua sendo uma fórmula né... rsrs

é esta... =se(éerros(proc(2;1/localizar("23";fo5:fz5)));"";direita(fu$2;4))

Boa tde amigo!! Mas onde é q coloco esse código pra funcionar quando teclar "Enter" ??

Bom dia! É possível fazer resultado de uma Fórmula de "GA5" ser colada como "Texto" em "GB5" ??