Bom, eu não utilizo listbox, mas, pelo teu código: Suponto qe vc tenha 5 elementos (só pra contextualizar: Essa linha: For I = 0 To ListBox1.ListCo...

Falha minha d não ter conferido. Veja agora. loteria_GT_V2.rar

Veja o anexo. E cuidado com as regras. Os arquivos devem ser compactados. loteria_GT.rar

Para o exemplo que vc deu, do combustível, que está na célula E67 da planilha "Lista de itens", faça: =SOMARPRODUTO((Plan1!$E$3:$E$1000=$D6...

Mahler, Eu não consegui nenhum resultado atisfatório (no máximo, iria sair 6 por meia dúzia). Embora você não disse porque quer simplificar a fórmul...

Vc não precisa refazer nada. Apenas siga os passos: -Abra as duas planilhas -Selecione a planilha q te enviei, e pegue a dos nomes -Clique com o botã...

Mesmo não sendo minha praia, veja se ajuda: Sub Teste_GT() Dim MyObj As Object, MySource As Object, file As Variant Set MySource = MyObj.Ge...

cmalves, Eu andei tentando fazer umas macros pra Word, e acho meio louco, mas, uma pergunta: Onde estão todos esses arquivos que vc vai alterar? Est...

Tenta incluir essa linha: Application.DisplayAlerts = False

Sem código. Se quiser que seja com programação, avise. Abs. Renomear_RetornarNomes_GT.zip

será que problema tem solução ? O que vc queria somente é possível com programação. Baixe o anexo e veja. (Vc precisa permitir a execução de macros ...

Insane, como disse o Mauro no teu último post: "vc já deveria saber que os arquivos devem ser compactados". Sobre a planilha: Eu não achei...

Veja se um desses 2 códigos ajuda: For Each combo In Me.Controls If Left(TypeName(combo), 6) = "cb_dyn" Then 'seu código ...

Em B3 da Tabela 1, faça: =SEERRO(ÍNDICE('TABELA 2'!$B$3:$C$4;CORRESP($A3;'TABELA 2'!$A$3:$A$4;0);CORRESP(B$1;'TABELA 2'!$B$2:$C$2;0));"") ...

Qual sua versão do Excel?