chemaquil

Aquí dejo una Macro de Excel que sirve para convertir una cifra en texto. Copiar y pegar en el Editor de Visual Basic. Una vez guardada, en Excel capturar la función "=conviertenumletra(celda)" en donde celda es la dirección de la celda con el dato numérico.'----Desde Aqui Seleccionar'Macro que permite convertir Numeros a Letras hasta por 999,999,999.99'Procedimiento para Cargar la Macro'Seleccionar y Pegar en el Portapapeles Todo Este Codigo(Con Ctrl-C)'Abrir Libro de Excel Normal'Elegir Herramientas/Macro/Editor de Visualbasic'De la Barra de Menús Elegir Insertar Modulo'Seleccionar el Modulo'Ctrl+V para pegar todo'Grabar en Libro de Excel'y Listo' Forma de llamada en una celda utilizar lo siguiente'=conviertenumletra(celda)Function ConvierteNumLetra(Numero)Dim TextoDim MillonesDim MilesDim CientosDim DecimalesDim CadenaDim CadMillonesDim CadMilesDim CadCientosTexto = NumeroTexto = FormatNumber(Texto, 2)Texto = Right(Space(14) & Texto, 14)Millones = Mid(Texto, 1, 3)Miles = Mid(Texto, 5, 3)Cientos = Mid(Texto, 9, 3)Decimales = Mid(Texto, 13, 2)CadMillones = ConvierteCifra(Millones)CadMiles = ConvierteCifra(Miles)CadCientos = ConvierteCifra(Cientos)If Trim(CadMillones) > "" ThenIf Trim(CadMillones) = "UN" ThenCadena = CadMillones & " MILLON"ElseCadena = CadMillones & " MILLONES"End IfEnd IfIf Trim(CadMiles) > "" ThenCadena = Cadena & " " & CadMiles & " MIL"End IfIf Trim(CadCientos) = "UN" ThenCadena = Cadena & "UN PESO " & Decimales & "/100 M.N."ElseIf Miles & Cientos = "000000" ThenCadena = Cadena & " " & Trim(CadCientos) & " DE PESOS " & Decimales & "/100 M.N."ElseCadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Decimales & "/100 M.N."End IfEnd IfConvierteNumLetra = Trim(Cadena)End FunctionFunction ConvierteCifra(Texto)Dim CentenaDim DecenaDim UnidadDim txtCentenaDim txtDecenaDim txtUnidadCentena = Mid(Texto, 1, 1)Decena = Mid(Texto, 2, 1)Unidad = Mid(Texto, 3, 1)Select Case CentenaCase "1"txtCentena = "CIEN"If Decena & Unidad <> "00" ThentxtCentena = "CIENTO"End IfCase "2"txtCentena = "DOSCIENTOS"Case "3"txtCentena = "TRESCIENTOS"Case "4"txtCentena = "CUATROCIENTOS"Case "5"txtCentena = "QUINIENTOS"Case "6"txtCentena = "SEISCIENTOS"Case "7"txtCentena = "SETECIENTOS"Case "8"txtCentena = "OCHOCIENTOS"Case "9"txtCentena = "NOVECIENTOS"End SelectSelect Case DecenaCase "1"txtDecena = "DIEZ"Select Case UnidadCase "1"txtDecena = "ONCE"Case "2"txtDecena = "DOCE"Case "3"txtDecena = "TRECE"Case "4"txtDecena = "CATORCE"Case "5"txtDecena = "QUINCE"Case "6"txtDecena = "DIECISEIS"Case "7"txtDecena = "DIECISIETE"Case "8"txtDecena = "DIECIOCHO"Case "9"txtDecena = "DIECINUEVE"End SelectCase "2"txtDecena = "VEINTE"If Unidad <> "0" ThentxtDecena = "VEINTI"End IfCase "3"txtDecena = "TREINTA"If Unidad <> "0" ThentxtDecena = "TREINTA Y "End IfCase "4"txtDecena = "CUARENTA"If Unidad <> "0" ThentxtDecena = "CUARENTA Y "End IfCase "5"txtDecena = "CINCUENTA"If Unidad <> "0" ThentxtDecena = "CINCUENTA Y "End IfCase "6"txtDecena = "SESENTA"If Unidad <> "0" ThentxtDecena = "SESENTA Y "End IfCase "7"txtDecena = "SETENTA"If Unidad <> "0" ThentxtDecena = "SETENTA Y "End IfCase "8"txtDecena = "OCHENTA"If Unidad <> "0" ThentxtDecena = "OCHENTA Y "End IfCase "9"txtDecena = "NOVENTA"If Unidad <> "0" ThentxtDecena = "NOVENTA Y "End IfEnd SelectIf Decena <> "1" ThenSelect Case UnidadCase "1"txtUnidad = "UN"Case "2"txtUnidad = "DOS"Case "3"txtUnidad = "TRES"Case "4"txtUnidad = "CUATRO"Case "5"txtUnidad = "CINCO"Case "6"txtUnidad = "SEIS"Case "7"txtUnidad = "SIETE"Case "8"txtUnidad = "OCHO"Case "9"txtUnidad = "NUEVE"End SelectEnd IfConvierteCifra = txtCentena & " " & txtDecena & txtUnidadEnd Function'----Seleccionar Hasta Aquí