Basole

@RAIMUNDO LIMA DE ARAUJO veja se é isso testes.xls.zip

Desconsiderando as linhas que contem os shapes, voce esqueceu tambem de definir a variavel FileName, por isso continua o erro. FileName = "Defina_1_Nome_AQUI" Segue o arquivo com algumas alteracoes Cadastro de Eventos-v1.zip

@Bruno_ABS sim eu vi que esses "shapes" não etão presentes, imageinei que tivesse removido

voce se esqueceu de definir a variavel RootDir RootDir = ThisWorkbook.Path & "\" ficando assim : Sub Exportar() Dim RootDir As String Dim FileName As String RootDir = ThisWorkbook.Path & "\" Sheets("Plan1").Select Sheets("Plan1").Copy ActiveSheet.Shapes.Range(Array("Round Diagonal Corner Rectangle 2")).Select ActiveSheet.Shapes.Range(Array("Round Diagonal Corner Rectangle 2", _ "Round Diagonal Corner Rectangle 1")).Select Selection.Delete Sheets("Plan1").Select Sheets("Plan1").Name = "Tabulações" ActiveWorkbook.SaveAs RootDir & FileName & ".xlsx" End Sub

@Bruno_ABS é o forum não aceita. voce precisa "zipar" (Compactar o arquivo), para fazer o upload

@Bruno_ABS pelo que entendi está correto, referenciar o caminho (path) a partir da pasta de trabalho. Desta forma vai rodar em qualquer pc.sem precisar alterar isto ou gerar erros. Mas o que está faltando no seu codigo é uma coisa bem simples A barra contraria [ \ ] entre o caminho e o nome do arquivo a ser salvo ActiveWorkbook.SaveAs RootDir & "\" & Filename & ".xlsx" Abrx.

não sei se entedi bem, o que esta precisando..... Se quer determinar um path (caminho) para salvar o arquivo em uma pasta comum para todos usuarios e em qualquer PC, pode usar a função [ Environ ]. Exemplos: Pasta Meus Documentos: MsgBox VBA.Environ("USERPROFILE") & "\Documents\" Pasta Área de Trabalho: MsgBox VBA.Environ("USERPROFILE") & "\Desctop\" Pasta Temp: MsgBox VBA.Environ("TEMP") => C:\Users\ [ usuario local] \AppData\Local\Temp + detalhes aqui: https://www.codevba.com/office/environ.htm#.YbElCNDMJdg

