Basole

Sim é possivel, mas tem que extrair os pdf(s) para txt e se a formatacao seguir um padrão, é possivel escrever um script que importa esses txt para o excel (por ex) de forma que fiquem ordenados um abaixo do outro. Se puder compartilhar um exemplo indicando o campo que pretende extrair facilita a vida de quem queira ajuda-lo

Eu utilizo um outro codigo para ober dados de outra pasta de trabalho 'fechada' Se puder compartilhar um exemplo com alguns dados na celula que deseja 'importar'.

Quando precisao converter algum *.pdf, eu uso (link abaixo [ * nao precisa instalar] ), extraio os dados para txt, depois abro com o word ou importo para excel quando preciso que o conteudo fique com colunas. O inconveniente deste aplic. é que só extrai do pdf numeros e letras. Imagens, bordas outras formatações e etc, não. https://www.sendspace.com/file/bo5e9m

Segue anexo com a alteraçao (incluir CC) que solicitou. RELATORIO_EMAIL-v2.zip

SEgue sugestao de macro (*nao testado), que envia o relatorio no corpo do email. Insira o email do destinatario na celula "J1" Importante: O envio é feito via outlook, sendo assim abra o outlook e habilite-o (caso tenha senha). RELATORIO_EMAIL-v1.zip

Tente acessar as pasta chamada XLSTART e/ou STARTUP e renomeie os arquivos (se tiver), com a extensao [ .old ]. A localização das pastas depende muito da versao do win64bts. e office 64 bts. Normalmente ficam em "C:\Program Files\Microsoft Office\Office14" para o office ver > 2010 e para ver2007 -> " "C:\Program Files\Microsoft Office\Office12"

Bom dia amigo, o que nos alimenta a continuar a ajudar, é ver essa satisfação, por um trabalho bem feito. Agradeço muito as carinhosas palavras, desejo o dobro a voce e sua familia, e fique com Deus. Qq. coisa tamos aii, Abrxx.

Netrox92, fiz algumas alteraçoes incluindo a opção de usar o provedor [ Provider=Microsoft.ACE.OLEDB.12.0 ], se a versão do office for maior que 12 que é o caso da versao 64bts. Nao sei se só essa lateração resolverá o problema, pois no momento so terei acesso a Win64 amanha cedo. Faça o teste e me diga se resolveu. Segue anexo. Excel_Access-v2.zip

Tá fácil meu rei. Pra resolver este problema importe o modulo 'MódEstatistica' desta ultima versao que enviei, nela ja esta resolvido este problema ou substitua a macro (corrigida) abaixo: Sub LIMPAR()Sheets("no show").ActivateSheets("no show").Range("s1:aa" & Cells(Rows.count, "s").End(xlUp).Row).ClearContentsSheets("no show").Range("s1:aa" & Cells(Rows.count, "s").End(xlUp).Row).Interior.ColorIndex = xlNoneEnd Sub abxx.

Bom eu fiz as alteraçoes, pois nao era o caso de apenas uma linha. O formato ficou assim: [ MG_MAMOGRAFIA_BILATERAL-d4m6-ok ] e [ USGVM3-d2m6-fa ] , pois é mais fácil de visualizar. Segue o link, veja se agora ficou melhor do que tava. https://www.sendspace.com/file/oev9v2

Bom dia aee mano espero que esteja todo. bem por ai. Bom neste caso acho que o ideal seria associar aos nomes do exame e da sala, o [sTATUS TB MARCAÇÃO] -> coluna"A" ai ficaria desta forma, ex.: [ TC_TORAX-falta-d1m6 ] ou [ TC_TORAX-f-d1m6 ] ou como você preferir. Isso vai diferenciar as ocorrencias que foram realizadas ou nao, ai voce tera os resultados 'mastigados'.

Vamo lá meu rei, analisando os resultados ...ou teve jogo do mengao ou negin tava com dor de barriga....[ falta-D4M6 ] = 387 faltas no dia 4 de junho? tudo isso ? Cara dá uma confirida veja se é isso mesmo. Ah e alem das letras t e f na coluna "A" e exatamente na linha 3457 tem a letra u e a, s, e b em outras linhas. Bom, veja ai agora.. com os testes que fiz ficou show de bola digo show de dados. ou sei la oqe..ficou beleza. abc. . Agendamento_Junho-v4.zip

