Excel Macro para gerar fichas cadastrais

[evicentini]

Fala pessoal! Tô precisando de uma ajudinha na planilha em anexo (modelo).

Gostaria de uma macro que ao executá-la o excel criasse abas com os códigos dos funcionários cadastrados na aba “BANCO DE DADOS”, gerando as fichas cadastrais por funcionário.  Cada aba gerada deve conter os dados cadastrais dos seus respectivos funcionários.  Este arquivo será usado por setor, e a quantidade de funcionários varia, portanto gostaria que a macro sempre gerasse as fichas até o último funcionário listado na aba “BANCO DE DADOS”.

 

Desde já agradeço a força! Valeu!

Ficha cadastral.xlsx

[CasaDoHardware]

Não entendi uma coisa, sera criadas varias planilhas? ou sera apenas impressa a ficha preenchida?

[evicentini]

Serão criadas várias planilhas, ou seja, uma para cada funcionário da listagem, todas no mesmo arquivo.

[CasaDoHardware]

Cole este codigo em um modulo

 

 

Sub GerarFichas()

Dim W As Worksheet
Dim L As Long
Dim WF As Worksheet

Set W = Sheets("BANCO DE DADOS")
Set WF = Sheets("FICHA")
    L = 2
    
    Do While W.Cells(L, 1) <> ""
    
    With WF
    .Range("B6").Value = W.Cells(L, 1).Value
    .Range("B7").Value = W.Cells(L, 2).Value
    .Range("B8").Value = W.Cells(L, 3).Value
    .Range("B9").Value = W.Cells(L, 4).Value
    .Range("B10").Value = W.Cells(L, 5).Value
    .Copy After:=Sheets(Sheets.Count)
    End With
    ActiveSheet.Name = W.Cells(L, 2).Value
    L = L + 1
    
    Loop

   With WF
    .Select
    .Range("B6").Value = ""
    .Range("B7").Value = ""
    .Range("B8").Value = ""
    .Range("B9").Value = ""
    .Range("B10").Value = ""
    End With
     
End Sub

[evicentini]

Boa tarde! Desculpe responder somente agora, testei a macro e funcionou perfeitamente! 

 

Valeu!!