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

1 hora atrás, osvaldomp disse:

Essa linha que apresentou o erro não consta no código que eu passei.

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

Em 07/02/2019 às 08:04, deciog disse:

@Max Carvalho , Bom Dia.

 

O correto é você abrir um tópico para você mas como gosto de ajudar confere o modelo

 

Se foi útil clica no curtir,na mãozinha, é uma forma de agradecimento pela ajuda
 
Decio
 

Modelo Decio 2.xlsx

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

Em 25/01/2019 às 15:23, osvaldomp disse:

00"."000"."000"/"0000"-"00

ou

00\.000\.000"/"0000-00

 

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

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

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

13 horas atrás, Basole disse:

segue as alteracoes

 

 

 

Sub Multiplicar_uma_coluna_inteira_por_um_só_numero()
    Dim linha As Long, j As Long
    ' intervalo: J21 a AF42
    For j = 10 To 32
        For linha = 21 To 42
            ActiveSheet.Cells(linha, j).Value = ActiveSheet.Cells(linha, j).Value * 1.5
        Next linha
    Next j

End Sub

 

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

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

Pronto.

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

Boa noite,

 Obrigado mais uma vez, eu tinha feito isso antes mas não sei o que estava acontecendo que não dava certo, dai eu exclui a coluna onde ficaria a formula e na nova coluna deu certo.

Mais uma vez obrigado pela ajuda.

A primeira é só para exemplo, irei usar só a segunda, porém quando o valor da base for menor que 60.000,00 o cálculo será o primeiro*15%, e se ultrapassar será o calculo do segundo exemplo.  Neste caso tem como usar as duas formulas em uma unica célula?

Estou com um problema em relação a funções também, em uma célula preciso do resultado se a Base de Cálculo for =<60.000,000 o resultado será a base*15%, porém se esta mesma base for maior que 60.000,00 o resultado será a base*15% + 10% do valor que ultrapassa os 60.000,00 (base*15%+10%*(base-60000). Não sei se fui claro,mas segue planilha.

https://www.sendspace.com/file/8226es

Marcelo Carvalho

Muito obrigado Osvaldo...

Boa noite!

Preciso de uma ajuda com aninhamento da função SE ou outra que possa suprir a necessidade.

segue planilha teste..

REFERENCIA_MAX_CARVALHO.xlsx