Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » como puedo lograr que num se incremente

Excel - como puedo lograr que num se incremente

Volver
Nuevo Tema
<<>>
 
Vista:

como puedo lograr que num se incremente

Publicado por Daniel (1 intervención) el 25/08/2023 00:47:41
Private Sub TextCodigo_Change()
num = num + 1
Dim mcar As Long
mcar = Len(Me.TextCodigo)

Select Case mcar

Case 1
Me.TextCodigo = Me.TextCodigo & "-"
Case 5
Me.TextCodigo = Me.TextCodigo & "-"
Case 9
Me.TextCodigo = Me.TextCodigo & "-"
Case 13
Me.TextCodigo = Me.TextCodigo & "-"
Case 14
Me.TextCodigo = Me.TextCodigo & num

End Select

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

como puedo lograr que num se incremente

Publicado por Antoni Masana (2478 intervenciones) el 25/08/2023 17:56:31
Poner un código y no explicar que se desea hacer es como poner la cazuela con agua a calentar sin encender el fuego.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub TextCodigo_Change()
    num = num + 1
    Dim mcar As Long
    mcar = Len(Me.TextCodigo)
 
    Select Case mcar
        Case 1
            Me.TextCodigo = Me.TextCodigo & "-"
            Case 5
            Me.TextCodigo = Me.TextCodigo & "-"
        Case 9
            Me.TextCodigo = Me.TextCodigo & "-"
        Case 13
            Me.TextCodigo = Me.TextCodigo & "-"
        Case 14
            Me.TextCodigo = Me.TextCodigo & num
    End Select
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar