Jump to content

desplegable en una factura


canasta

Recommended Posts

Respuesta: desplegable en una factura

gracias DJPAWNGDL, ya me sale todos concepto con su precio, pero yo digo, no se puede quitar el cero que sale en la celda varcia, para que no salga en la factura si no se completa todos sus reglones, o hay otra forma de imprimir la factura, yo lo hago directamente cuando termino de anotar todos los datos.

Link to comment
Share on other sites

Respuesta: desplegable en una factura

gracias DJPAWNGDL, ya me sale todos concepto con su precio, pero yo digo, no se puede quitar el cero que sale en la celda varcia, para que no salga en la factura si no se completa todos sus reglones, o hay otra forma de imprimir la factura, yo lo hago directamente cuando termino de anotar todos los datos.

checa las formulas, colo tienes que ocultar la columna en donde estan los ceros y en la de la derecha usar esta formula condicional =si

ejemplo factura.zip

Link to comment
Share on other sites

Respuesta: desplegable en una factura

DJPAWNGDL, he logrado con la formula que me diste que la columna de los "IMPORTE", me salga en blanco si esta vacia, pero tambien quisiera que la columna de "PRECIO", me salga vacia, en vez de "CERO" (0)., si no se puede lo dejaré así, y lo daré por terminado, agradeciendo a todos lo que me han ayudado,

saludos.

Link to comment
Share on other sites

Respuesta: desplegable en una factura

DJPAWNGDL, he logrado con la formula que me diste que la columna de los "IMPORTE", me salga en blanco si esta vacia, pero tambien quisiera que la columna de "PRECIO", me salga vacia, en vez de "CERO" (0)., si no se puede lo dejaré así, y lo daré por terminado, agradeciendo a todos lo que me han ayudado,

saludos.

intenta con esto, ve eliminando lo que no te srive y cuando ya tengas las formulas como lo necesitas empieza tu proyecto desde cero para que tu libro no este tan cargado

ejemplo factura.zip

Link to comment
Share on other sites

Respuesta: desplegable en una factura

acabo de colocar el archivo que me enviarte, per al hacer alguna pruebas, me falla algunas cantidades, hay momento que me quita en lo decimales un centimo, es decir pongo:

55,40 me sale 55,39

87,10 " " 87,09 y así alguna mas.

por favor revisalo.

También hehecho la prueba en tu mismo archivo y pongo las cantidades y me sale igual.

Link to comment
Share on other sites

Respuesta: desplegable en una factura

Hola.

Prueba este codigo:

Function EnLetras(Valor, Optional ByVal Tipo As Byte = 1) As String '
'Funcion Principal '
If Not IsNumeric(Valor) Then
EnLetras = "¡ La referencia no es valor o... 'excede' la precisión": Exit Function
End If: Dim Moneda As String, Fracs As String, Cents As Integer
Moneda = " euros"
If Right(Letras(Abs(Int(Valor))), 6) = "illón " Or _
Right(Letras(Abs(Int(Valor))), 8) = "illones " Then Moneda = "de" & Moneda
Cents = Application.Round(Abs(Valor) - Int(Abs(Valor)), 2) * 100
If Cents = 1 Then Fracs = " centimos" Else Fracs = " centimos"
If Cents = 0 Then Fracs = "" Else Fracs = " con " & Letras(Cents) & Fracs
EnLetras = Letras(Int(Abs(Valor))) & Moneda & Fracs
If Valor < 0 Then EnLetras = "menos " & EnLetras
If Tipo = 2 Then EnLetras = UCase(EnLetras) ' TODO EN MAYUSCULAS '
If Tipo = 3 Then EnLetras = StrConv(EnLetras, vbProperCase) ' Todo Como
'Nombre Propio '
If Tipo = 4 Then EnLetras = UCase(Left(EnLetras, 1)) & Mid(EnLetras, 2)
End Function

