Saludos. Estoy enfrentando un inconveniente en mi código VBA. Al cargar los datos en la hoja "Recibo", la información se traslada correctamente a la hoja "Historico", ubicándose en las celdas correspondientes sin problemas. Sin embargo, al momento de imprimir el Recibo, la celda correspondiente a "Saldo Anterior" (que debería conservar su valor original) muestra el monto actual del "Saldo", lo cual es incorrecto. Agradecería orientación para evitar que esa celda sea modificada antes o durante la impresión.
Recibo Inmobiliaria 1.xlsm
Por
dorgelis, · publicado
Hola a todos, espero que este recurso les sea útil.
Se trata de una función construída para extraer la parte numérica de un domiclio.
(Quise subir el archivo, pero siendo con extensión .xlsx, me lo ha rechazado)
Puede copiarse y pegarse en un módulo nuevo.
La función es la siguiente:
Function Numero(domicilio As String) As Integer
'EXTRAE DE UN DOMICILIO SU PARTE NUMÉRICA (numeración de la Calle)
Dim pos As Byte ' variable que representa cada caracter en el domicilio
Dim texto As String
texto = Replace(domicilio, " ", ",") 'Al reemplazar espacios por comas (o cualquier otro caracter)
'se evita que el nro de piso o departamento sea
'interpretado como parte del número.
For pos = 1 To Len(texto) 'Recorre el texto del domicilio con comas entre palabras
If Not (Val(Mid(texto, pos)) = 0) Then 'Cuando encuentra texto, Val es CERO
Numero = Val(Mid(texto, pos)) ' La función Val lée solamente los números
GoTo fin ' Flag para evitar que recorra el resto, y que fuera reduciéndose
' el resultado hasta alcanzar el último carácter del domicilio
End If
Next pos
fin: 'Flag
End Function
Para probarla, escribamos domicilios y en la columna inmediata derecha la fórmula: Numero(argumento)
DOMICILIO ALTURA
San Martin 510 510
523 Ashley Road 34 523
Las Américas 345 3er piso 345
Saludos!