SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

Saberexcel - o site das macros

Esses procedimentos do Aplicativo Microsoft Excel VBA, insere uma autonumeração, com uso de objetos Userforms e Labels, isto é retorna num Label(Rótulo) uma autonumeração.

Option Explicit

Private Sub cmbOK_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim rgNr As Range
Set rgNr = ActiveWorkbook.Worksheets("Plan1").Range("A1")
rgNr.Value = rgNr + 1
Label_OrdemNr.Caption = CStr(rgNr.Value)
End Sub

'Label_OrdemNr. é um Label



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel