WJSRamos

Rapaz, funcionou perfeitamente, muito obrigado mesmo!

Boa tarde Srs. Estou criando um banco de dados no Excel integrado com documentos e diversos tipos de arquivos salvos em diretórios do computador. Ele tem UserForm que lista em uma ListBox todos os arquivos e pastas do cliente, e lista o caminho da pasta selecionada. Preciso fazer um botão que quando ativado, abra o arquivo, independente de sua extensão. Por exemplo tenho o seguinte caminho e quero que ao clicar o sistema abra o mesmo: C:\Users\TOSHIBA\Desktop\C.I.ematur\Wellington Jackson de Souza Ramos [2]\1-Documentos Pessoais\Novo Documento de Texto.txt Procurei na internet porém achei apenas como abrir tipos separados de arquivos (XLS, WORD, PDF, TXT, JPG), mas preciso de um geral, pois ele trabalhará em conjunto com outros programas que geram arquivos com extensões diferenciadas, tipo KML, CSV, DWG, BAK entre outros. Agradeço desde já...

Segue anexo a solução. Foi inserido a formula =SOMASE($A$3:$A$25798;E3;$B$3:$B$25798) na primeira célula da tabela 2 e copiada para as demais, assim ele verifica o nome e soma os valor destes nomes. Por favor, verifique lá se é isto mesmo. Calculo da Moda.xls

Bom dia MooM, Por favor, verifique se este código deu certo para você, alterei algumas coisas aqui para ele funcionar: -------------------------------------------------- Sub PDF() Dim Nome As String Dim SDate As String Dim MyLocal As String Nome_Arq = MyLocal & "SI FCL --- " & Nome & " --- " & Export & " --- " & Agent & " --- " & PO & " --- " & Day(Now) & _ "-" & Month(Now) & "-" & Year(Now) & ".pdf" MyLocal = "G:\INTERNACIONAL\SI -MODELO DE INSTRUÇÃO DE EMBARQUE\MODELO NOVO SI MARÍTIMA FCL - 2015\PDF\" Nome = Range("AB12").Value Export = Range("T12").Value Agent = Range("AB10").Value PO = Range("AB6").Value SDate = Now If MsgBox("Gerar PDF", vbYesNo) = vbYes Then Sheets("SEA FCL - SHIPPING INSTRUCTIONS").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arq, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True Application.DisplayAlerts = False Else Application.DisplayAlerts = False End If End Sub ------------------------------------------