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.

Vagner Bom dia, Ainda não está sendo entendido: Veja cada linha dessa como 1 processo apenas cujo o numero de identificação de cada processo está na coluna H. Quando esse numero de identificação da coluna H aparecer duas vezes, toda a linha dele também será idêntica, isso é uma regra. O que quero é eliminar a repetição, dessa forma "unificar" a duplicação, tornando uma só novamente. Isso tudo do jeito rápido e automático do Excel.

DJunqueira Não serve, a eliminação é com seleção inteira, ele elimina outros dados. Preciso que o dado levado em conta para eliminação da linha seja da coluna H. Qualque outro dado pode ser duplicado que não atrapalha, mas se a H duplicar, toda a linha deve ser condenada.

Vamos esclarecer. Cada LINHA é um ciclo de compras, tem um numero de pedido (que nunca em condiçõeos normais se repete) e os outros dados, material, datas, quantidades, nome de fornecedor. O que quero: Quando esse numero de pedido repetir, todo o ciclo de compra (a linha) seja unificada em 1 novamebnte, ou eliminada a repetição, tanto faz. Sempre levando em consideração o numero que fca na coluna H.

Ops. Anexado! Modelo - Follow-up.zip

Bom dia pessoal, Tenho uma planilha onde uso a formatação condicional de dados duplicados, sempre quando algum dado da coluna H está duplicado a fonte fica vermelha. Para implementar eu preciso que sempre que os dados da H estejam duplicados (ou coloridos também serve), a linha inteira seja unificada em 1 só. Eu coloquei a planilha TESTE anexada aqui, não está com todos os dados porque contém informações comerciais, mas dá para ser um modelo. Modelo - Follow-up.zip

Isso, na minha macro eu vou verificando, digito X e vai enviando. Sem abrir tela no Outlook. A escolha foi assim porque é necessaria uma avaliação no follow-up. obrigatóriamente tem que ser semi-automatico. Mas obrigado, fica a dica para uma melhoria em outro caso.

Consegui, o código ficou bem grande, mas está funcionando: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Cells(Target.Row, 5) = Date If Target.Column = 3 Then Cells(Target.Row, 6) = Date If Target.Column = 4 Then Cells(Target.Row, 7) = Date Dim OutApp As Object Dim OutMail As Object Dim texto As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) linha = ActiveCell.Row - 1 If Target.Address = "$B$" & linha Then If Plan1.Cells(linha, 2) = "X" Then End If With OutMail .To = Plan1.Cells(linha, 1) .CC = "" .BCC = "" .Subject = "Título do email" .Body = "Prezado(a) " & Plan1.Cells(linha, 1) & "," & vbCrLf & vbCrLf & _ "A O.S. " & Plan1.Cells(linha, 7) & " aberta em " & _ Plan1.Cells(linha, 2) & " foi concluída." & vbCrLf & _ " Veja informações abaixo:" & vbCrLf & _ " Status: " & Plan1.Cells(linha, 6) & vbCrLf & _ " Ação tomada: " & Plan1.Cells(linha, 5) & vbCrLf & vbCrLf & _ "Atenciosamente," & vbCrLf & _ "Help Desk" .Display 'Utilize Send para enviar o email sem abrir o Outlook End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End If linha = ActiveCell.Row - 1 If Target.Address = "$C$" & linha Then If Plan1.Cells(linha, 2) = "X" Then End If With OutMail .To = Plan1.Cells(linha, 1) .CC = "" .BCC = "" .Subject = "Título do email" .Body = "Prezado(a) " & Plan1.Cells(linha, 1) & "," & vbCrLf & vbCrLf & _ "A O.S. " & Plan1.Cells(linha, 7) & " aberta em " & _ Plan1.Cells(linha, 2) & " foi concluída." & vbCrLf & _ " Veja informações abaixo:" & vbCrLf & _ " Status: " & Plan1.Cells(linha, 6) & vbCrLf & _ " Ação tomada: " & Plan1.Cells(linha, 5) & vbCrLf & vbCrLf & _ "Atenciosamente," & vbCrLf & _ "Help Desk" .Display 'Utilize Send para enviar o email sem abrir o Outlook End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End If linha = ActiveCell.Row - 1 If Target.Address = "$D$" & linha Then If Plan1.Cells(linha, 2) = "X" Then End If With OutMail .To = Plan1.Cells(linha, 1) .CC = "" .BCC = "" .Subject = "Título do email" .Body = "Prezado(a) " & Plan1.Cells(linha, 1) & "," & vbCrLf & vbCrLf & _ "A O.S. " & Plan1.Cells(linha, 7) & " aberta em " & _ Plan1.Cells(linha, 2) & " foi concluída." & vbCrLf & _ " Veja informações abaixo:" & vbCrLf & _ " Status: " & Plan1.Cells(linha, 6) & vbCrLf & _ " Ação tomada: " & Plan1.Cells(linha, 5) & vbCrLf & vbCrLf & _ "Atenciosamente," & vbCrLf & _ "Help Desk" .Display 'Utilize Send para enviar o email sem abrir o Outlook End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End If End Sub

Bom dia pessoal, Tenho uma planilha de follow-up de pedidos com um VBA para registro de modificação de células com data e envio de e-mail automático pelo Outlook. Hoje ela funciona assim: Modifico a coluna B, C e D, a data vai para a E, F e G respectivamente. Quando coloco o X e dou ENTER na coluna B, um e-mail aparece na tela (só com outlook). Esse e-mail pode ser enviado sem abrir a tela modificando um detalhe nela. O que quero fazer é que na coluna C e D também envie e-mails. E que sejam independentes, o primeiro X (a primeira cobrança) vou fazer um aviso normal, a segunda um e-mail mais forte e a terceira um aviso de cancelamento. A Macro está abaixo e um modelo da planilha (não é a original mas pode ser vista) está anexado. Desde já obrigado. Modelo - Follow-up.zip

Tranquilo, eu postei lá porque poderia ser que outra pessoa também tivesse uma ideia. Em relação a macro, funcionou MUITO bem. A planilha original não foi postada porque tem muitos dados comerciais. Funcionou perfeitamente! Essa planilha tem muita macro e programação VBA, na verdade sou melhor nisso. Quando estiver pronta eu pretendo postar com os detalhes dela, na rede não tem uma planilha de follow-up de pedidos de compra tão detalhada e com tantas ferramentas quanto essa que estou fazendo. Aqui tem alguma área para isso? No mais, muito obrigado! Att Felipe Carvalho. Editado: Nao havia entendido o que queria dizer c/ Bx, mas ja corrigi o codigo acredito q agora está de acordo. Desconsidere o anexo, ou copie o codigo acima e cole no modulo1, substituindo o presente. Também funcionou bem! Mas vou ficar com a formula. A planilha original tem MUITO VBA, sei que não tem nada a ver uma coisa com a outra. Mas eu quebrei muito a cabeça fazendo VBA para envio automático de e-mail, letras maiúsculas, data e hora automática, importar exportar, não quero mais tocar nas linhas de cód. Muito obrigado pela ajuda, tenho certeza que vai cair como uma luva em futuras plans e outras pessoas.

Está no primeiro POST abaixo das imagens. Eu fiz o download 2 vezes para testar. Arquivo(s) anexado(s) Teste 1.xlsx 18,56K 2 Downloads