kalma ai irmão! nem tudo que é parecido é igual ! o ex que tu mandou os dados estavam na Plan1, vendo a img. vejo Plan1(NO SHOW), caso os dados estejam nesta plan, então é necessario algumas alteraçoes no codigo onde esta escrito sheets("plan1"), por ex altere para sheets("no show") e tbem. aproveite e corrija um erro que cometi, altere a 2ª linha que postei (#15) acima por esta: * editado: desculpe agora q vi o anexo, vou abrir ja retorno. If rng1 = "f" Then rng3 = Replace(rng1, "f", "ok") & "-D" & Day(rng2) & "M" & Month(rng2)

Sim, mas acho que é o contrario: o f = false (falta) e o t = true (ok).? Caso seja isso, é fácil de resover se quiser o resultado do exemplo subst. a linha por estas 2: If rng1 = "t" Then rng3 = Replace(rng1, "t", "falta") & "-D" & Day(rng2) & "M" & Month(rng2)If rng1 = "f" Then rng3 = Replace(rng1, "t", "ok") & "-D" & Day(rng2) & "M" & Month(rng2)

Bom, mano nao adianta a gente ficar simulando informaçoes. acho que a melhor forma de resolver isso é na base do 'reality show' ou seja testar a macro com dados reais. Veja se consegue c/ seu amigo os dados alguns dias diferentes para fazer o teste ai você me diz o resultado.

Brother, desculpe nao tinha testado antes, depois que vi a imagem que postou, meu resultado foi o mesmo que o seu. A explicação logica para isso é que como esta pesquisando somente um dia no caso(1/06/ ) o resultado da concatenacao 'a&b" (serial), são 2 (dois) valores diferentes 'falta-D1M6' e 'ok-D1M6', então a macro nao criou um colecao. Para teste altere na coluna 'A' alguns dados 6 ou 7 linhas, onde tem 'ok' com 'sim' alterando com 'nao' e veja que tera resultados <> de " ". E quando tiver com os dados do mes completo (01/06/ a 30/06), com certeza terá tbem. retorno de dados <> " ". Qq coisa dee um ? abc.

Pois é, como nao manjo muito de formulas como o mestre @p@tropi eu dei uma volta enorme pra chegar no mesmo resultado, mas vamos lá simplifiquei um pouco a formula tentarei explicar: =PROC(1E+100;PROCURAR(Plan2!A$2:A$6;C5);Plan2!B$2:B$6): procurar retorna um erro ou um numero de 1 a 32767 e para o proc funcione correetamente precisamos de um nº maior ou a 32767 então usei o 1E+100 é a notação científica para um número muito grande, 1 seguido de 100 zeros. A diferenca desta formula é que se no nº do lote tivesse uma ou mais letras ex.: CD1244650020 retronaria o resultado desejado

Para postar imagem, salve o intervalo da plan que deseja como *.jpg, *.png, ou *.bmp e faça o upload da imagem salva, em um site de hospedagem como por ex. : http://postimage.org copie o link e click no icone de imagem do editor e cole o link.

Guilherme Henrique Nunes s, veja se é isso de acordo c/ meu entendimento. Exemplo6Digitos.xlsx

Olá meu brother obrigado pelo nobre e pelos elogios, bom por aqui tá tudo beleza espero que por ai esteja tambem, vamos lá pelo que entendi voce que diminuir o comprimento da minha chamada serial (composicao da coluna 'a' & 'b') e obter o resultado de 'falta ou ok + o dia e + o mes? caso seja isso, então altere a linha da macro 'Estatistica' De: rng3 = rng1 & "-D" & Day(rng2) & "M" & Month(rng2) & "H" & Hour(rng2) & "MIN" & Minute(rng2) para: rng3 = rng1 & "-D" & Day(rng2) & "M" & Month(rng2) E terá o resultado: ex.: [ falta-D1M6 ]. Neste caso a estatistica ´retornar´ somente para o (dia & mes) com maior ocorrencias. Se as planilhas geradas pelo sistema, tiverêm a mesma formatação deste ex. a macro vai 'rodar' sem problemas. E para importar a macro, 1º você tem que exportar para uma pasta de preferência-> Aperte as teclas (ALT+F11), do lado esquerdo, clik c/ o botao direito sobre o modulo 'ModEstatistica' e escolha a opção 'Exportar' e escolha a pasta p/ salvar). E em 2º para importar para nova planilha gerada, repita o processo e escolha a opcao disponivel 'Importar' e para executar a macro aperte as teclas (ALT+F8) e escolha a opcao "Estatistica' e ok. (vide imagem abaixo). Outra coisa e importante, a 1ª linha da planilha que tem os nomes das colunas [STATUS TB MARCAÇÃO, AGENDAMENTO EXAME, HR INSERÇÃO NO SISTEMA ], foi voce que criou, ou o sistema gera os dados com esta linha?, caso seja a 1ª opcao, será necessario fazer pequenas alteraçoes para nao gerar errors na execuçã oda macro. . saudaçoes. abc.

Aqui pra mim tá funciando muito bem. Tente fazer um teste (office2010), abaixo do seu filtro (conf. seu ex postado): Em [ A13 ]=> PINDAMONHANGABA e em [ B13 ]=> =EXT.TEXTO($A13;COL(A13);1) e arraste 15 colunas a -> (direita) Pra mim tá retornando: PINDAMONHANGABA P I N D A M O N H A N G A B A

No offcie 2010, tente a formula na celula "B2": =EXT.TEXTO($A2;COL(A2);1) em seguida arraste a direita Já no office anterior acredito que seja: SEG.TEXTO()

arf0307, só retornei agora, pois estava ocupado. A principio entendi o que voce estava querendo, mas a planilha e enviei parecia mais uma folha de rascunho, (E ate quem escreve no dia seguinte nao consegue entender...rssssssssss), pois usei para fazer alguns testes com as formulas e tentar enteder a mecanica de cada uma e apesar de colorir uns intervalos nao deixei claro o que estava querendo dizer. Bom vamos lá, tentei obter os resultados atraves de formulas. A funcao MODO faz isso (retorna com as repeticoes), mas somente com numeros e retorna somente uma ocorrencia. E tentei tbem. essa formula, faz a mesma coisa: =INDIRETO(ENDEREÇO(CORRESP(MÁXIMO(V:V);V:V;0);COL(S:S))), mas tbem. so retorna uma ocorrencia. Sendo assim usei macros, pois traz todo o historico de cada ocorrência. Usei colunas auxiliares (a prox. coluna vazia->no caso a (S) ), para obter uma string (SERIAL= juncao da coluna 'A' com a 'B' para o 1º ex.). A composicao da string Serial é: (ok ou falta-Dia|Mês|Hora|Minuto) Esses dados pode-se tbem. serem inseridos em outra (aba) ex.. plan2, Nao sou muito bom com graficos, mas inclui uma amostra nas linhas abaixo dos dados das colunas (S:Z). Quanto ao fato que a planilha ser gerada por um sistema externo. Há a opcao de exportar desta planilha o modulo "MódEstatistica" p/ uma pasta de preferência. E com a plan. gerada pelo sistema, o usuario pode abrir o editor ( teclas ALT+F11 ) e importar este modulo, e executar a macro 'Estatistica' atraves das teclas (ALT+F8), e por ultimo salvar ou NAO como 'Pasta de trabalho habilitada para macro excel' Pra mim o resultado foi satisfatorio. Veja se atende as suas necessidades. Agendamento-v3.zip

Como você nao passou > detalhes, segue um exemplo abaixo. Crie um modulo e cole a macro, e na plan1 crie tbem. uma tabela (com os dados das pessoas que vai enviar e respect. nome do arquivo), nas colunas: [a ] c/ o nome [Nome do Arquivo]; c/ o nome [Departamento](opcional); [C] c/ o nome [1º Nome]; [d] c/ o nome [sobrenome]; [E] c/ o nome [Emails];por ultimo: [ J ] c/ o nome Path (pasta onde esta o arquivo ex: C:\Users\Admin\Desktop) e preencha os dados de cada coluna. Na coluna [A] insira o nome do arquivo sem sua extensão. Sub Envia_Email_CAnexo() ' fonte: http://www.rondebruin.nl/win/s1/div/mail1.htm Dim OutApp As Object Dim OutMail As Object Dim ws As Worksheet: Set ws = Sheets("plan1") Dim enviad As String enviad = 0 'Path do anexo ao email a ser enviado Set Rng = ws.Range(Range("J2"), ws.Range("J" & Rows.Count).End(xlUp)) For Each cell In Rng Rw = cell.Row Path = cell.Value If Path <> "" Then 'Obtem a informacao do path Dte = Right(Path, Len(Path) - InStrRev(Path, "\")) 'obtem o nome do arquivo na (Coluna A) strNomeArq = cell.Offset(0, -9).Value ' endereco de Email ToNome = cell.Offset(0, -5).Value ccTo = RecpList 'Obtem o nome FirstNme = cell.Offset(0, -7).Value Surname = cell.Offset(0, -6).Value 'faz loop através do caminho dos arquivos ver se existe ClientFile = Dir(Path & "\*.*") Do While ClientFile <> "" If InStr(ClientFile, strNomeArq) > 0 Then AttachFile = Path & "\" & ClientFile MailBody = "Prezado " & FirstNme & vbNewLine & vbNewLine _ & "Segue em anexo uma cópia do seu relatório de analise de custo de " & Dte _ & vbNewLine & vbNewLine _ & "Nome do Arquivo: " & cell.Offset(0, -9).Value _ & vbNewLine & _ "Departamento: " & cell.Offset(0, -8).Value _ & vbNewLine & _ "Gerencia do Centro de Custo: " & FirstNme & " " & Surname _ & vbNewLine & _ "Saudaçoes" & _ Signature '(asinatura) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(o) With OutMail .Subject = "Relatório Centro de custo de - " & Dte .To = ToNome .cc = ccTo .Body = MailBody .Attachments.Add (AttachFile) '.Display .Send enviad = enviad + 1 End With Set OutMail = Nothing Set OutApp = Nothing RecpList = "" End If ClientFile = Dir Loop End If Next If enviad = 0 Then MsgBox "Nenhum email enviado", 64, "AVISO" Else MsgBox enviad & " enviados da sua lista de emails!", 0, "SUCESSO" End If End Sub

Corso, seja bem vindo ao forum ! Sim è possivel, mas deseja enviar por que meios ? por e-mail? outlook ou servidor direto (ex. gmail)? ou outra opcao?