Ayuda con código vba excel
Hola amigos espero me puedan ayudar. Tengo este código para una numeración correlativa
Sub Enumerar_segun_condicion_hoja1()
On Error Resume Next
If Range("B65536").End(xlUp).Value = "" Or Not IsNumeric(Range("B65536").End(xlUp).Value) Then
UFDiario.xLabel3.Caption = 1
Else
UFDiario.xLabel3.Caption = Range("B65536").End(xlUp) + 1
End If
UFDiario.xLabel3.ForeColor = &HFFFFFF
End Sub
pero necesito que la numeración identifique dos criterios:
hoja1=05
hoja2=06
periodo=2013
Ejemplo: si comienza registrando en la hoja1, iniciaría con"051301",segundo registro con"051302"
En caso de la hoja2, el correlativo seria"061301"...,"061302".....asi sucesivamente
espero me puedan ayudar
Gracias.
1 respuesta
No sé muy bien cómo sabes si comienza en la hoja1 o en la hoja2, pero te pongo un ejemplo, la macro quedaría así:
Sub Enumerar_segun_condicion_hoja1()
On Error Resume Next
If Range("B65536").End(xlUp).Value = "" Or Not IsNumeric(Range("B65536").End(xlUp).Value) Then
n = 1
Else
n = Range("B65536").End(xlUp) + 1
End If
Select Case ActiveSheet.Name
Case "Hoja1": h = "05"
Case "Hoja2": h = "06"
End Select
p = 13
UFDiario.xLabel3.Caption = h & p & Format(n, "00")
UFDiario.xLabel3.ForeColor = &HFFFFFF
End SubSaludos.Dante Amor
Si es lo que necesitas.
