Pesquisar na Comunidade

Estou com um problema quando vou tentar executar meu código pelo F5 ele trava, porém quando eu rodo no F8 ele funciona. O meu código ele é para fazer o seguinte: Tabela 1: lista de CEPS tenho 1 inicial e 1 final 2 colunas (5.800 LINHAS) Tabela 2: Outra tabela com mais CEPS 1 inicial e 1 final 2 colunas (33.204 LINHAS) A ideia é identificar os CEPS faltantes na tabela 2 e montar uma nova tabela 3 com essas duas tabelas. Fiz o código abaixo: --------------------------------------------------------- Sub Agrupa_CEPS() Application.ScreenUpdating = False Dim CEPINICIAL_BGGERAL Dim CEPINIOLD_BGGERAL Dim CEPFINAL_BGGERAL Dim CEPINICIAL_BGSATURNO Dim CEPFINAL_BGSATURNO Dim CEPINICIALNEXT_BGSATURNO 'Copia Cabeçalho padrão Saturno Sheets("Tabela Saturno").Select Range("A1").Select Range(Selection, Selection.End(xlToRight)).Copy Sheets("Tabela Agrupada").Select Range("A1").PasteSpecial Range("A1").Value = "Nome Base" Range("A1").Select Application.CutCopyMode = False 'Inicia varredura dos CEPS pela Saturno Sheets("Base Geral").Select Range("C2").Select Sheets("Tabela Saturno").Select Range("C2").Select Do While ActiveCell <> "" CEPINICIAL_BGSATURNO = ActiveCell.Offset(0, 0).Value CEPINICIALNEXT_BGSATURNO = ActiveCell.Offset(1, 0).Value CEPFINAL_BGSATURNO = ActiveCell.Offset(0, 1).Value ActiveCell.EntireRow.Copy Sheets("Tabela Agrupada").Select ActiveCell.Offset(1, 0).PasteSpecial Application.CutCopyMode = False Do While ActiveCell <> "" Sheets("Base Geral").Select CEPINICIAL_BGGERAL = ActiveCell.Offset(0, 0).Value If ActiveCell.Row = 2 Then CEPINIOLD_BGGERAL = ActiveCell.Offset(0, 0).Value - 1 Else CEPINIOLD_BGGERAL = ActiveCell.Offset(-1, 0).Value End If CEPFINAL_BGGERAL = ActiveCell.Offset(0, 1).Value If CEPINICIAL_BGGERAL > CEPFINAL_BGSATURNO And CEPINIOLD_BGGERAL < CEPINICIAL_BGGERAL And CEPFINAL_BGGERAL < CEPINICIALNEXT_BGSATURNO Then Sheets("Base Geral").Select ActiveCell.EntireRow.Copy Sheets("Tabela Agrupada").Select ActiveCell.Offset(1, 0).PasteSpecial Application.CutCopyMode = False End If Sheets("Base Geral").Select ActiveCell.Offset(1, 0).Select Loop Sheets("Base Geral").Select Range("C2").Select Sheets("Tabela Saturno").Select ActiveCell.Offset(1, 0).Select Loop Application.ScreenUpdating = True MsgBox "Finalizado" End Sub --------------------------------------------------- Poderiam me ajudar por gentileza? Obrigado

Olá a todos ! Gostaria de uma imensa ajuda! Eu recebo um arquivo no qual ele não organiza os tipos de Pausa dos vendedores numa mesma coluna (e sim e várias colunas chamadas "Pausa"), além de também não organizar a "Quantidade" e "Tempo" dessa pausa numa coluna só. As informações são inseridas ao longo de uma linha e eu gostaria que eles fossem organizados por colunas. Vou colocar aqui como é e como eu gostaria que fosse: OPERADOR PAUSA QTD TEMPO PAUSA QTD TEMPO PAUSA QTD TEMPO PAUSA QTD TEMPO Nome 1 BANHEIRO 0 00:00:00 ALMOÇO 0 00:00:00 LANCHE 0 00:00:00 AMBULATÓRIO 0 00:00:00 Nome 2 BANHEIRO 0 00:00:00 ALMOÇO 0 00:00:00 LANCHE 0 00:00:00 AMBULATÓRIO 0 00:00:00 Nome 3 BANHEIRO 0 00:00:00 ALMOÇO 0 00:00:00 LANCHE 0 00:00:00 AMBULATÓRIO 0 00:00:00 Gostaria que a informação viesse por colunas: "OPERADOR", "PAUSA", "QUANTIDADE" E "TEMPO", repetindo o nome do vendedor várias vezes na Coluna A, pra que as informações dele venham nas colunas seguintes, e não inseridas em linhas: OPERADOR PAUSA QUANTIDADE TEMPO Nome 1 BANHEIRO 0 00:00:00 Nome 1 ALMOÇO 0 00:00:00 Nome 1 LANCHE 0 00:00:00 Nome 1 AMBULATÓRIO 0 00:00:00 Nome 2 BANHEIRO 0 00:00:00 Nome 2 ALMOÇO 0 00:00:00 ... E assim por diante. O meu problema é que eu até consigo fazer a Coluna A me dar os vendedores ao transpor, mas quando faço isso na coluna B me vem tanto linhas de pausa, quanto quantidade e banheiro 😞 E como essa base sempre vem muitos vendedores e de forma variável, não sei como resolver isso ._. Agradeço desde já aos que puderem me dar um help !

Olá galera, gostaria da ajuda de vocês. Preciso preencher duas tabelas iguais a que está no print a seguir, o problema é que gostaria de fazer isso com a ajuda do VBA, no caso eu tenho na planilha "Teste" uma lista de 70000 palavras e preciso que a partir de uma tabela que está preenchida o código verifique quais palavras ocorrem na lista independente de serem maiusculas ou minusculas, converta tudo para minuscula e cole a palavra na outra tabela vazia de modo que vá preenchendo a tabela vazia e eliminando as palavras lá da lista. Poderiam me ajudar? (A tabela a seguir começa na coluna A e vai até a coluna F) Essa é a tabela de testes

Olá, bom dia Gente! Eu tenho um código VBA que verifica os anexos dos e-mail e dependendo dos títulos do arquivo ele salva em uma pasta específica, essa macro era ativada através de uma regra de filtro do Próprio Outlook. ele funcionava perfeitamente até formatar meu computador, depois de reinstalar o Outlook ele não permite mais eu adicionar uma macro na regra de chegada do E-mail. Todas as vezes que tento adicionar a regra ele da o aviso "Esta regra não está disponível no modo atual". Já alterei os níveis de permissão de macros do Outlook e nada. Vendo em outros Foruns vi pessoas tendo o mesmo problema e não conseguindo resolver. Queria saber se alguém sabe como mudar essa configuração do outLook ou ao menos sabe uma forma de adicionar uma acionamento automática para cada e-mail que chega sem precisar usar as regras nativas no outlook.

Olá pessoal. Preciso de uma ajuda. Eu tenho um arquivo (TXT), com varias informações de vários produtos com (medidas/tamanho igual e diferente). Minha ideia é separar todos os produtos em Planilhas diferente e no final salvar essas Planilhas em uma (Pasta de Arquivos) em meu computador. E eu fiz uma macro (VBA) buscando e separado os itens iguais para uma determinada (Planilha), deu tudo certo até um certo tempo. Como esse arquivo (TXT) tem bastante itens diferentes, eu tive que ir criando varias (Planilhas) na Pasta (TXT), quando eu criei a (Plan16) o Excel me deu uma caixa de aviso, eu ainda estou na metade do meu projeto. Como eu faço para prosseguir? Desde já gostaria de agradecer a todos. Sds, Wellington