[EXCEL] Numeração automática ao imprimir

[F0rbIz0n]

Tem algum modo de alguma cédula somar 1 a cada impressão, ou seja, eu mandar imprimir 100 por exemplo e em cada impressão o campo girar um numerador? Entenderam?

[DanW]

Tem... com VBA.

[DanW]

Shazam!

Entre no modo Visual Basic, clique duas vezes em "EstaPasta_de_trabalho" e cole o seguinte código:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim col, lin As Integer
    
    col = 0
    lin = 0
    
    Dim sheet As Worksheet
    
    sheet = Application.ActiveSheet
    
    sheet.Cells(lin, col).Value = sheet.Cells(lin, col).Value + 1

End Sub

Substitua os índices "col" e "lin" pelos da célula que você quer modificar.
Acho que isso resolve o seu problema!

[F0rbIz0n]

Hum, vo testar depois, será que funciona pra qualquer office, desde o xp até o 2007?

[DanW]

Acho que sim. O que uso aqui no trabalho é o 2000.

[fabio.finn]

Shazam!

Entre no modo Visual Basic, clique duas vezes em "EstaPasta_de_trabalho" e cole o seguinte código:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim col, lin As Integer
    
    col = 0
    lin = 0
    
    Dim sheet As Worksheet
    
    sheet = Application.ActiveSheet
    
    sheet.Cells(lin, col).Value = sheet.Cells(lin, col).Value + 1

End Sub

Substitua os índices "col" e "lin" pelos da célula que você quer modificar.
Acho que isso resolve o seu problema!

amigo,
usei seu código e substitui col e lin pelas celulas correspondentes
ficou assim:
sheet.Cells(1, A).Value = sheet.Cells(1, A).Value + 1
tentei só com numeros tb:
sheet.Cells(1, 1).Value = sheet.Cells(1, 1).Value + 1

ele acusa o seguinte erro:
Erro em tempo de execução '91':
A variável do objeto ou a variável do bloco 'With' não foi definida

desculpa se estou fazendo alguma bobagem, estou começando no vb agora
agradeço desde já a ajuda de vcs!
obrigado e abraço!

[fabio.finn]

este código deu certo:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim sheet As Worksheet

Set sheet = Application.ActiveSheet

sheet.Cells(7, 6).Value = sheet.Cells(7, 6).Value + 1
sheet.Cells(7, 7).Value = sheet.Cells(7, 7).Value + 1
sheet.Cells(8, 6).Value = sheet.Cells(8, 6).Value + 1
sheet.Cells(8, 7).Value = sheet.Cells(8, 7).Value + 1
sheet.Cells(9, 6).Value = sheet.Cells(9, 6).Value + 1
sheet.Cells(9, 7).Value = sheet.Cells(9, 7).Value + 1
sheet.Cells(10, 6).Value = sheet.Cells(10, 6).Value + 1
sheet.Cells(10, 7).Value = sheet.Cells(10, 7).Value + 1

End Sub

mas o que acontece:
a minha idéia é fazer um numerador.
com esse código, quando eu mando imprimir, ele aumenta 1, e se eu mandar imprimir 5 folhas, ele vai imprimir as 5 com o mesmo número.
eu queria saber se daria pra fazer o seguinte:
ele incrementar 1 a cada folha que fosse imprimir.
teria como?
desde já agradeço.