@pedroch me desculpe, faltou eu incluir uma [ \ ] barra contrario antes do nome do arquivo al ser salvo. Segue a linha completa corigida. Substitua por essa: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=VBA.Left(objExcelFile.Path, VBA.InStrRev(objExcelFile.Path, "\") - 1) & "\" & strWorkbookName & ".pdf"

@Fabio Antonio Eu não fiz uma contagem apurada de caracteres, mas você pode rodar a macro ( veja o link), adaptando ao seu conteúdo e com a Fórmula =NÚM.CARACT() para contatar as quantidades de dígitos exatos aceitável. http://ptcomputador.com/Software/microsoft-word/142650.html

@pedroch experimenta substituir, na linha que exporta para PDF, strPath por: Vba.Left(objExcelFile.Path, vba.InStrRev(objExcelFile.Path, "\") - 1)

se voce inserir mais caracteres ou espaços a forma vai aumentando cerca de 508 caracteres o word aceita sem apresentar erros: sub inserir_links_dica_tela_1() activedocument.hyperlinks.add anchor:=selection.range, _ screentip:="queria aumentar esse espaço " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " ", _ address:="http:\\www.microsoft.com" end sub ou com palavras: sub inserir_links_dica_tela() activedocument.hyperlinks.add anchor:=selection.range, _ screentip:="teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste " & _ "teste teste teste teste teste teste teste" & _ "teste", _ address:="http:\\www.microsoft.com" end sub

@Martti obrigado! segue com as alterações solicitadas busca_personalizada_v2.zip

Pra mim seria um prazer compartilhar conhecimentos e experiências. Mas fica complicado nesta faixa de horário.

@Martti veja se este exemplo de pop-up, que mostra dados do intervalo da aba data, ao selecionar uma celula no intervalo de dados da aba check busca_personalizada_v1.zip

Fiz alterações no codigo, para verificar se o arquivo ja existe na pasta backup. Caso for verdadeiro, deleta o arquivo e move atualizando a pasta como o novo arquivo. veja se atende Sub MoveArquivos() Dim fso Dim PastaOrigem As String, PastaDestino As String Dim txtFile PastaOrigem = "\\nome_do_servidor\INDICADORES" PastaDestino = "\\nome_do_servidor\INDICADORES\backup" Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next If Not fso.FolderExists(PastaOrigem) Then MsgBox PastaOrigem & " Não é uma pasta válida.", vbInformation, "Office, VBA e VSTO" ElseIf Not fso.FolderExists(PastaDestino) Then MsgBox PastaDestino & " Não é uma pasta válida.", vbInformation, "Office, VBA e VSTO" Else For Each txtFile In fso.GetFolder(PastaOrigem).Files If fso.FileExists(PastaDestino & txtFile.Name) Then fso.deletefile PastaDestino & txtFile.Name, True txtFile.Move PastaDestino End If Next 'fso.MoveFile (PastaOrigem & "\*.txt"), PastaDestino End If If Err.Number = 53 Then MsgBox "Arquivo não encontrado." End Sub

@Janilson Brito testei agora o seu codigo e pra mim está funcionando 100% Pode ser que esteja acontecendo algum erro. Experimente "comentar" a linha: 'On Error Resume Next => colocando uma aspas (') simples no inicio da linha. Desta forma se houver algum erro diferente do referenciado no codigo, apresentará. Ou verifique se a pasta "backup" já foi criada.

@Janilson Brito experimente alterar esta linha no seu código, acrescentando uma barra invertida no final: PastaDestino = "\\nome_do_servidor\INDICADORES\backup\"

Click Dados>Proteger Páginas e Intervalos Uma janela a direita vai abrir Insira uma descrição para identificar a proteção Confira se o intervalo está correto e click no botão verde Definir Permissões E selecione Restringir quem pode Editar este Intervalor e selecione "Somente eu" Por ultimo, click em Concluido. De uma olhada neste https://support.google.com/a/users/answer/9308980?hl=en

Tente assim.... Na celula 1 coloque apenas url: https://api.whatsapp.com/send/?phone= Na celula 2 coloque o numero do celular com (ddd) desejado, ex : 21987654321 E na celula 3 coloque: &text&app_absent=0 .... e na sua macro substitue a linha abaixo, considerando que as celulas envolvidas sejam A2, B2, C2 respectivamente. (altere no código de acordo com o seu cenario) ActiveCell.FormulaR1C1 = "=HYPERLINK(""" & [A2] & "+55" & [B2] & [C2] & """,""Link para WhatsApp"")"

@Zamboni_du bom se você tem essas duas situações, experimente algo assim: * Não testado Sub Teste() Dim WB As Workbook Dim strFile As String Dim TestDir As String strFile = Environ$("USERPROFILE") & "\Documents\teste.mhtm*" On Error Resume Next TestDir =vba.Dir(strFile) On Error GoTo 0 If TestDir = "" Then Set Wb = Workbooks.Open (Environ$("USERPROFILE") & "\Documents\teste.xlsx" ) Else Set Wb = Workbooks.Open (strFile) End if End sub * Considerando que os arquivos estejam na pasta "Meus documentos" do respectivo usuário: C:\Users\ [ nome do usuário] \Documents\

@Flávia de Oliveira Batista não tenho como testar agora, mas experimente substituir essas linhas no seu código: ActiveChart.ChartArea.Select ActiveChart.CopyPicture xlScreen, xlBitmap, xlScreen ActiveSheet.Paste

@Raquel Coelho você precisa "reverter" essa configuração usando os eventos, quando a janela é desativada e quando a planilha em questão é fechada. Ex. Private Sub Workbook_BeforeClose(Cancel As Boolean) Call Mostrar_BF End Sub Private Sub Workbook_Deactivate() Call Mostrar_BF End Sub .. rotina que mostar a barra de ferramentas Sub Mostrar_BF() With Application .ScreenUpdating = False .Calculation = xlCalculationManual .WindowState = xlMaximized .ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",True)" .CommandBars("Full Screen").Visible = True .CommandBars("Worksheet Menu Bar").Enabled = True .DisplayStatusBar = True .DisplayScrollBars = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True .DisplayRuler = True .DisplayFormulas = True .DisplayGridlines = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With

Com a função Environ retorna o caminho da pasta padrão meus documentos, por exemplo, independe do usuário ou PC. Environ$("USERPROFILE") & "\Documents\" Retorna: "C:\Users\Nome do Usuário\Meus Documentos"

@Luiz Santana tem que associar o intervalor "Pendentes" que você criou ao pop-up. Clica com o botão direito em Picture e na Barra de Fórmulas insira [=Pendentes ] Logística - teste.zip

@Luiz Santana provavelmente, quando copiou o objeto Picture, ele veio atrelado com a macro do exemplo Se for isso... feche o exemplo, caso estiver aberto, click no botão para aparecer o pop-up e sobre ele com o botão direito selecione "Atribuir Macro" e selecione a macro Picture1_Activate Pronto! agora só testar.