Private Function Letras(Valor) As String ' Función Auxiliar [uso
'exclusivo' de la funcion 'principal'] '
Select Case Int(Valor)
Case 0: Letras = "cero"
Case 1: Letras = "un"
Case 2: Letras = "dos"
Case 3: Letras = "tres"
Case 4: Letras = "cuatro"
Case 5: Letras = "cinco"
Case 6: Letras = "seis"
Case 7: Letras = "siete"
Case 8: Letras = "ocho"
Case 9: Letras = "nueve"
Case 10: Letras = "diez"
Case 11: Letras = "once"
Case 12: Letras = "doce"
Case 13: Letras = "trece"
Case 14: Letras = "catorce"
Case 15: Letras = "quince"
Case Is < 20: Letras = "dieci" & Letras(Valor - 10)
Case 20: Letras = "veinte"
Case Is < 30: Letras = "veinti" & Letras(Valor - 20)
Case 30: Letras = "treinta"
Case 40: Letras = "cuarenta"
Case 50: Letras = "cincuenta"
Case 60: Letras = "sesenta"
Case 70: Letras = "setenta"
Case 80: Letras = "ochenta"
Case 90: Letras = "noventa"
Case Is < 100: Letras = Letras(Int(Valor \ 10) * 10) & " y " & Letras(Valor Mod 10)
Case 100: Letras = "cien"
Case Is < 200: Letras = "ciento " & Letras(Valor - 100)
Case 200, 300, 400, 600, 800: Letras = Letras(Int(Valor \ 100)) & "cientos"
Case 500: Letras = "quinientos"
Case 700: Letras = "setecientos"
Case 900: Letras = "novecientos"
Case Is < 1000: Letras = Letras(Int(Valor \ 100) * 100) & " " & Letras(Valor Mod 100)
Case 1000: Letras = "mil"
Case Is < 2000: Letras = "mil " & Letras(Valor Mod 1000)
Case Is < 1000000: Letras = Letras(Int(Valor \ 1000)) & " mil"
If Valor Mod 1000 Then Letras = Letras & " " & Letras(Valor Mod 1000)
Case 1000000: Letras = "un millón "
Case Is < 2000000: Letras = "un millón " & Letras(Valor Mod 1000000)
Case Is < 1000000000000#: Letras = Letras(Int(Valor / 1000000)) & " millones "
If (Valor - Int(Valor / 1000000) * 1000000) _
Then Letras = Letras & Letras(Valor - Int(Valor / 1000000) * 1000000)
Case 1000000000000#: Letras = "un billón "
Case Is < 2000000000000#
Letras = "un billón " & Letras(Valor - Int(Valor / 1000000000000#) * 1000000000000#)
Case Else: Letras = Letras(Int(Valor / 1000000000000#)) & " billones "
If (Valor - Int(Valor / 1000000000000#) * 1000000000000#) _
Then Letras = Letras & " " & Letras(Valor - Int(Valor / _
1000000000000#) * 1000000000000#)
End Select
End Function[/CODE]

Luego utiliza la función:

=EnLetras(celda_del_numero)

Saludos.

Link to comment
Share on other sites

Respuesta: desplegable en una factura

:):) Gracias Toldeman, ahora si me está saliendo bastante bien, todas las pruebas que he ido haciendo han salido satifactoriamente bien.

Ahora quisiera hacer otra pregunta sobre lo mismo, cuando una cantida es grande, no cabe en el mismo reglón, hay alguna forma que continue en otro reglón.

Si no la hay, dimelo para poner como solucionado esta "Ayuda que solicité".

:):):):)

Link to comment
Share on other sites

  • 2 weeks later...

Respuesta: SOLUCIONADO EL desplegable en una factura

:):) Gracias Toldeman, ahora si me está saliendo bastante bien, todas las pruebas que he ido haciendo han salido satifactoriamente bien.

Ahora quisiera hacer otra pregunta sobre lo mismo, cuando una cantida es grande, no cabe en el mismo reglón, hay alguna forma que continue en otro reglón.

Si no la hay, dimelo para poner como solucionado esta "Ayuda que solicité".

:):):):)

Ya se ha solucionado el problema que tenía. muchas gracias a todos los que me ayudaron.

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy