Númerador automátic...
 
Notifications
Clear all

Númerador automático

9 Posts
2 Usuários
0 Reactions
1,243 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, boa noite!

Preciso de uma ajuda.

Seria possivel criar um código que gere um númerador automatico.

Ou seja, toda vez que eu criar uma nova ABA, o nava ABA gere sua própria sequencia.

Seguindo este formato 001/2018

Obrigado a todos.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/03/2018 4:18 pm
(@klarc28)
Posts: 971
Prominent Member
 

Não é possível usar barra no nome da guia.

Sub Macro1()
'
' Macro1 Macro
'

'
Dim num As Integer
num = ThisWorkbook.Sheets.Count + 1
    Sheets.Add After:=ActiveSheet
    'Sheets("Plan2").Select
    ActiveSheet.Name = "00" & num & "-" & Year(Date)
    
End Sub
 
Postado : 18/03/2018 4:23 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Klarc28, boa noite!

Desculpe mais eu me expressei errado.

Na verdade eu preciso do numerador dentro da planilha, tipo na célula H3.

Assim sim a cada nova aba, o numerador gere seu próprio número.

Me desculpe, rsrsrsrsr.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/03/2018 5:02 pm
(@klarc28)
Posts: 971
Prominent Member
 
Sub Macro1()
'
' Macro1 Macro
'

'
Dim num As Integer
num = ThisWorkbook.Sheets.Count + 1
    Sheets.Add After:=ActiveSheet
    'Sheets("Plan2").Select
    ActiveSheet.Range("H3").Value = "00" & num & "/" & Year(Date)
   ' ActiveSheet.Name = "00" & num & "-" & Year(Date)
    
End Sub
 
Postado : 18/03/2018 5:13 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite Klarc28,

Tudo bem?

Estou disponibilizando o arquivo para um melhor entendimento.

Preciso que a cada novo arquivo (plan1,Plan2,Plan3,....) a célula J1 (sombreada na cor amarela) faça sua própria autonumeração.

É possível fazer através uma macro e/ou vba?

Obrigado mais uma vez pela atenção.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/03/2018 3:56 pm
(@klarc28)
Posts: 971
Prominent Member
 

O numerador vai seguir a ordem em que estão as abas, da esquerda para a direita.
Se você alterar a posição da aba, altera a numeração de todas as abas.
Vai ser acionado o código quando adicionar uma aba ou quando ativar uma aba.

Option Explicit



Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    Dim num As Integer
    For num = 1 To ThisWorkbook.Sheets.Count
        
        If num < 10 Then
            Sheets(num).Range("J1").Value = "00" & num & "/" & Year(Date)
        ElseIf num < 100 Then
            Sheets(num).Range("J1").Value = "0" & num & "/" & Year(Date)
            
        Else
            Sheets(num).Range("J1").Value = num & "/" & Year(Date)
            
        End If
    Next num
End Sub

 
Postado : 25/03/2018 7:23 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Klarc28, boa tarde!

Desculpa me demora em responder. Rsrsrsrsr

Ficou quase pronto aqui, o problema é que minha planilha deverá seguir a ordem da direita para esquerda.

É possível fazer um ajuste no código?

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/03/2018 11:00 am
(@klarc28)
Posts: 971
Prominent Member
 
Option Explicit



Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    Dim num As Integer
    Dim I As Integer
    num = 0
    For I = ThisWorkbook.Sheets.Count To 1 Step -1
        num = num + 1
        If num < 10 Then
            Sheets(I).Range("J1").Value = "00" & num & "/" & Year(Date)
        ElseIf num < 100 Then
            Sheets(I).Range("J1").Value = "0" & num & "/" & Year(Date)
            
        Else
            Sheets(I).Range("J1").Value = num & "/" & Year(Date)
            
        End If
    Next I
End Sub

 
Postado : 31/03/2018 11:14 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Klarc28,

Muito obrigado pela solução.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/03/2018 11:33 am