Victor Comparini

@Linhoo Tem algo que eu não entendi. Quando é pra ser considerado fora do estado e quando é pra ser considerado dentro do estado?

@ziico, Dê uma olhada no link do @deciog

@ziico Olá Desculpe, mas não da pra entender muito bem o que você quer. Você quer um botão que manda para a célula que esta localizado esse número? esses números entre A5;A4617 se repetem? seja mais específico e se possível, anexe a planilha.

@Ivani Alcantara Olá! Tente o seguinte: 1. Antes de tudo selecione todas as células da planilha. 2. Vá para Localizar e Substituir. 3. Localizar por Formato 4. Clique em algum Hyperlink 5. Localizar tudo e Selecionar as localizadas. 6. Com elas selecionadas, basta fechar, clicar com o botão direito em algum hyperlink, pois todas as células desse formato estarão selecionadas, e selecionar para bloquea-las. 7. Logo após na aba Revisão clique em Proteger Planilha, e remova a opção de selecionar células bloqueadas. Esperto ter ajudado. Qualquer dúvida estou a disposição.

@Allan Fabossi Aqui Funcionou da seguinte forma: A célula pode permanecer formatada como você especificou Na hora que buscar o número ele realmente buscaria apenas "12" nesse caso, mas tem um comando de formatar que muda isso. Importante a variável ser uma string. Se utilizar alguma operação matemática com com essa variável, aí sim vai dar erro. Esse é seu caso? Caso sim, existe essas opções: CInt (NumRecibo) 'Esse comando converte uma String para inteiro, assim pode fazer as operações matemáticas. CStr (NumRecibo) 'Depois converta novamente para String com esse comando e formate usando o comando Format conforme código abaixo. Caso não, segue o código abaixo. Sub criar_PDF() ' ' criar_PDF Macro ' Dim NumRecibo As String 'Variável declarada como string NumRecibo = Sheets("Planilha1").Range("A1").Value 'Buscar valor na Célula NumRecibo = Format(NumRecibo, "000000") 'Formatar número (esse comando fez a diferença) MsgBox NumRecibo 'resultado da formatacação 'Salvar PDF ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\OneDrive\CONTRATOS\Recibos\" & NumRecibo & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Range("A1").Value = NumRecibo + 1 'Incrementar 1 End Sub Espero ter Ajudado, Qualquer dúvida estou a disposição.

@guicrissantos Esse código irá permitir você escolher o local do arquivo, e irá salvar o nome no formato que você especificou. Sub Salvar_Caminho() Dim strCaminho As String Dim sheetName As String Dim ano As Integer Dim mes As Integer Dim dia As String Dim nomeArquivo With Application.FileDialog(msoFileDialogFolderPicker) 'Permitir mais de uma pasta .AllowMultiSelect = False 'Mostrar janela .Show sheetName = ActiveSheet.Name ano = Year(Date) mes = Month(Date) dia = Day(Date) nomeArquivo = sheetName & "_" & ano & mes & dia If .SelectedItems.Count > 0 Then strCaminho = .SelectedItems(1) ActiveWorkbook.SaveAs Filename:=strCaminho & "\" & nomeArquivo & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End If End With End Sub

@Allan Fabossi Não precisa programar, mas vai ter que entrar no VBA e alterar algumas linhas no código. vou deixar o código pronto abaixo, mas vou explicar o que vai mudar. Dim NumRecibo As String 'Vai declarar a variável dessa forma NumRecibo = Sheets("Planilha1").Range("A1").Value 'Vai atribuir o valor conforme sua planilha e sua célula e o caminho vai ficar com a sua variável dessa forma. "D:\OneDrive\CONTRATOS\Recibos\" & NumRecibo & ".pdf" Sub criar_PDF() ' ' criar_PDF Macro ' Dim NumRecibo As String NumRecibo = Sheets("Planilha1").Range("A1").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\OneDrive\CONTRATOS\Recibos\" & NumRecibo & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub Qualquer Dúvida estou a disposição. adicionado 3 minutos depois Desculpa a demora pra responder. Olhei sua planilha, tem bastante conteúdo. onde está o erro exatamente, qual erro está aparecendo?

Então há duas opções. Ou você precisa instalar um plugin chamado "SaveAsPDF" para o excel 2007, pois o seu não tem esse plugin, por essa versão do excel não suportar salvar a seleção em PDF, ou converter o arquivo para PDF, por isso da esse erro. ou você, por método de gravação de macro, salve a planilha como PDF, ou a seleção como PDF para ver qual é o código gerado, que talvez no excel 2007 também seja outro. Eu só testei o código no excel 2013 e 2016. Segue o tutorial para gerar a macro gravada para salvar a seleção em PDF. 1. Guia de desenvolvedor, clicar em gravar macro. (para ativar a guia do desenvolvedor: ) 2. Nomear a macro 3. Selecionar a área 4. Guia Arquivo 5. Salvar como, selecione o local, ou procurar. 6. Selecione PDF 7. Opções e clique em seleção 8. Clique em Salvar 9. Na guia de desenvolvedor, clique em Parar Gravação 10. Na mesma Aba, clique em Macros e Editar a Macro Gerada 11. Resultado do código Gerado:

