............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Necesito generar un codigo de precios

Ver el tema anterior Ver el tema siguiente Ir abajo

Necesito generar un codigo de precios

Mensaje por Eleovildo el Sáb Nov 28, 2009 10:14 pm

Buenas a todos:
Necesito que dado un costo de un artículo, una macro o una fórmula me transforme ese valor en un
código de letras para al imprimir ese listado no se vea el costo del articulo sino su equivante en letras.

Ejemplo: $51,284 ZLAGI según el código L A P I Z N E G R O
1 2 3 4 5 6 7 8 9 0

De antemano muchas gracias

Eleovildo

Masculino Cantidad de envíos : 6
Edad : 36
Ciudad - Pais : Venezuela
Fecha de inscripción : 16/02/2009

Volver arriba Ir abajo

Re: Necesito generar un codigo de precios

Mensaje por GalileoGali el Dom Nov 29, 2009 8:25 pm

Puedes probar colocando este codigo en un Modulo Standard, invocando la funcion CLAVE, DE LA MISMA MANERA QUE CON CUALQUIER FUNCION DE Excel
por ejemplo: en
A1: 51284
A2: =clave(A1)
Código:
Option Explicit

Function CLAVE(strBase As String) As String
Dim i As Integer

If Len(CStr(strBase)) = 0 Or Not IsNumeric(strBase * 1) Then Exit Function

For i = 1 To Len(strBase)
CLAVE = CLAVE & Mid("LAPIZNEGRO", Mid(CStr(strBase), i, 1), 1)
Next i
End Function

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Necesito generar un codigo de precios

Mensaje por Eleovildo el Lun Nov 30, 2009 12:21 am

Gracias por tu respuesta GalileoGali, la función expuesta en esta macro es justo lo que necesito
salvo por un pequeño detalle:

Si la celda de precios a evaluar tiene un cero la fórmula regresa con #¡VALOR! , puedes
arreglarla ?[/b]

Si no te es molestia y con el fin de no solo comer los peces si no de aprender a pescar[u] pudieras comentar la fórmula.

Mucho te lo agradecería.

Eleovildo

Eleovildo

Masculino Cantidad de envíos : 6
Edad : 36
Ciudad - Pais : Venezuela
Fecha de inscripción : 16/02/2009

Volver arriba Ir abajo

Re: Necesito generar un codigo de precios

Mensaje por GalileoGali el Lun Nov 30, 2009 6:08 am

Código:
Option Explicit


Function CLAVE(strBase As String) As String
Dim i As Integer
Application.Volatile

If Len(CStr(strBase)) = 0 Or Not IsNumeric(strBase * 1) Then Exit Function

For i = 0 To Len(strBase) - 1
CLAVE = CLAVE & Mid("OLAPIZNEGR", Mid(CStr(strBase), i + 1, 1) + 1, 1)
Next i
End Function

De paso probando que es biyectiva...

Código:
Function PRECIO(strBase As String) As Double
Dim i As Integer, cadena As String
Application.Volatile

If Len(strBase) = 0 Then Exit Function

For i = 1 To Len(strBase)
cadena = cadena & InStr(1, "OLAPIZNEGR", Mid(strBase, i, 1)) - 1
Next i
PRECIO = CDbl(cadena)
End Function

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Necesito generar un codigo de precios

Mensaje por Eleovildo el Lun Nov 30, 2009 5:07 pm

Perfecto.......

Muchas gracias por tu ayuda.

Eleovildo

Eleovildo

Masculino Cantidad de envíos : 6
Edad : 36
Ciudad - Pais : Venezuela
Fecha de inscripción : 16/02/2009

Volver arriba Ir abajo

Re: Necesito generar un codigo de precios

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.