Felipe Carvalho_748684

Boa noite, Perdão a demora, deixei esse projeto de lado um pouco. Apliquei sua ideia na planilha. Eu tinha feito de um jeito, mas ficou MUITO grande a formula, e dessa maneira tem uma INFO a mais. hehe Muito OBRIGADO! Eu já quase conclui essa planilha, mas apareceu outra demanda para ela.... eu precisaria que de alguma forma ela marcasse de amarelo datas que faltam 10, 30, 120 dia para vencer... deve ter isso em formatação condicional mas não consegui. Fiz um código VBA mas conflita muito. Enfim, desde já obrigado.

Bom dia pessoal, Estou com uma planilha de controle de vencimento de documentações, preciso dinamizar ela com envio e-mails automáticos e tudo mais, mas estou parado na criação de um status dinâmico: Cada linha traz uma "conta" e as colunas os tipos de contas (A,B,C...) onde cada um delas tem seu vencimento. Primeiro, na coluna status (D) eu precisaria que informasse "Conforme" com todas datas OK e "Não conforme" se algumas das datas não estiver OK. Segundo, na coluna Info (E) descreva qual linha de documentação está vencida A, B, C... Consegui alguns embolsos para o primeiro pedido, mas o segundo eu nunca vi. Não sei se será possível. A Planilha terá poucas formulas, então podem fazer VBA ou formulas mesmo. Desde já obrigado. TESTE.zip

Pessoal, já vasculhei a net, inclusive em sites gringos mas está osso. Não consigo fazer funcionar. Alguém tem uma luz?

Boa atrde pessoal, Resolvido. Obrigado Mikel Silveira Fraga - TVForum Private Sub Worksheet_Change(ByVal Target As Range) 'Essas coordenadas correspondem a Range "B4:D1000". If (Target.Row >= 4 And Target.Row <= 1000) And _ (Target.Column >= 2 And Target.Column <= 4) Then Dim intLinha As Long intLinha = Target.Row Range("A" & intLinha).Value = Application.InputBox("Número de contato: " & _ Plan1.Range("H" & intLinha).Value & " ") End If End Sub

Pessoal, arrumei metade da dúvida: Falta agora fazer com que o texto que aparece da célula seja respectivo ao da linha modificada, e a entrada seja respectiva: Exemplo: Se eu modifico a B20, na mensagem aparece a célula H20 e a entrada na célula A20 e assim por diante. Vejam o código: Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("B4:D1000") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then Range("A4").Value = Application.InputBox("Número de contato: " & Plan1.Range("H5").Value & " ") End If End Sub

Bom dia pessoal, Tenho esse código VBA entre muitos outros em minha planilha, mas ainda sou aspirante e demoro a desenvolver. Preciso trocar o final onde chama uma MsgBox para um ImputBox e o texto informativo aparecer um conteúdo de uma célula. Ela faz basicamente isso: 1. Ao modificar o trecho B4:D10000 é ativada a MsgBox. 2. OK finaliza ela Quero assim: 1. Ao modificar o trecho B4:D10000 é ativada a InputBox 2. Na input quero que apareça os dados da coluna "H" com um texto de introdução, tipo: "O pedido é: -dados da H" 3. Ao inserir uma anotação na caixa de texto, esse texto seja escrito na coluna A. 4. Botão OK aplica, botão cancelar não faz nada. SENHA DO VBA: TAOSSO10 Dim KeyCells As Range Set KeyCells = Range("B4:D1000") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then MsgBox "Cobrança feita!", vbInformation, "Status" Cópia de Plan_TESTE2.zip

Bom dia pessoal, Me virei na aba DADOS e consegui usando a importação de dados simples.

Boa tarde, Pessoal, tenho uma planilha de cobrança e preciso alimenta-la sempre. Esses dados vem de um sistema que gera outras planilhas, hoje eu vinculo as planilhas com "colar especial", mas assim ela sobrescreve e eu preciso que vá dando continuidade. Eu anexei a planilha principal e as outras. Explicando melhor, eu preciso que na aba preparação iniciando do B2 os itens das demais planilha sejam sendo importados. porém sem prescrever, sempre descendo a linha sem mexer na anterior, os numero de itens podem variar entre elas, uma pode ter 30, outra 60 e assim por diante. A principal é a "Follow-up Inteligente - Auto - BW" e as outras são os bancos de dados. Teste.zip

Nada pessoal?

Boa noite galera! Não sou tão experiente em VBA, já pesquisei mas não achei, então lá vai. Preciso de uma Macro assim: 1 - Ir ao Outlook. 2 - Pesquisar em todo o e-mail, não só na inbox 3 - Localizar uma mensagem ( Pelo email ou pelo Assunto) 4 - Abrir a Mensagem acima Planilha modelo em anexo. O termo de pesquisa é a célula H, quero colocar um pequeno botão ao lado da célula H para ativar. Eu tentei fazer mas não tive sucesso, o mais perto que cheguei está nesse Link http://comunidade.itlab.com.br/eve/forums/a/tpc/f/364609431/m/188602746 Desde já obrigado. Modelo - Follow-up.rar

Os dois derão, mas já tinha aplicado e finalizado a planilha com a ajuda do @ minoso Muito Obrigado.

Olá pessoal, estou construindo uma planilha para cobranças (em anexo modelo) e surgiu alguns problemas. A coluna D tem um PROCV que compara dados da coluna C com dados na Coluna A(FornecedoresEmail) e copia os respectivos da coluna B(FornecedoresEmail) para ela. A Matriz de comparação (coluna C) é um resultado de EXT.TEXTO da coluna A onde ele puxa alguns numeros dela. Eu fiz em forma de formulas. porém, a PROCV não "entende" como um dado e não faz sua parte, quando digitado o mesmo número tudo funciona (exemplo na C6). Como posso resolver? Eu pensei em duas formas: Criar VBA para fazer o papel do EXT.TEXTO ou algum modo que não conheço ainda onde seja resolvido o problema do excel não "usar dados para uma formula de outra formula". SENHA VBA: TAOSSO10 teste.zip

Ficou perfeito com o VBA. Veja a forma que o Basole sugeriu no anexo. Obrigado pela ajuda. 'Em anexo a planilha teste c/ a codificacao e a macro automatica. '* Como o processo está automatico, ao digitar, ou colar um dado que já existe (na coluna H), ao piscar de olhos esse 'valor 'será deletado. 'Caso queira deixar manualmente, desabilite a macro no evento :Private Sub Worksheet_Change(ByVal Target As Range) 'e coloque um atalho de teclado ( Alt + F8 -> Em opções ), para executar a macro. 'abx. Perfeito! Obrigado, a planilha e o VBA está cada vez mais potente. kkkkkkkkkkkkk. Automatizando!

Pra ficar 'tomatico' quando. alterar alguma celula: chame a macro no evento: Private Sub Worksheet_Change(ByVal Target As Range)Call Proc_Duplicados End Sub abx. Cara, pode aplicar o VBA na planilha teste e me enviar? Não estou conseguindo juntar com os códigos já existentes. Se selecionar só a H só apaga a H. E isso não adianta para mim. Nunca duvide do VBA.

Basole Era exatamente ISSo que estou querendo, kkkkkkkkkkk. Não testei ainda porque não estou em casa. Vou me enrolar um pouco, eu fiz aquela programação VBA acima e não vou conseguir encaixar essa junto. Mas obrigado, assim que testar eu te retorno.