Númeração Automatica

Tem alguma dica para o uso do Excel? Algum atalho especial? Algum macete? Aqui é o lugar para você compartilhar!

Númeração Automatica

Mensagempor alexandrevba » Dom Nov 25, 2012 2:22 pm

Boa tarde!!

Criando um contador, onde ao selecionar cada linha terá o índice correspondente.
Índice baseado na coluna F
Código: Selecionar todos
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Dim RowOffset As Long
    Dim IndexCol As String
    RowOffset = 0
    IndexCol = "F"
    Intersect(ActiveCell.EntireRow, Columns(IndexCol)).Value = ActiveCell.Row + RowOffset
End Sub


Baixe rquivo em:
http://www.sendspace.com/file/gnqrfx

Att
alexandrevba
 

{ SO_SELECT }

Voltar para Dicas & Macetes

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante