Ir ao conteúdo
  • Cadastre-se

Max Carvalho

Membro Pleno
  • Posts

    47
  • Cadastrado em

  • Última visita

  1. 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...
  2. Olhando o print que tirei, encontrei na linha algo que não está mesmo em seu código... Vou tentar outra vez...
  3. Bom dia, @osvaldomp , apareceu uma mensagem de erro de compilação, segue imagem em anexo...
  4. 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
  5. Obrigado, abrirei um tópico a parte, pois não fui muito claro na descrição.
  6. 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...
  7. Tenho uma planilha que lista clientes e suas datas de acordadas para vencimentos de pedidos. Na mesma pasta de trabalho, há uma guia onde são lançados os pedidos, tentei utilizar a função SE, porém nos clientes onde foram acordados datas diferenciadas conforme a data de pedido, não consegui incluir as condições, na planilha exemplo tem 10 clientes, porém trabalho com uma lista de 50 clientes, onde alguns tem três ou quatro datas de vencimentos de acordo com o intervalo dos pedidos, tipo pedidos entre o dia 1º ao 15 vencimento dia 25 do mesmo mês e pedidos entre os dias 16 a 31 vencimento dia 10 do mês subsequente... Agradeço desde a atenção de todos... Exemplo.xlsx
  8. Boa tarde @Patropi Mais uma vez sou muito grato a você, irei olhar o link indicado.
  9. 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"
  10. 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?
  11. 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á...
  12. Boa Tarde Amigos, Tenho uma pasta com nome de Arquivo que contem 500 pastas, tenho o nome de 200 delas que preciso copiar para outra unidade. Seria possível criar um arquivo Bat que eu possa colocar estes nomes um a um, e quando eu clicar as 200 sejam copiadas para uma outra unidade para que eu não tenha que procurar uma a uma. As pastas são criadas/nomeadas desta forma: OJldhwKhI1p00006 OjYz054QGSO00000 OLuFyqYyKSz00001 OoF4GlfOLWn00000 OrXcu1x1wEF00004 OWOfuoGeAjn00006 OYRlkJPT5qY00005 P6pZTWpvqms00002 PIO6iohEO0W00000 PkL4U6ht0V100008 PlY9D8drBfU00006 PMRn5WNF9Rd00003 Grato pela atenção de todos...
  13. Valeu parceiro, isso mesmo que preciso. Muito obrigado mesmo, ajudou bastante.
  14. 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

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