publicado el 31 de julio10 años Hola, Soy nuevo en macros, y encontré éste archivo de COntrol de Entradas y Salidas. Quisiera saber qué debo cambiar para que funcione la macro SIN que el "código" sea numeral NI correlativo, es decir que reconozca un código alfanumérico. Ejemplo: A2=TS1243X Control Entradas y Salidas Macros.rar
publicado el 1 de agosto10 años Hola Felipe... por lo que he visto ..... el archivo añade una cantidad a entradas o a salidas.... evidentemente "numeros"... No entiendo cual es tu pregunta o tu duda.....
publicado el 2 de agosto10 años Te dejo una función que incrementa cualquier valor a un numerador del tipo: [Parte alfabética] Número [Parte alfabética] por ejemplo: AAA000123XX Las partes alfabéticas son opcionales Función: NewClave(Celda, Incremento) Ejemplo de llamada a la función: ClaveEntrada = NewClave(ActiveCell, 4) ClaveSalida = NewClave(A2, 4)[/CODE] [b][u]Código VBA de la función:[/u][/b] [CODE]Function NewClave(Celda As Range, Incremento As Integer) As String If IsNumeric(Celda.Value) Then NewClave = Celda.Value + Incremento Exit Function End If For i = 1 To Len(Celda.Value) If IsNumeric(Mid(Celda.Value, i, 1)) = True Then Exit For Next For f = Len(Celda.Value) To 1 Step -1 If IsNumeric(Mid(Celda.Value, f, 1)) = True Then Exit For Next n = CStr(CLng(Mid(Celda.Value, i, f - i + 1)) + Incremento) If Len(n) = f - i + 1 Then NewClave = Left(Celda.Value, i - 1) & n & Right(Celda.Value, Len(Celda.Value) - f) Else NewClave = Left(Celda.Value, i - 1) & _ String(f - i + 1 - Len(n), "0") & n & Right(Celda.Value, Len(Celda.Value) - f) End If End Function[/CODE] .
Hola,
Soy nuevo en macros, y encontré éste archivo de COntrol de Entradas y Salidas. Quisiera saber qué debo cambiar para que funcione la macro SIN que el "código" sea numeral NI correlativo, es decir que reconozca un código alfanumérico.
Ejemplo:
A2=TS1243X
Control Entradas y Salidas Macros.rar