Macro para generar código numérico correlativo
Tengo una planilla en la cual estoy trabajando con la siguiente MACRO
Sub Genera()
Dim numConsec As Long
Dim strConsec As String
Range("M1").Select
Selection.NumberFormat = "@"
If IsEmpty(ActiveCell) Then
Range("M1").Value = "00001"
Else
numConsec = Val(Range("M1").Value) + 1
strConsec = Right("00000" & Trim(Str(numConsec)), 5)
Range("M1").Value = strConsec
End If
End Sub
Mi consulta es como puedo hacer para que esta MACRO funcione en todas las hojas del LIBRO(5 hojas, con posibilidad de incrementar), es decir si en la hoja 1 se uso el numero 00001, en la hoja 2 si se ejecuta la MACRO se use el 00002, si vuelvo a la hoja 1 y ejecuto la MACRO se visualice el 00003.
1 Respuesta
Respuesta de James Bond
1
Prueba con esta macro
Sub numeros()
x = 1
For Each Control In Worksheets
numero2 = Sheets(Control.Name).Range("a1").Value
If numero2 <> vbNullString Then numero = Range("a1").Value + Sheets.Count
With Sheets(Control.Name).Range("a1")
.Value = numero
.NumberFormat = "00000"
End With
x = x + 1
Next Control
End Sub
