Ir ao conteúdo
  • Cadastre-se

Rafael Mühlmann

Membros Juniores
  • Total de itens

    4
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. @Midori obrigado pela dica...mas não deu certo...ao menos eu não consegui fazer rodar.
  2. Bom dia Tenho uma vba que salva todas as minhas abas da planilha excel em pdf baseado no conteúdo da célula x24, porém se esse conteúdo se repete em duas abas, o pdf gerado primeiro é substituído pelo segundo gerado, e eu fico sem o primeiro pdf. Alguém consegue inserir uma variável para que o código analise se já existe um pdf com o nome que se pretende salvar, e se positivo, que seja acrescentado um (1), (2), (3) e quantos sejam necessários enquanto houver repetição? o vba é o seguinte: Sub salvaPDF() Dim listaAbas() As String Dim contador As Long, Item As Long, vAba As Long Dim caminhoSalvar As String, nomeArquivo As String, vLista As String Dim caixaSalvar As Office.FileDialog Set caixaSalvar = Application.FileDialog(msoFileDialogFolderPicker) With caixaSalvar .AllowMultiSelect = False .Title = "Selecione o local para salvar" .Show End With If caixaSalvar.SelectedItems.Count = 0 Then MsgBox "Operação cancelada!", vbExclamation, "Salvar PDF" Exit Sub Else caminhoSalvar = caixaSalvar.SelectedItems(1) & "\" contador = 0 With ThisWorkbook ReDim listaAbas(.Sheets.Count) For vAba = 1 To .Sheets.Count .Sheets(vAba).Activate nomeArquivo = .Sheets(vAba).Cells(24, "X") If nomeArquivo = "" Then contador = contador + 1 listaAbas(contador) = .Sheets(vAba).Name Else nomeArquivo = nomeArquivo & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ CStr(caminhoSalvar & nomeArquivo), Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End If Next For Item = LBound(listaAbas) To UBound(listaAbas) If listaAbas(Item) <> "" Then vLista = vLista & listaAbas(Item) & vbCrLf End If Next If vLista = "" Then MsgBox "Operação concluída com sucesso!", vbInformation, "Salvar em PDF" Else MsgBox "A(s) seguinte(s) aba(s) não foi(ram) salva(s) em PDF :" & Chr(13) & Chr(13) & vLista & _ Chr(13) & "Favor verifique se na(s) aba(s) listada(s) a célula de referência está preenchida!", vbExclamation, "Erro" End If End With End If End Sub
  3. @Midori... agiliza para mim uma VBA?
  4. Bom dia Tenho uma Workbok com várias Worksheets que eu gostaria de organizar de uma forma específica, baseada em uma lista usando VBA. É possivel????

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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...

 

javaweb-popup.jpg

CURSO ONLINE DE PROGRAMAÇÃO
FULL STACK

Entre para o mercado que paga mais de R$ 12.000 por mês e não tem crise!

CLIQUE AQUI E INSCREVA-SE AGORA MESMO!