djacy.neto

@R0DR1G0_CWB certo, exemplo em anexo, quando executo a macro no email a imagem do que deve ser o painel altera os tamanhos das celulas, e da p notar nos campos ranking equipes. e nem sempre as imagems de dentro da seleção sao enviadas, nao sei se eu preciso determinar o tamanho da imagem no email ou o que acontece. exemplo_01.zip

pessoal, tenho uma macro que faz envio de conteúdo da planilha por e-mail, ela seleciona os dados, copia e cola como imagem no e-mail para envio. funciona perfeitamente. mas como não entendo muito sobre a sintaxe e prog em VBA eu não consigo mexer no código... o que acontece é que eu fiz uma macro gigante e coloquei para fazer vários envios apenas replicando o código para cada seleção, em alguns casos ele estoura a altura da linha ou largura da coluna excessivamente e sem necessidade, em outros casos o range selecionado tem alguma imagem que não é enviada junto ao conteúdo. abaixo o script: Sub NOVA() Sheets("CALLCENTER").Select ActiveSheet.Range("C1:S74").Select Application.CutCopyMode = False Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Introduction = ("Bom dia" + vbCrLf + "Segue quadro atualizado. ") .Item.To = "[email protected]" .Item.Subject = "TESTE DE ENVIO" .Item.Send End With End Sub

@Caiotzz chipset foi p espaço

@Matheus Araujo Cavalcante ja tentou ligar com uma conte diferente?

@Bikke tenta por assim user = Environ("USERNAME") localPasta = "P:\teste_pdf" ChDir "P:\teste_pdf" user = Environ("USERNAME") localPasta = "C:\Users\Bikke\Desktop\pastadestino" ChDir "P:\teste_pdf" para achar o locao da pasta eu sugiro voce abrir o meu computador>> disco C>> usuarios>>seu usuario>>desktop>>pasta final. ai voce clica na barra de endereço da pasta e ele vai deixar no formato que voce precisa para a macro. mais ou menos como na imagem: formato que voce precisa é:

@Bikke certo, aqui eu uso um outro disco para meus arquivos, no meu script eu deixei assim: user = Environ("USERNAME") localPasta = "P:\teste_pdf" ChDir "P:\teste_pdf" e ele salva direto no meu disco P:

@Bikke deixa eu te perguntar, você baixou o excel que o @Vics postou? ou copiou o codigo?

@Eduardo Romero1 se o teclado nao tiver a tecla de ? usa a tecla Alt Gr + W. tecla alt do lado direito do espaço mais a tecla W. caso teclado tenha a tecla de ? verifica o idioma que esta configurado o teclado.

@Bikke Legal, ve só, nessa parte aqui: vai ficar assim: user = Environ("Bikke") localPasta = "C:\Users\Bikke\Desktop" ChDir "C:\Users\Bikke\Desktop" para fazer rodar sem erro deixa o excel que ta com essa macro na area de trabalho.

@Bikke da uma olhada no local da pasta.... voce colocou o nome do usuario mais nao acertou o local da pasta nem o local onde vai ser salvo o pdf

@Bikke voce chegou a configurar a macro com as informações da sua maquina ou somente copiou? bem no inicio do codigo você tem que modificar algumas informações:

@Vics agora deu certo! valeu!

@Vics bao tarde!

@Gustavo Hitomi como o @Tio Chang falou você precisa de um controlador de banda, fiz uma pesquisa rapida e vi que TP-LINK tem alguns roteadores que tem a funcao de controle de banda. como voce tem um local que precisa de repetidores, voce pode fazer o seguinte: 1 - configura o roteador num ponto fixo e deixa ele ligado direto ao pc via cabo/wi-fi (fixa o ip e mac address) 2 - espalha os repetidores ou roteadores secundarios nos pontos estrategicos que cubra toda a area util da residencia. 3 - no roteador principal você configura ip e mac address dos roteadores secundarios ou repetidores 4 - você distribui o a banda para os dispositivos deixando sempre uns 10% de folga o que você for usar para jogos você nao poe dentro dessa regra porque ai ele puxa a banda conforme necessario. aqui tem um video que explica como faz essa divisão bem detalhada: https://www.youtube.com/watch?v=W9aXIZ36J1I

@Gustavo Hitomi Uma solução para seu problema seria um roteador da cisco, e um pouco de conhecimento em redes, voce consegue pegar a sua banda de 200mb e dividir, deixa 100mb dedicado para seu pc e console e 100mb para os outros dispositivos.

@nthony o que pode fazer tambem é criar uma base com as notas e usar o cpf como ligação.

@Air-Gear boa tarde! este erro acontece ao conectar ao banco de dados pelo cmd certo? verifica se o caminho do banco esta correto (nome do comptutador\instancia).

@Vics isso! nesse caso sao 5 pdfs com a info de cada fornecedor

@iPauchner você vai ter que elaborar uma aba para cadastro, uma aba para armazenar as notas, uma aba para armazenar uma base de fornecedores, uma aba para armazenar base de clientes e uma aba para consulta. voce consegue fazer uma macro para que do cadastro as bases de clientes, fornecedores e notas sejam abastecidas. dai a aba de consulta voce deixa procv para puxar as informações.

@Vics certo, eu anexei um planilha com modelo do que eu quero, na planilha2 ta a exibição de como cada arquivo deve salvar as informações. TESTE_PDF.xlsx

@iPauchner Tudo bem! acho que voce precisa de codigos de identificacao para fazer esta ação, voce precisa criar identificadores para os clientes e para cada nota, ai pode criar uma area onde você poe o codigo da nota e as informações sao trazidas.

@Vics EU fiz o teste ele abriu o pdf mais ele trouxe a info da planilha toda. nao sei se eu expliquei bem tambem. com a execução da macro, deveria abrir um pdf para cada cliente com as info das linhas daquele cliente...

Pessoal estou vendo as alternativas de vocês para o caso, e gostaria de pedir ajuda em uma questão relacionada. tenho uma tabela com 15 colunas podemos dizer que vai de A1:O23, na primeira coluna eu tenho nome de clientes, queria fazer uma macro para salvar um pdf com filtro da informação por cliente. e salvar com nome do mesmo

pessoal, eu estou com um uma macro para envio de email, eu não sei como fazer para que o texto do email tenha uma quebra de linha Sub envio() ' Seleciona o intervalo de células a serem enviadas por email. Sheets("Planilha1").Select ActiveSheet.Range("C2:D4").Select Application.CutCopyMode = False Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Introduction = "Bom dia! Segue Teste de envio por macro parte 1." .Item.To = "[email protected]" .Item.Subject = "Quadro1" .Item.Send End With End Sub queria quebrar a linha para aparecer assim: Bom dia! Segue Teste de envio por macro parte 1