AlexAltheman

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

@Midori Muito obrigado.. Deu td certo..

@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?

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

@Edson Luiz Branco vou tentar fazer dessa forma. Obrigado Edson

@Muca Costa ja fiz isso. A partir do 16 digito aparece tudo como zero.. Preciso que apareça a chave completa

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

@Patropi Obrigado pela ajuda. Não era bem isso que eu queria mas já resolveu o meu problema.

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?

@CasaDoHardware muito obrigado. Agora deu tudo certo. adicionado 0 minutos depois @CasaDoHardware muito obrigado. Agora deu tudo certo.

@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.

@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

@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

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

@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

@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?

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

Deu certo.. Obrigado mais uma vez

@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.

É exatamente isso...Muito obrigado.

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.

@DJunqueira .. agora deu tudo certo...Muito obrigado pela ajuda.

@DJunqueira segue as planilhas que utilizo. na Planilha "CALCULO DE ESTRUTURA" na aba "MEGALAM" tem uma caixa em amarelo com uma formula N/D. Utilizo as outras planilhas para fazer os cálculos. Farei esses calculos em todas as caixas Hiperlink presentes. porém estou tentando trazer os custos de outra planilha buscando através da coluna "AT" mas o excel não retorna os valores. Já tentei com Procv também e o erro persiste. Cálculos Estrutura de Produto + custos.zip

Bom dia Pessoal, Estou com um problema de interação entre planilhas no excel. Possuo uma planilha onde calculo o BOM de alguns produtos e uma coluna com o código da materia-prima. Nessa coluna possuo varias formulas que dependendo da condição me traz valores diferentes. Em uma outra planilha tenho uma tabela com a lista de codigos+valores das materia-primas. Estou tentando calcular os custos através dessas 2 planilhas, porém o resultado aparece como N/D. Relativamente é bem simples e já fiz em outras planilhas mas nesse caso não me traz o resultado que espero. OBS: as planilhas estão salvas na mesma pasta; Já utilizei Indice/Corresp e/ou Procv; Já salvei a planilha como valores e não funcionou; Já criei outra coluna para modificar a formatação e não funcionou; Já mudei o nome da planilha; Tentei várias soluções possiveis encontradas na NET e não consigo resolver meu problema.. Alguém pode me ajudar??