Macro de planilhas

[joao deves]

Bom dia eu estou criando uma planilha sobre alguns funcionario e queria um macro para abrir outra planilha por funcionario, dentro dessa planilha criada para cada funcionario ser igual a planilha principal

[Visitante]

Oi Tudo bem?

 

Existe uma macro que faz uma cópia exata da planilha original:

 

Sub SalvarCopiaComo()
Dim sExtensao As String
Dim sNomeSalvarComo As String
Dim Nome As Single

Nome = Cells(1, "M")

    sExtensao = Mid(ThisWorkbook.FullName, (InStrRev(StringCheck:=ThisWorkbook.FullName, StringMatch:=".", Compare:=vbTextCompare)))
    sNomeSalvarComo = Left(ThisWorkbook.FullName, (InStrRev(StringCheck:=ThisWorkbook.FullName, StringMatch:=".", Compare:=vbTextCompare) - 1)) _
            & " " & "_" & Nome & sExtensao
    ThisWorkbook.SaveCopyAs sNomeSalvarComo
    
    MsgBox "Planilha criada!"
    
    End Sub

 

Nesse código o nome da planilha vai conter o nome do funcionário que estará na cédula "M1", você pode alterar isso facilmente na parte do código " Nome = Cells(1, "M") "

 

Vê se é isso que você quer.

 

Abraço.