Ir ao conteúdo
  • Cadastre-se

AlexAltheman

Membro Pleno
  • Posts

    28
  • Cadastrado em

  • Última visita

Tudo que AlexAltheman postou

  1. Preciso de ajuda!!! Tenho a planilha anexo onde ao clicar em qualquer célula abre um formulário para preenchimento porém, necessito copiar e colar informações de outras planilhas nas caixas de seleção do formulário. Quando vou a outra planilha com o formulário aberto eu não consigo copiar os dados para colar no formulário. Necessito que o formulário se mantenha aberto para que eu pegue os dados de outras planilhas. Alguém pode me ajudar com isso?? Diário_de_vendas.zip
  2. @Midori Muito obrigado pela ajuda mas infelizmente não deu certo. No ex. que você mencionou acima a macro cadastrar até envia para planilha como valores mas eu gostaria que: .Cells(lLinha, 10).Value = frmCliente.txtdolar.Value - ( nesse caso queria que o simbolo de $ aparecesse na planilha) .Cells(lLinha, 11).Value = frmCliente.txteuro.Value - ( nesse caso queria que o simbolo de $ aparecesse na planilha) .Cells(lLinha, 13).Value = frmCliente.txtgm - (Nesse caso é um numero em porcentagem e ao gravar gostaria de ter o % na planilha) Pode me ajudar?
  3. Olá, alguém por favor pode me ajudar. Fiz a planilha anexo com um formulário que ao clicar em qualquer lugar da planilha se abre para preenchimento. Há 2 programações - a "lscadastrar" e a "lspreenccher" Ao clicar no botão gravar a macro salva os dados do formulário na planilha porém todos em formatação de texto. Eu gostaria de salvar esses dados em formatação de moeda e %. Gostaria também que ao clicar em alguma linha já preenchida os dados fossem copiados para o formulário de forma que eu conseguisse executar os cálculos sem problema. Já tentei realizar uma formatação manual colocando o R$ e % nos números ao salvar porém, quando eu clico em uma linha preenchida e ativa a função "lspreencher" ele retorna com os caracteres e não consigo realizar cálculos. Por favor preciso de ajuda. ezyzip.zip
  4. 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 = "[email protected]" Email.Subject = "Relatório de Vendas" Email.Body = Cells(2, 2).Value & "," & Chr(10) & Chr(10) _ & Cells(2, 3).Value & Chr(10) & Chr(10) _ & "Abraços," & Chr(10) & "Diego Amorim" Email.Attachments.Add (ThisWorkbook.Path & "\Vendas - " & Cells(2, 2).Value & ".xlsx") Email.send End Sub
  5. 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 = "[email protected]" Email.Subject = "Relatório de Vendas" Email.Body = Cells(2, 2).Value & "," & Chr(10) & Chr(10) _ & Cells(2, 3).Value & Chr(10) & Chr(10) _ & "Abraços," & Chr(10) & "Diego Amorim" Email.Attachments.Add (ThisWorkbook.Path & "\Vendas - " & Cells(2, 2).Value & ".xlsx") Email.send End Sub
  6. @Edson Luiz Branco vou tentar fazer dessa forma. Obrigado Edson
  7. @Muca Costa ja fiz isso. A partir do 16 digito aparece tudo como zero.. Preciso que apareça a chave completa
  8. 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
  9. @Patropi Obrigado pela ajuda. Não era bem isso que eu queria mas já resolveu o meu problema.
  10. 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?
  11. 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", "Detalhes da Proposta", "RevBasile")).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 = "C:\Users\althemal\Desktop\POWER SYSTEMS\Proposta comercial\EXCEL\" & Sheets("COTAÇÃO").Range("I5").Value & "-" & Sheets("COTAÇÃO").Range("D5").Value & " " & "REV" & "-" & Sheets("COTAÇÃO").Range("I6").Value & ".xlsx" ActiveWorkbook.SaveAs Filename:=Nome, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Windows("Cálculos Estrutura de Produto + custos.xlsm").Activate End Sub
  12. @CasaDoHardware muito obrigado. Agora deu tudo certo. adicionado 0 minutos depois @CasaDoHardware muito obrigado. Agora deu tudo certo.
  13. @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.
  14. @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
  15. @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 = "C:\Users\althemal\Desktop\POWER SYSTEMS\Cotações\Proposta comercial\" & ActiveSheet.Range("I5").Value & "-" & ActiveSheet.Range("D5").Value & " " & "REV" & "-" & ActiveSheet.Range("I6").Value & ".xlsx" ActiveWorkbook.SaveAs Filename:=Nome, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Windows("Cálculos Estrutura de Produto + custos.xlsm").Activate End Sub
  16. 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 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 = "C:\Users\althemal\Desktop\POWER SYSTEMS\Cotações\Proposta comercial\" & ActiveSheet.Range("I5").Value & "-" & ActiveSheet.Range("D5").Value & " " & "REV" & "-" & ActiveSheet.Range("I6").Value & ".xlsx" ActiveWorkbook.SaveAs Filename:=Nome, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Windows("Cálculos Estrutura de Produto + custos.xlsm").Activate End Sub
  17. @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
  18. @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?
  19. Bom dia pessoal, Fiz a macro abaixo e está funcionando normalmente, porém eu preciso que a pasta onde o arquivo será salvo seja escolhida pelo usuário pois varias pessoas estarão utilizando a mesma planilha e cada um pode escolher salvar o arquivo em seu computador.. Alguém pode me ajudar? Sheets("COTAÇÃO").Select Range("B2:F55").Select Range("F2").Activate ChDir "S:\Vendas\Gerência Comercial\Vendas Nacionais\Relatórios de desempenho" Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "S:\Vendas\Gerência Comercial\Vendas Nacionais\Relatórios de desempenho\teste.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Range("H39").Select End Sub
  20. Olá. Tenho uma planilha onde gero um relatório conforme PDF disponibilizado em anexo. Criei um botão para a geração do PDF e executei a macro abaixo: 1º fiz uma limpeza na planilha. (teve que ser linha a linha pois tem linha com formatações diferentes e iria apagar coisas que eu não queria) Depois executei uma macro para salvar as informações que eu quero contendo 1 foto e um gráfico antes de gerar o PDF. Da 1 ª vez funcionou mas na 2ª tentativa deu erro. Acredito que o excel esteja numerando o gráfico e a foto e isso esta gerando o erro pois, toda vez que refaço a macro o numero da foto e do gráfico mudam. Alguém pode me ajudar com esse problema?? Sub teste_grafico() ' teste_grafico Macro ' ActiveWindow.SmallScroll Down:=-18 ActiveSheet.Shapes.Range(Array("Picture 28")).Select Selection.Delete Range("D10").Select Selection.ClearContents Range("C12:D12").Select Selection.ClearContents Range("D13").Select Selection.ClearContents Range("D14").Select Selection.ClearContents Range("D15").Select Selection.ClearContents Range("D16").Select Selection.ClearContents Range("D17").Select Selection.ClearContents Range("D18").Select Selection.ClearContents Range("D19").Select Selection.ClearContents Range("D21").Select Selection.ClearContents Range("D22").Select Selection.ClearContents Range("D20").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=15 ActiveSheet.ChartObjects("Gráfico 9").Activate ActiveChart.Parent.Delete ActiveWindow.SmallScroll Down:=-21 Range("G8").Select Range("D10").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[46]C[-2]" Range("C12:D12").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[85]C[-1]" Range("D13").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[33]C:R[33]C[1]" Range("D14").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[34]C[-1]" Range("D15").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[32]C:R[32]C[2]" Range("D16").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[100]C[-2]" Range("D17").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[32]C[-1]" Range("D18").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[32]C[-1]" Range("D19").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[32]C[-1]" Range("D20").Select ActiveWindow.SmallScroll Down:=6 ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[32]C" Range("D21").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[32]C" Range("D22").Select ActiveCell.FormulaR1C1 = "='Cálculo Megalam'!R[32]C" Range("D23").Select Sheets("Cálculo Megalam").Select ActiveWindow.SmallScroll Down:=-36 ActiveChart.ChartArea.Copy Sheets("COTAÇÃO").Select Range("C25:E48").Select ActiveSheet.Paste Sheets("Cálculo Megalam").Select ActiveSheet.Shapes.Range(Array("Picture")).Select Selection.Copy Sheets("COTAÇÃO").Select ActiveWindow.SmallScroll Down:=-9 Range("C4:C8").Select ActiveSheet.Paste Range("B2:F55").Select Range("F2").Activate Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "S:\Vendas\Gerência Comercial\Vendas Nacionais\Relatórios de desempenho\teste.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True End Sub teste.pdf
  21. @CasaDoHardware poderia me ajudar com mais uma duvida.. Com a macro que você me enviou eu criei um botão para salvar em PDF conforme abaixo. Sub Salvar_PDF() ' Salvar_PDF Macro Sheets("Cotação").Select ActiveWindow.SmallScroll Down:=-6 Dim Linha As Long Linha = Range(" C" & Rows.Count).End(xlUp).Row Range("B2:L" & Linha).Select Dim nome As String nome = "S:\Vendas\Gerência Comercial\Vendas Nacionais\Cotações\" & ActiveSheet.Range("I5").Value & " " & ActiveSheet.Range("D5").Value & ".pdf" Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub Agora preciso salvar o arquivo em Xls normal com o mesmo nome do PDF para alterar caso precise. porém o arquivo possui várias abas com varias macros e quando eu salvo ele atualiza as macros e deleta tudo. Eu gostaria de salvar apenas a aba "COTAÇÂO" com as formulas. Poderia me ajudar mais uma vez? Estou começando a aprender programação e muito do que faço eu leio na internet.. Me desculpe os erros.
  22. Olá pessoal, Montei uma mascara de cotação onde introduzo vários itens que variam em sua quantidade de acordo com cada cotação. Uma mascara pode ter 10 ou 50 linhas. No final da mascara estou trazendo a assinatura do vendedor e preciso selecionar a mascara para salva-la em PDF, porém não posso determinar o numero de linhas pois elas podem variar. Para isso fiz uma macro para selecionar de baixo para cima a ultima linha preenchida. Sheets("COTAÇÃO").Select Range("C14").Select Selection.End(xlDown).Select Range("C65000").End(xlUp).Offset(2, 0).Select A partir dai, preciso selecionar as colunas de B:L da ultima linha selecionada até a linha 02. Alguém pode 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...