Felipe2791

Os dados que ficam no quadro de resumo só devem aparecer o que foi imputado no quadro de cima.Isso que disse é um espelho, realmente eu preciso de um espelhamento, mas só do que for inputado, a parte em branco não vem.

Bom dia pessoal, Estou com um problema em uma planilha de uso diário, e para agilizar o funcionamento preciso disso: No primeiro quadro eu faço um tipo de programação mensal, no quadrado de baixo é um resumo dessa programão. Preciso basicamente que quando o quadro de cima seja dado input manual (linhas 4,6 e 8) eles sejam importados automaticamente para o campo de baixo RESUMO, junto com a data (dados fixos). Eu consegui a formula abaixo, ela faz esse processo nos dados inputados, mas só funciona com uma linha, pois quando tem inputs em datas diferentes a formula não faz os dados "passarem". SEERRO(ÍNDICE($A$2:$AG$2;1;1/(1/AGREGAR(15;7;1/(1/(($F$4:$AG$4>0)*COL($F$4:$AG$4)));COL(A1))));"0") Teste.zip

Resolvido. Obrigado amigo!

Colocarei na linha de cima em amarelo os dados sem sequencia, algumas células em branco e outras com números. Preciso que na linha amarela de baixo (ou a de cor equivalente para representação) mostre os dados que estão na linha de cima, mas em sequencia. Do mesmo jeito que você fez acima. Fiz um modelo preenchido no anexo. Nova Pasta Compactada.zip

Caro DJunqueira, funcionou, na verdade eu usava algo parecido para PROCH no mesmo estilo, mas assim como a formula que eu usava não consegui adaptar em minha planilha. Veja abaixo minha planilha em construção, pode me ajudar na adaptação? Nova Pasta Compactada.zip

Bom dia, Tenho uma planilha onde tem os 30 dias do mês em linha, na linha de baixo é preenchido valores em cada dia, mas tem alguns que ficam sem preencher. Preciso de uma formula que colete esses dados para outras células eliminando os espaços sem entrada e em sequencia. Segue modelo em anexo para melhor entendimento. Teste.xlsx

@Basole Perfeito, testei em todos os cenários, inclusive enviando emails do relatório. Agora é só o corpo de email e pronto. Ótima ferramenta, obrigado a todos;

@BasoleApareceu depuração na linha que indica o endereço de email: .To = Plan1.Cells(linha, 4)

Acho que Planilha Dinâmica seria ideal, e poderia fazer em pastas de trabalho diferentes tambem.

Bom dia, Selecione a coluna, vá em Formatação Condicional>Nova Regra>Formatar apenas celulas que contenham>Deixe a primeira variável em Valor da célula e a segunda voce escolhe o que quer, no caso "é igual a">na terceira váriavel escreva o texto que quer e em Formatar coloque a cor, estilo da célula e fonte que deseja quando a palavra for escrita.

@Basole Mesma coisa, Quando coloco o X apenas na segunda ele trava o Excel, se coloco nas 3 primeiras e pulo pra quinta, ele para de enviar na terceira. Já tentei mas não consegui. @CasaDoHardware O seu codigo não consegui colocar para funcionar de forma alguma, a parte dos rastreio da condição está perfeita, mas os emails não disparam, já eliminei tudo que pediu.

Não acha melhor deixar só o texto na C1 e o valor na D1, fazer sua formatação condicional como quiser (e até pode fazer com que pareça que seja apenas uma celula, tirando linhas e diminuindo elas). Se precisar dos valores juntos para alguma função na planilha voce junta elas na E1 e oculta, usando somente para a função desejada.

ela fica carregando (mesmo com 3 linhas ativas e 1 x) quando aperto ESC ele pede para depurar a linha seguinte.

Eu tenteide tudo botar para funcionar, mas ele retornar a depuração no meu VBA, na linha: If Target.Address = "$A$" & linha Then Private Sub Enviar() 'Envia e-mail pelo Outlook 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 = "$A$" & linha Then If Plan1.Cells(linha, 1) = "x" Then With OutMail .To = Plan1.Cells(linha, 4) .CC = "" .BCC = "" .Subject = "Nível" .Body = "Prezado(a) " & Plan1.Cells(linha, 3) & "," & vbCrLf & vbCrLf & _ "Segue acompanhamento do mês de Julho." .Display 'Send para enviar o email sem abrir o Outlook End With On Error GoTo 0 End If Set OutMail = Nothing Set OutApp = Nothing End If End Sub

Testei sim, não pasou, ele faz a varredura mas não dispara email

@Basole Para minha necessidade vai funcionar muito, mas tem um detalhe, quando ele encontra um problema (linha sem X) ele para e não "pula" para a proxima com X. Eu vou usar a lista toda sempre, então tá tranquilo. EDIT: Pensando bem, se tivesse como resolver esse problema eu agradeceria, pode ser que eu use.

@Basole Adicionei, ele envia 2 em sequencia e para.

@Basole Não vou ter esse problema, o servidor é particular. Um detalhe, o codigo está repetindo somente o primeiro email, não percorre a planilha. voce pode comprovar o problema porque o texto "nome 1..." aparece em todos emails aberto.

@CasaDoHardware Eu fiz isso da outraz vez tambem, dessa maneira a varredura funciona. Mas o email não é gerado no Display.

@CasaDoHardware Esta retornando um erro no If Target.Address = "$A$" & linha Then do primeiro Script. Tentei trocar algumas coisas, mas se colocarmos o X maiusculo o erro retorna, se coloco o minusculo faz a varredura mas não gera o email.

Bom dia, Obrigado aos 2 que responderam. @CasaDoHardware - @darkstrikerd Tentei das dua manieiras e sem sucesso, acho que estou errando em algum detalhe, tenho algumas planilhas com alguns VBAs, mas o maximo que faço é modifica-los em detalhes da maneira que preciso. Podem clarear ainda mais para mim? EDIT: no caso da segunda resposta o Range ("A2).select não funciona no código.

Bom dia, Tenho o código VBA abaixo, uso ele a um tempo. Como podem ver ele envia uma mensagem com conteudo de uma respectiva linha no Excel, a ativação é marcando um "x". Estou tentando mudar a ativação do codigo, preciso que o email seja enviado com um botão, para que fiquei em massa. Ou seja, tenho 100 linhas, se as 100 estiverem marcada com o "x" ao ativar o botão os emails sejam disparados juntos. Não precisa ser exatamene com x marcado, pode ser outro mecanismo, com tanto que a ação seja 1 só para todas as linhas. Desde já obrigado! EDIT: ADICIONEI A PLANILHA TESTE teste.rar