Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para gerar fi...
 
Notifications
Clear all

Macro para gerar fichas cadastrais

 
2024 - VBA & Macros
Post Recente por MPrudencio 7 anos atrás
2 Posts
2 Usuários
0 Reactions
1,051 Visualizações
RSS
 ed_8080
(@ed_8080)
Posts: 0
New Member
Topic starter
 

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!

 
Postado : 01/03/2018 12:08 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Tente este codigo


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
 
Postado : 02/03/2018 5:16 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico