Max Carvalho

Boa tarde a todos, Tenho uma planilha com várias guias e uma delas é onde está um resumo dos dados (um relatório). Criei um botão para Salvar em PDF e encontrei o código abaixo, porém ele salva com o nome da pasta de trabalho, como não conheço de VBA, gostaria que me ajudassem a modificar esse código para que salve o PDF com o nome que contiver na célula "A1" da guia "RRB" que é a guia do relatório e no final do nome a data que foi gerado o PDF "aaaa-mm-dd". Segue código encontrado: Dim NomPastTrab As String NomPastTrab = VBA.Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & NomPastTrab & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Desde já agradeço a atenção...

Olhando o print que tirei, encontrei na linha algo que não está mesmo em seu código... Vou tentar outra vez...

Bom dia, @osvaldomp , apareceu uma mensagem de erro de compilação, segue imagem em anexo...

Como realizar a formatação personalizada, onde as células irão receber de 1 a 12 dígitos e que siga a sequencia desta máscara "0.0.0.00.000.0000", porém conforme cada célula receba seu dado. vou tentar detalhar mais, um coluna irá receber os dados numéricos, mas de acordo com a quantidade de dígitos siga a sequencia da mascara acima, porém se a quantidade de dígitos for menor que a mascara, não apareça os zeros. Ex.: 1 1.0 1.0.1 1.0.1.0 segue planilha exemplo... Agradeço desde já aqueles que possam me ajudar... Teste_Mascara.xlsx

Obrigado, abrirei um tópico a parte, pois não fui muito claro na descrição.

Como realizar a formatação personalizada para que fique "0.0.0.00.000.0000", detalhe que as células irão receber de 1 a 12 dígitos e gostaria que conforme a quantidade digitada fosse separada com "." conforme essa máscara "0.0.0.00.000.0000". Agradeço desde já aqueles que possam me ajudar...

Boa tarde @Patropi Mais uma vez sou muito grato a você, irei olhar o link indicado.

Boa tarde a todos, Em minha planilha coloquei um botão de comando e atribui a macro abaixo: Sub SalvarCopiaComo() Dim sExtensao As String Dim sNomeSalvarComo As String sExtensao = Mid(ThisWorkbook.FullName, (InStrRev(StringCheck:=ThisWorkbook.FullName, StringMatch:=".", Compare:=vbTextCompare))) sNomeSalvarComo = Left(ThisWorkbook.FullName, (InStrRev(StringCheck:=ThisWorkbook.FullName, StringMatch:=".", Compare:=vbTextCompare) - 1)) _ & " " & Format(Date, "dd-mm-yyyy") & sExtensao ThisWorkbook.SaveCopyAs sNomeSalvarComo End Sub Como aproveitar esse código em um módulo para que a cada 5 minutos seja salva uma cópia desta forma: Bkp_nomedoarquivo_data"(dd-mm-yy)"_hora"(hhmm)", e que o código busque se há uma pasta no mesmo local do arquivo original com nome BACKUP, caso não tenha crie a pasta e nela a cópia do arquivo como mencionado. Para o tempo de salvamento encontrei este código: Public dTime As Date Sub Cronometro() On Error Resume Next dTime = Now + TimeValue("00:05:00") Application.OnTime dTime, "Cronometro"

@Basole Perfeito Muito obrigado...

Muito Obrigado me ajudou bastante, mais uma dúvida há como incluir uma condição de só multiplicar caso os valores nas células sejam negativos?

Boa tarde, como eu poderia aplicar essa macro em uma determinada planilha onde tenho valores entre J21 a AF42 onde os valores contidos neste intervalo de células sejam multiplicados por 1.5. agradeço desde já...

Valeu parceiro, isso mesmo que preciso. Muito obrigado mesmo, ajudou bastante.

Preciso que minha planilha retorne o nome do cliente que está na guia cadastro, usando como referência para busca o Aptº e Torre na guia Receita. Neste caso sempre que colocar os números dos apartamentos e sua Torre retorne o nome do proprietário. segue planilha para melhor entendimento. Agradeço desde já a atenção dos membros deste forum... Retornar_Cliente.xlsx