Ayuda con código vba excel
Hola amigos me ayudaron con este código que funciona bien, pero quiero cambiar los valores p=13 que haga referencia al valor seleccionado por un combobo (meses) ejemplo:
Enero=01, febrero=02 .... Sucesivamente quedando concatenado asi "050101"
"valor hoja- mes-correlativo"
y
Sub Enumerar_segun_condicion_hoja1()
Dim p As Integer
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
UserForm1.Label1.Caption = h & p & Format(n, "00")
UserForm1.Label1.ForeColor = &HFFFFFF
End Sub
espero me puedan ayudar
Gracias.
1 respuesta
Cambia esto:
p = 13
Por esto
Select Case UserForm1.combobox1
Case "ENERO": p = "01": Case "FEBRERO": p = "02"
Case "MARZO": p = "03": Case "ABRIL": p = "04"
Case "MAYO": p = "05": Case "JUNIO": p = "06"
Case "JULIO": p = "07": Case "AGOSTO": p = "08"
Case "SEPTIEMBRE": p = "09": Case "OCTUBRE": p = "10"
Case "NOVIEMBRE": p = "11": Case "DICIEMBRE": p = "12"
End Select Saludos.Dante Amor
Si es lo que necesitas.
