jcgmcs

Tndi.. nesse caso você tem razão mesmo.. a cada novo item tenho mesmo q mexer no código.. e no momento já tenho 85 itens. Mas então, outra coisa éq meu projeto já todo feito em ListView e nem gosto muito de ListBox rsrs Bem enfim, você pode me dar esse Help ae com o código nas Labels mesmo..?! Prefiro dessa maneira...

Midori eu prefiro q a Label faça isso automático até porque não quero adicionar uma coluna extra de qntdes.. Ao abrir o Form, quero busque na coluna cada um dos itens e me retorne com as quantidades em cada Label conforme o produto tdeu...

Bom dia! Ajuda pra fazer código que retorna nas Labels as qntdes de cada Item da coluna. Anexo planilha modelo de como deve ficar... obrigado! VBA Plnanilha Modelo - Label Contar Itens Coluna.7z

Olá! Alguém poderia ao menos dizer se isso é possível de se fazer..? Queria que, em vez de ficar arrastando a tela do formulário pra poder digitar na planilha, usar as teclas Alt e Tab...

Boa tde! Seria possível alternar Formulario e Planilha com Alt + Tab ?? Como seria o código?

Boa tde! Tenho as Textbox "Cód" com C0001 e Textbox "Nome" com Carlos Como fazer automático, a junção dos dois conteúdos na "TextBox3" como o exemplo abaixo: C0001 - Carlos E também dessa maneira: Textbox "Cód" com C0001 e Textbox "Nome" com Carlos e Textbox "Whats" com xx xxxxx-xxxx C0001 - Carlos xx xxxxx-xxxx

Olá! Como fazer código abaixo carregar combo "cb_Procurar" em ordem alfabética..? Private Sub ComboBox1_Change() Dim Campo As Range Dim Coluna As Integer Dim Linha As Long Static Inicia As Boolean If Inicia = True Then Set Campo = [3:3] With WorksheetFunction If .CountIf(Campo, ComboBox1.Value) Then Coluna = .Match(ComboBox1.Value, Campo, 0) Call cb_Procurar.Clear For Linha = 5 To ThisWorkbook.ActiveSheet.UsedRange.Rows.Count If Cells(Linha, Coluna) <> "" Then 'If .CountIf(Cells(2, Coluna).Resize(Linha - 1), _ Cells(Linha, Coluna)) <= 1 Then If .CountIf(Cells(5, Coluna).Resize(Linha - 4), Cells(Linha, Coluna)) <= 1 Then Call cb_Procurar.AddItem(Cells(Linha, Coluna)) End If End If Next Linha End If End With End If Inicia = True End Sub

Boa tde...!! Será q mais alguém com uma solução..?!

beleza Wendel... Deu certo e ficou joiaa!! obrigado e Abç ae..

Boa tde! Ajuda com adaptação desse código abaixo do nosso amigo Wendell... Private Sub Worksheet_Change(ByVal Target As Range) 'Por Wendell Dim Cell As Range For Each Cell In Target With Cell If .Column >= 50 And .Column <= 50 Then 'Coluna "AX" Range("AY" & .Row).NumberFormat = "@" 'AY é Coluna VBA Range("AY" & .Row) = Range("AX" & .Row) 'AX é Coluna Fórmulas End If End With Next End Sub Preciso q ao digitar e dar "Enter" na celula a partir de "L5" seja adicionado em "Y5" a alteração da "AX5" em modo texto, mantendo a formulação de "AX" Tentei alterando essa linha: If .Column >= 50 And .Column <= 50 Then 'Coluna "AX" que até funciona mas só com "Enter" manual na própria "AX" Quero automático, sempre que alterar em "L" Anexo, modelo da Plan...

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