Ir ao conteúdo
  • Cadastre-se
Max Carvalho

RESOLVIDO Macro para gerar guia

Recommended Posts

Boa noite, gostaria de saber como criar uma macro para gerar uma guia idêntica a anterior mudando apenas o nome da guia e com uma célula gerando uma numeração automática que essa numeração siga uma sequencia de ano/mês-numeração(0001,0002,0003...).

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite!!

Leia:

http://support.microsoft.com/kb/288402

Option Explicit

Sub test()
Dim i As Long, s As String, s2 As String
s = "SeuNome"
s2 = s
ActiveSheet.Copy Before:=Sheets(1)
Do While WorksheetExists(s2)
i = i + 1
s2 = s & " " & i
Loop
ActiveSheet.Name = s2
End Sub


Function WorksheetExists(WSName As String) As Boolean
On Error Resume Next
WorksheetExists = Worksheets(WSName).Name = WSName
On Error GoTo 0
End Function

Att

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Faltou apenas a parte da numeração automática, do tipo tenho a primeira guia com uma numeração 2013/10-0001, gero outra guia com a macro acima, porém a célula D1 onde fica a numeração, preciso que mude de acordo com a guia anterior. no caso (guia1, celula D1, 2013/10-0001 e quando gerar guia2 a celula D1 desta guia passe para 2013/10-0002). Teria como? Alguém mais pode ajudar?

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×