Com uma macro criar um ficheiro excel

Bom dia.
Gostava de ter a vossa ajuda para o seguinte.

Criei uma macro para transformar um ficheiro excel quando se encontra preenchido cria um ficheiro pdf.

Mas eu queria que em vez de criar um ficheiro pdf cria-se um ficheiro excel independente.

O codigo que usei para criar o pdf foi este:

Sub Salvando()
Dim Nome As String
Dim SDate As String
Dim MyLocal As String
MyLocal = "\\192.168.0.99\manutencao\04_Pedidos de Intervenção\"
Nome = Range("A6").Value & Range("c6").Value & "_" & Range("C3").Value & "_" & Range("G35").Value
SDate = Now
If Nome <> vbNullString Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"
Else
MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
End If
End Sub

Cria que o nome do ficheiro é criado automaticamente, como agora consigo criando o pdf.

OBRIGADO.

Bom dia!!

Leia:
http://msdn.microsoft.com/en-us/library/bb238907(office.12).aspx
http://www.contextures.com/excelvbapdf.html



Att

Não consegui fazer grande coisa.

Alterei no meu codigo onde tinha : =xlTypePDF para xlTypeXPS e não deu. Grava na mesma em pdf.

Eu copiei este codigo e adaptei para dar o nome que quero e ficar na pasta que eu pretendo, so nao consigo alterar para graver em excel em vez de pdf....

Bom dia!!

Eu não estou entendendo, você que converter de PDF para Excel?

Use um softer online
https://www.google.com.br/search?q=Converter+PDF+para+excel&oq=Converter+PDF+para+excel&aqs=chrome.0.69i57j0l3.4994j0&sourceid=chrome&ie=UTF-8

Att

Não.

Com o código que eu tenho aqui postado a partir de um ficheiro excel ele cria um pdf com um determinado nome que eu defini.

O que eu quero é tendo eu uma folha de excel, com um determinado conjunto de dados quero uma macro que me crie uma nova folha excel, com um determinado nome dependendo de dados em determinadas celulas, mantendo a folha de excel inicial de forma a que possa alterar.

Ou seja, tenho uma folha de excel mãe, que por exemplo se chama "Mãe", quero uma macro que posso criar folhas de excel "filhas", com os nomes, por exemplo, "filha1 "filha2" etc....

Consegui explicar-me???

Obrigado.

Boa tarde!!

Seri isso?
Cria as guias filhas baseado nos nomes das guias filhas na guia Mae...

Código:

Sub AleVBA_881()
    Dim cell As Range
    Dim b As String
    Dim e As String
    Dim s As Integer
    Sheets("Mae").Select
    b = "A2"
    e = Range(b).End(xlDown).Address
   
    For Each cell In Range(b, e)
        s = Sheets.Count
        Sheets.Add After:=Sheets(s)
        Sheets(s + 1).Name = cell.Value
    Next cell
   
End Sub

Não é isto.

Eu tenho uma folha excel que se chama "Pedidos de Intervenção", ou seja que serve para criar ordens de trabalho, e cada vez que crio a ordem de trabalho Nº. 1, por exemplo, queria uma macro para guardar essa folha tal como esta naquele momento, em que tenho o a descrição do trabalho a efectuar, entre outras coisas, a macro que eu quero criar é para nesse momento criar uma cópia com o nome baseado nos dados que introduzi.

Segue em baixo o que já fiz, mas transforma em pdf, e eu quero que transforme numa folha excel.

https*://*w*w*w*.sendspace*.*com*/file*/*uqtzru

Boa tarde!!

Seria isso..

Código:

Sub AleVBA_()

Application.ScreenUpdating = 0
    Range("A1:I47").Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll Down:=-54
    Sheets("M_01_Pedido de Intervenção").Select
Application.ScreenUpdating = 1

End Sub

Att

Boa tarde!!
Caso seja necessário por o nome nas guias que são criadas, veja a baixo.

Código:

Sub AleVBA_881()

Application.ScreenUpdating = 0
    Range("A1:I47").Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Worksheets("M_01_Pedido de Intervenção").Range("C3").Value & Int(321 * Rnd) + 1 'Nome da guia baseado em uma célula
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll Down:=-54
    Sheets("M_01_Pedido de Intervenção").Select
Application.ScreenUpdating = 1

End Sub