@djacy.neto, bom, eu diria que não precisa mudar o "USERNAME", pois esse Environ é uma função,mas se mudando deu certo... Segue exemplos do Environ Environ("ALLUSERSPROFILE") Resultado: "C\ProgramData" Environ("APPDATA") Resultado: "C:\Users\totn\AppData\Roaming" Environ("CommonProgramFiles") Resultado: "C:\Program Files (x86)\Common Files" Então, dessa forma, funciona aqui perfeitamente. user = Environ("USERNAME") 'buscar nome de usuário do computador. localPasta = "C:\Users\" & user & "\Desktop\" ChDir "C:\Users\" & user & "\Desktop\" MsgBox localPasta 'resultado do local da pasta que os arquivos serão salvos como na imagem abaixo @Bikke, o que eu estou vendo o que ta acontecendo no seu erro, é que o seu excel não está suportando a opção de salvar a seleção em PDF, como diz na microsoft: Qual versão do excel você está usando?

@ROBAOCIS Testei o código aqui e funcionou perfeitamente, além de que ficou simples e da pra entender super bem. Parabéns, ficou muito bom! Você poderia marcar esse tópico como resolvido, na minha assinatura tem um tutorial de como fazer. Quanto a pergunta a respeito da minha empresa, responderei por mensagem privada pra não mudar o assunto do tópico.

@Bikke Qual foi o erro apresentado? Pois essa linha do código é justamente para transformar a seleção em PDF.

@djacy.neto , Desculpe. a ultima linha do código, faltou um "s" em Sheets Sheets("Planilha1").Select de qualquer forma, segue atualizada. TESTE_PDF-1 - Vics.zip

kkk. Obrigado pelo elogio. Na verdade eu não sou gênio, tem coisas que eu erro feio kk. Comecei acompanha Excel depois que comecei a trabalhar na empresa que estou hoje e coincidentemente estou sendo desligado hoje. Meu Ex-Chefe que foi desligado um tempo atrás, ele sim era o verdadeiro gênio e mestre, o melhor que conheci pessoalmente, foi ele que me inspirou a fazer alguns cursos pagos, video-aulas... muita coisa aprendi pesquisando também e ajudar os outros aqui no forum tem me ajudado bastante. É bom ter reconhecimento, obrigado mesmo.

olá, não é isso que você quer?

Olá, Desculpe, eu devia ter pensado nisso antes. no começo do código, você acrescenta a variável Dim user depois atribui user = Environ("USERNAME") 'buscar nome de usuário do computador. e coloca o loca da pasta. localPasta = "C:\Users\" & user & "\Desktop\" ChDir "C:\Users\" & user & "\Desktop" Veja se funcionou.

Também estou pesquisando algo parecido. Qualquer novidade eu posto aqui.

Olá. Veja se é isso que você precisa. TESTE_PDF-1 - Vics.zip

@ROBAOCIS você precisa mudar a variável local_pasta desta forma ele não está salvando porque não está encontrando o caminho especificado.

Olá! Tente o código abaixo: Sub SalvarArquivo() ' ' Salvar em PDF e XLSM ' Dim MyDate Dim Clinte As String Dim Separador As String Dim Veículo As String Dim local_pasta As String ' Cliente = Range("A7").Value 'ou onde estiver o nome do cliente. Separador = " - " Veículu = Range("D8").Value local_pasta = "C:\Users\nome de usuário\Desktop\" 'Local do arquivo ChDir "C:\Users\nome de usuário\Desktop" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ local_pasta + Cliente + Separador + Arquivo, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True ActiveWorkbook.SaveAs Filename:=local_pasta + Cliente + Separador + Arquivo, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ActiveWorkbook.Close End Sub

Olá, desculpe. Você disse o que tem que fazer, e anexou uma planilha. Mas não está claro. Qual é a sua dúvida?

@djacy.neto só para eu entender melhor. Nesse caso, cada página do PDFs irá salvar isso: ou é pra salvar 5 PDFs diferentes com essa informação de cada fornecedor?

olá para débito: =somase(c:c;10;d:d) para crédito =somase(c:c;20;d:d)

E se você filtrar as informações somente desse cliente e executar? porque até tem como fazer uma macro para salvar de cada cliente, porém, sem ter a sua planilha, isso fica impossível.

Bom dia, Acredito que há mais de uma maneira de fazer isso, sem ver sua planilha não da pra saber exatamente como aplicar ou qual aplicar. Montei esse exemplo, espero que ajude. Debitar Kits - Vics.zip

Se eu entendi bem, você vai filtrar um cliente, e salvar PDF dessas informações filtradas, certo? tente o código abaixo, lembrando que, se você salvar o arquivo do cliente X hoje, e o cliente X mês que vem, quando você salvar mês que vem, ele vai subscrever o arquivo atual, não vai manter 2, por isso, é interessante colocar a data que está salvando, ou em alguns casos a hora, se for salvar a mesma planilha varias vezes ao dia. Segue o código com nome e data: Sub SalvarPDF() Dim MyDate Dim Clinte As String Dim Arquivo As String Cliente = Range("A2").Value 'ou onde estiver o nome do cliente. Arquivo = Cliente & "." & _ Format(MyDate, "dd") & "." & Format(MyDate, "mm") & "." & Format(MyDate, "yyyy") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= Cliente + Arquivo, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True ActiveWorkbook.Close End Sub Qualquer dúvida estou a disposição.