RégisAvelino

Olá amigos, Vi que aqui no ClubedoHardware temos duas macros em forum que eu tentei uni-las, e não sei como proceder para remover a caixa de salvar arquivo, uma destas macros usa a seleção realizada ex ( "a1:c22" ) e o que estou tentando realizar e não estou conseguindo, seria a remoção da caixa de salvar como, sabem como devo proceder? Agradeço (y) Segue o VBA modificado que tenho, está funcionando, e chega a salvar o arquivo, "mas após apertar Cancelar na caixa de salvar arquivo" (aparece a caixa de salvar arquivos mas é necessário interagir) Gostaria de se possível, que este código não exibi-se a caixa de salvar arquivos Sub Exportar() 'Update 20130916 Dim wb As Workbook Dim saveFile As String Dim WorkRng As Range Dim default As Integer Dim Caminho As String 'declaracao da variável caminho Caminho = ThisWorkbook.Path & "\" On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Caminho, Type:=8) Application.ScreenUpdating = False Application.DisplayAlerts = False default = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = 1 Set wb = Application.Workbooks.Add Application.SheetsInNewWorkbook = default WorkRng.Copy wb.Worksheets(1).Paste Caminho = Replace(WorkRng.Caminho & [A1].Value, ":", "-") 'Caminho = Replace(Caminho, "$", "") 'Caminho = Replace(Caminho, ".", "") saveFile = Application.GetSaveAsFilename(InitialFileName:=Caminho & [A1].Value, fileFilter:="Excel Workbooks (*.xlsx),*.xlsx") wb.SaveAs Filename:=Caminho & [A1].Value & ".xlsx" 'Selection.Copy 'ActiveCell.Offset(1, 0).Range("A1").Select 'Application.CutCopyMode = False wb.Close 'Application.DisplayAlerts = False 'Application.ScreenUpdating = False End Sub