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

Necesito generar un codigo de precios

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 : 37
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 : 1963
Edad : 62
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 : 37
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 : 1963
Edad : 62
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 : 37
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

Volver arriba


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