Ir ao conteúdo
  • Cadastre-se

AlexAltheman

Membro Pleno
  • Total de itens

    25
  • Cadastrado em

  • Última visita

  • Qualificações

    0%

Reputação

0

Informações gerais

  • Cidade e Estado
    Amparo/SP
  • Sexo
    Masculino
  1. Olá!! Preciso de ajuda. Tenho uma planilha com as abas A,B,C e quero criar um VBA para quando clicar num botão na aba A ele enviar por email a aba B. Encontrei o código abaixo em um video no youtube e tentei adapta-lo mas ele funciona até o corpo do email. Ele não está anexando a planilha no email. Alguém pode me ajudar? Sub enviar_email() Set objeto_outlook = CreateObject("Outlook.Application") Set Email = objeto_outlook.createitem(0) Email.display Email.to = "alex.eng@hotmail.com" Email.Subject = "Relatório de Vendas"
  2. Olá!! Preciso de ajuda. Tenho uma planilha com as abas A,B,C e quero criar um VBA para quando clicar num botão na aba A ele enviar por email a aba B. Encontrei o código abaixo em um video no youtube e tentei adapta-lo mas ele funciona até o corpo do email. Ele não está anexando a planilha no email. Alguém pode me ajudar? Sub enviar_email() Set objeto_outlook = CreateObject("Outlook.Application") Set Email = objeto_outlook.createitem(0) Email.display Email.to = "alex.eng@hotmail.com" Email.Subject = "Relatório de Vendas"
  3. @Edson Luiz Branco vou tentar fazer dessa forma. Obrigado Edson
  4. @Muca Costa ja fiz isso. A partir do 16 digito aparece tudo como zero.. Preciso que apareça a chave completa
  5. Pessoal preciso muito de ajuda!!!! Ao baixar uma planilha em Excel do sistema da minha empresa tenho uma coluna onde consta uma chave de acesso de 44 dígitos porém o Excel traz esse numero comprimido "3,5210556992951E+43". Preciso criar uma nova coluna onde eu possa colar esse numero e ele me traga visível todos os 44 dígitos dessa chave. Alguém pode me ajudar por favor? nOTAS (1).xlsx
  6. @Patropi Obrigado pela ajuda. Não era bem isso que eu queria mas já resolveu o meu problema.
  7. Olá pessoal, Tenho uma planilha com varias abas onde possuo varias macros que automatizam meu trabalho. Tenho uma macro que salvam 4 abas dessa planilha em um outro arquivo com outro nome. porém, possuo uma macro de AutoOpen que atualiza todos os dados da planilha ao abri-la. Quando eu abro o arquivo que salvei com outro nome ele atualiza e acaba perdendo os dados anteriores. Gostaria de incluir na minha macro de salvar o arquivo com outro nome, uma macro que desativasse a macro AUTOOPEN. Alguém pode me ajudar?
  8. Olá amigos, Estou com um problema em uma planilha onde possuo a macro abaixo para salvar algumas abas em formato XLS com outro nome e em outro local. Meu problema é que possuo várias macros no arquivo e uma delas se chama "AUTO OPEN" onde ao abrir o arquivo ela apaga todos os campos preenchidos. Preciso desativar essa macro "AUTO OPEN" quando eu executar a macro abaixo, pois ao abrir o arquivo salvo com o outro nome eu preciso manter os dados da planilha. Alguem pode me ajudar? ' Salvar_XLS Macro ' Sheets(Array("memoria de calculo", "COTAÇÃO", "De
  9. @CasaDoHardware muito obrigado. Agora deu tudo certo. adicionado 0 minutos depois @CasaDoHardware muito obrigado. Agora deu tudo certo.
  10. @CasaDoHardware a macro que você me enviou quase deu certo. As abas estão sendo salvas com o link ativo e está show. O único problema é que o nome do arquivo tem que puxar as linhas para o nome conforme a aba "COTAÇÂO" e etá puxando da aba "Detalhes de propostas". Tentei alterar de todas as formas mas não consegui. Poderia me ajudar mais uma vez? Desde ja agradeço.
  11. @CasaDoHardware .. Segue arquivo compactado. Na planilha "calculo de estrutura + custos" tem varias abas. Na aba "COTAÇÂO" tem um botão "SALVAR EXCEL". Quando eu clicar no botão eu gostaria de salvar 3 abas no mesmo arquivo: "Detalhes de propostas" / " memoria de calculo" / "COTAÇÂO". Se possível mantendo o link entre elas, pois se eu precisar alterar algo eu não perco o link. O nome do arquivo que será salvo tem que ser conforme a macro que eu disponibilizei acima. Desde já agradeço. COTAÇÃO CAMFIL.rar
  12. @CasaDoHardware tentei faze-lo como mencionou mas não deu certo. Talvez seja porque o nome do arquivo e salvo de acordo com algumas linhas da planilha "COTAÇÂO".. Sabe me dizer o que ocorreu? Sub testemacrosalvaremexcel() Sheets("COTAÇÃO").Select Sheets("COTAÇÃO").Copy Sheets("MEMORIA DE CALCULO").Copy Dim Linha As Long Linha = Range(" C" & Rows.Count).End(xlUp).Row Range("B2:L" & Linha).Select Range("B2:L" & Linha).Copy Dim Nome As String Nome =
  13. Olá pessoal, Alguém pode me ajudar? Possuo um arquivo com varias abas e fiz a macro abaixo para salvar uma aba com um nome a partir de células selecionadas. O problema é que utilizado outra aba do mesmo arquivo de nome "memoria de calculo" para trazer valores a aba "COTAÇÂO". Eu gostaria de salvar essas 2 abas em um mesmo arquivo mantendo o vinculo entre elas e com o mesmo nome conforme a minha macro. Alguém poderia me ajudar? Sub testemacrosalvaremexcel() Sheets("COTAÇÃO").Select Sheets("COTAÇÃO").Copy Dim Linha A
  14. @Edson Luiz Branco eu conseguir adaptar a sua programação e deu certo porém tive mesmo o problema com a barra... Muito obrigado mais uma vez adicionado 1 minuto depois @CasaDoHardware sim...é exatamente essa a intenção pois a planilha será utilizada por varias pessoas e cada um poderá salvar no local que quiser.. Obrigado pela ajuda
  15. @Edson Luiz Branco funcionou sim muito obrigado. porém tive que escolher salvar em PDF e escolher o nome. A minha ideia é de a opção salvar em PDF esteja selecionada automatico e o nome do arquivo seja uma concatenação de (D10; " "; "-"; C55; "m³/h").. Isto é possível?? Podeira me ajudar?

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!