Excel planilha vba autonumeracao usando userforms e labels

Sex, 07 de Janeiro de 2011 19:12 Expedito Marcondes
Imprimir

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




Tags:
Última atualização em Sáb, 04 de Agosto de 2012 09:22