Free Microsoft Excel 2013 Quick Reference

Combinar y Centrar con un Botón de Cambio en Excel 2002 y Excel 2003

En Excel 2002 y Excel 2003, el icono Combinar y centrar funciona como un botón de cambio, lo cual significa que se puede seleccionar o deseleccionar la función haciendo clic sobre el icono.


Menú Archivo:

* Excel 2002: Buscar, y un Nuevo icono Buscar en la barra de herramientas Estándar.
* Excel 2003: Buscar Archivo. El icono Buscar Archivo no aparece en la barra de herramientas Estándar, pero puede ser agregada desde el menú Herramientas > Personalizar en la pestaña Comandos.
* Excel 2003: Permiso. Para más detalles ir a www.microsoft.com y buscar IRM – Information Rights Management.
* Menú Ver:
* Excel 2002: Panel de Tareas
* Excel 2003: Panel de Tareas y el nuevo método abreviado

* Menú Herramientas:
Excel 2003: Refe rencia y el nuevo método abreviado
* Excel 2002 & Excel 2003: Comprobación de Errores

* Excel 2002 & Excel 2003: Voz
* Excel 2002 & Excel 2003: EuroConversión
* Menú Datos:
* Excel 2003: Lista y el Nuevo método abreviado
* Excel 2003: XML .

Menú Ventana:

* Excel 2003: Comparar en paralelo con... Esta nueva característica mejora la opción Organizar del menú.
* Menú Ayuda:
* Excel 2003: Póngase en contacto con nosotros
- Excel 2003: Buscar actualizaciones (conecta a internet para buscar actualizaciones de Microsoft Office).

* Menú contextual de celdas (clic derecho)
* Excel 2002 & 2003: Agregar Inspección
* Excel 2003: Crear Lista
 Excel 2003: Buscar (ver Referencia más arriba en el menú Herramientas (¿Por qué se llaman diferente..? ¡No tengo respuesta!)

Buenas tardes, espero me puedan ayudar con la sgte. consulta, ya la habia hecho en otro foro sin respuestas o comentarios, a la espera de sus buenos consejos.

Se puede hacer una macro que informe en una hoja llamemosle HOJA REPORTE las hojas que se han impreso de un libro, donde indique el día q se imprimio tal hoja, la cantida de veces que se imprimio y la hora de la impresión, de antemano gracias por sus comenntarios, este libro tendra aproximadamente unas 70 hojas.

Un buen amigo me paso la sgte macro días despúes de mi consulta, la he probado pero me salen errores no se cual sea el problema, espero me puedan dar la mano

Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean) 

Dim anombre As String 
Dim hojaa As Object 

For Each hojaa In ActiveWindow.SelectedSheets 
anombre = anombre & "," & hojaa.Name 
'Exit For 
Next 
'Si hay varias hojas seleccionadas se van a imprimir todas ellas. 
'En la variable "anombre" se memorizan los nombres de todas esas 
hojas seleccionadas (que se imprimen) 
'--------------- 

Select Case InputBox("Indica por favor tu clave de acceso.", 
"Privilegios del impresor...") 

'Aquí indica la clave tuya y la clave de la persona a la que 
autorices. La persona autorizada sólo conoce su clave: por ejemplo 
"clave222"; no conoce tu clave. 
Case "clave111", "clave222" 

MsgBox "Clave aceptada. Iniciando proceso..." 

'Aquí registrará en la Hoja7, en la columna "A", y en la 
primera fila que encuentre libre, el nombre de la hoja activa que será la que 
se imprime 
'y en la misma fila y siguiente columna te registrará el dia y 
la hora de la impresión. 

Sheets("Hoja7").Range("A45000").End(xlUp).Offset(1, 0) = 
ActiveSheet.Name 
Sheets("Hoja7").Range("A45000").End(xlUp).Offset(0, 1) = Now 

'aquí se anotan las hojas selecionadas por ejemplo: " 
,Hoja2,Hoja3,Hoja5" 
Sheets("Hoja7").Range("A45000").End(xlUp).Offset(0, 2) = 
anombre 


Case Else 
MsgBox "Necesitas la clave correcta.", , "Clave rechazada..." 
Cancel = True 
End Select 

End Sub


El siguiente código no me está funcionando (el valor de .Max no se está cambiando):

Worksheets(Neg).Activate

With ActiveSheet.Shapes(Neg & "_Bot1").ControlFormat
.Max = dias
.SmallChange = 1
End With

With ActiveSheet.Shapes(Neg & "_Bot2").ControlFormat
.Max = dias
.SmallChange = 1
End With

Neg y dias tienen valores correctos (ya verifiqué).

y el siguiente código (modificación del código generado con el grabador de macros), tampoco funciona:

Worksheets(Neg).Select ' Activate?

ActiveSheet.Shapes(Neg & "_Bot1").Select
With Selection
.Max = dias
.SmallChange = 1
End With

ActiveSheet.Shapes(Neg & "_Bot2").Select
With Selection
.Max = dias
.SmallChange = 1
End With

Este código (exactamente igual) funciona perfecto en otro libro. Cual será mi problema?.

Estoy trabajando con un botón "spinner" de la barra de herramientas de formularios , ya que corriendo un código que encontré en MrExcel, ví que algunas de sus propiedades son:

Shape FormControltype =9
Shape Type = 8
Shape Autoshapetype = -2

No sé si esta nformación será util, pero debo aclarar que la hoja de cálculo que contiene el spinner que nofunciona , es una copia de la hoja de cálculoque contiene el spinner que funciona correctamente.

Muchas gracias por su ayuda.

Caliche

El presente tiene por objeto poner en su consideración un archivo
desarrollado en Microsoft Excel por mi persona, que incluye 5 hojas
electrónicas, cuyo principal objetivo es hacer las veces de un Sistema de
Contabilidad para registrar los diferentes movimientos contables que se
pueden dar en una pequeña o mediana empresa.

Según tengo conocimiento, Microsoft en sus distintas versiones de Excel ha
ido incorporando archivos muy útiles listos para beneficio de los usuarios
tal el caso de:

Factura
Hoja de Balance
Informe de gastos
Amortización de préstamo

Es mi intención colaborar en este sentido con Microsoft para ver la
posibilidad de negociar e incorporar este archivo en futuras versiones de
Excel, el nombre sugerido para este archivo puede ser: Contable, considero
que puede ser de mucha utilidad para las pequeñas y medianas empresas y los
profesionales contables.

Al momento dispongo de los documentos que me acreditan como autor del
archivo y estoy listo para cualquier entrevista o inquietud que tengan a
cerca del mismo. Cualquier respuesta por favor envÃ*en a:

Nuevas opciones en el menú principal, en el menú contextual de las celdas y nuevos métodos abreviados:

* En el menú Archivo: Buscar Archivo y Permiso..
* En el menú Ver: Método abreviado
* En el menú Herramientas: Referencia (también mediante el método abreviado
* En el menú Datos: Lista (también mediante el método abreviado
* En el menú Ventana: Comparar en paralelo con..
* En el menú Ayuda: Póngase en contacto con nosotros y Buscar actualizaciones.
* En el menú contextual de las celdas (botón derecho sobre una celda): Crear Lista y Buscar.
* Nuevos métodos abreviados:
Para más detalles sobre los nuevos agregados, ver página viii.
* Paneles de Tarea Expandibles (para más detalles, ver Consejo #92)
Los Paneles de Tareas eran nuevas funcionalidades en el Excel 2002, y han sido mejorados en el Excel 2003. Hay ahora 11 Paneles de Tareas, siendo los nuevos:
* Panel de Tareas Inicio
* Ayuda
* Resultados de la búsqueda
* Ayuda de Plantilla
* Área de trabajo compartida
* Actualizaciones de documentos
* Origen XML

AutoFiltro

* Nuevas opciones de la Función Subtotales
La función Subtotales tiene las siguientes nuevas opciones:
* Dos nuevas funciones estadísticas: VAR y VARP.
* La función Subtotales devuelve el valor de celdas ocultas (cuando se utiliza AutoFiltro, Subtotales y técnicas de Consolidación Utilizando Enlaces) en dos formatos, incluyendo valores ocultos o ignorándolos.

Soporte XML

Puede importar o exportar datos XML en cualquier esquema.
El soporte XML permite:
* Exponer sus datos a procesos externos en un vocabulario XML centrado en los negocios.
* Organizar y trabajar con libros de trabajo y datos en formas que antes eran imposibles o sumamente dificultosas. Utilizando sus esquemas XML, usted ahora puede identificar y extraer porciones específicas de datos de negocios de documentos ordinarios de negocios.
* Adjunte un esquema XML a cualquier libro de trabajo utilizando la opción Origen XML para mapear las celdas como elementos del esquema. Una vez mapeados los elementos XML de su pagina, podrá continuamente importar y exportar datos XML desde y hacia las celdas mapeadas.
Para utilizar XML, seleccione XML dentro del menú Datos.

Hola a todos,
A ver si alguién más experto me puede orientar.
Estoy intentando hacer algo tipo "semaforo" y con la función que existe en Excel de "Formato Condicional" no me funciona.
Os explico un poco la idea, según el valor de una celda (porcentajes) me gustaría que en otra celda me ponga un color (Verde, amarillo o rojo) según si se cumplen los valores, como si es > X un color, si está entre otro color, y si

necesito elaborar un formulario y dejarlo como plantilla para posteriores
utilizaciones y que me actualice una base de datos en Excel.
con excel 2000 se hace fácilmente con el asistente de plantillas pero en
excel 2003 no he podido encontrar dicho asistente, me pueden por favor
indicarme como lo encuentro o puedo bajarlo de la web?

La Ventana Inspección (nueva en Excel 2002 y Excel 2003) contiene importante información, tal como Nombre del Libro, Nombre de la Hoja, Nombre definido, Valor y Fórmula. Celdas específicas pueden ser agregadas de manera tal que su información pueda ser vista en cualquier momento, aún cuando esté ubicada fuera del área visible.

Para agregar celdas a la Ventana Inspección:

1.Seleccione una celda, presione
2.En el cuadro de diálogo Ventana Inspección, haga clic en el botón Agregar inspección, y luego presione

Para ver información sobre una celda agregada a la Ventana Inspección:

1.Seleccione una celda, presione
2.Haga doble clic sobre la dirección de la celda en la Ventana Inspección.

Mi problema es el siguiente:
Tengo un ComboBox con una serie de valores y aparecen con un tamaño de texto muy pequeño. A pesar de redimensionar el tamaño del combo, el texto permanece igual. ¿Cómo lo puedo solucionar?

Excel 2002 y Excel 2003 tienen funcionalidades expandidas del icono pegar.

Acceda a las siguientes tareas haciendo clic sobre la flecha a la derecha del icono:
* Pegar Formulas
* Pegar Valores
* Pegar Sin Bordes
* Transponer
* Pegar Vínculos
* Abrir el cuadro de diálogo Pegado Especial.

Actualmente estoy escribiendo algunas macros con el fin de obtener información sobre los archivos que hay en un determinado directorio. Quiero extraer a un archivo Excel la información relacionada con: Nombre del archivo, tamaño, ruta completa, fecha de la última actualización y Propietario. He trabajado con código tomado de Fred Cumming en www.netspace.net.au el cual me da toda la información que necesito, excepto el propietario. Traté de trabajar con código colocado por TsTom en MrExcel.com (Octubre 6, 2002) en respuesta a la solicitud “Extracting file information: Icon and Ownership” pero tuve dos problemas:

1) La ruta

http://www.vb2themax.com/Item.asp?Pa...Cat=140&ID=396

ya no existe.

2) Cuando copio el código de TsTom a un modulo VBA, instrucciones tales como

Private Declare Function GetFileSecurity Lib "advapi32.dll" Alias _

"GetFileSecurityA" (ByVal lpFileName As String, ByVal RequestedInformation _

As Long, pSecurityDescriptor As Byte, ByVal nLength As Long, _

lpnLengthNeeded As Long) As Long

y algunas otras aparecen resaltadas en rojo (error de compilación “Se esperaba una constante de cadena”).

Cual será mi problema? Es necesario hacer referencia a alguna librería en especial?. Debo admitir que no he trabajado con APIs y que su ayuda será fundamental para mí.

Esta es una aplicación bastante común y muy seguramente alguien la habrá desarrollado. Si este es el caso, le agradecería sus aportes.

Muchas gracias por su ayuda.

Caliche.

NOTAS:
Esta solicitud ya fue colocada en el foro en Inglés, pero desafortunadamente no he obtenido respuesta.

Estoy trabajando en ambiente Office XP.

Saludos amigos.

Ojalá y alguien pueda darme luz...

Con ayuda obtenida en este foro, desarrollé un archivo automatizado en la versión excel 2003 (SP3).

Se distribuyó a oficinas al interior del país en la empresa donde trabajo...

Pero resulta que los excel donde ha sido instalado varian por todas las versiones (97, 2000, 2002, 2003 y 2007), lo cual no previ...

Por ello, para hacerlo compatible hacia atras, he tenido que suprimir algunas lineas que hacen referencia a propiedades no disponibles en controles y así...

Sin embargo hay un caso que no he podido resolver y me tiene loco...

Se trata de dos áreas donde utilizan office 2002 XP e instalaron el archivo automatizado, pero ocurre que si dan un clic a un botón de comando (que normalmente carga un formulario), no se ejecuta el código... si dan clic doble, en lugar de invocar al formulario, se muestra la ventana del editor de VB...

Lamentablemente, no tengo la posibilidad de trasladarme para verlos en persona. Están en otras ciudades...

Será el antivirus de las PC? (fueron entregados via FTP) y se revisaron las opciones:

Herramientas | Macros | Seguridad ... Nivel de seguridad Medio

Herramientas | Macros | Seguridad | Editores de confianza ... Confiar..., Confiar...

Alguien ha sabido de algo así?

Bueno he ahí, gracias anticipadas.

Gente, se que hay una función de Excel que de un determinado rango de números elige la combinación exacta para llegar a otro número. Es decir, que si yo quiero componer el número 100 y el mismo no está en el rango de números que tengo el excel me dice cuales debo sumar para llegar a dicho valor.
Si alguno tiene idea de cual es la función estaría muy agradecido de que me la digan, puesto que no la puedo encontrar.
Muchas Gracias,
Johny

Tendo dos columnas, en una de ellas nombre del balneario, y en la otra tipo de agua que tiene, puede tener más de un tipo de agua, por lo tanto el nombre del balneario estará repetido tantas veces como tipos de agua tenga.
Lo que necesito es una función que me diga si el balneario tiene un tipo de agua o no,
lo he intentado con la función Contar, pero no consigo que funcione,
{=CONTAR(SI(Balnearios=A2;Tipos_agua=B1}

Donde A2 sería el balneario que busco y b1 el tipo de agua
Alguna idea?

INVIERTE 5 MINUTOS DE TU TIEMPO Y VERAS QUE ESTO REALMENTE FUNCIONA !!!!
> >
> >
> >
> > MENSAJE ORIGINAL
> >
> >
> >
> > Esto es lo que le paso a un amigo, días atrás, mientras navegaba por
estas
> > paginas de noticias, así mismo como usted lo esta haciendo ahora, se me
> > apareció un articulo similar a este que decía: "Usted puede ganar miles
de
> > dólares en pocas semanas con una inversión de US$ 6 dólares (seis
> dólares)",
> > Enseguida pensé: "¡oh,no, otra estafa más ?", pero como la mayoría de
> > nosotros, la curiosidad pudo más ,y seguí leyendo, y seguía diciendo:"
> Usted
> > enviará US$1.-(un dólar) o a cada uno de los 6 nombres y direcciones
> > mencionados en este articulo , entonces usted anote su nombre y
dirección
> al
> > final de la lista reemplazando al numero #6 , y envíe o ponga este
> articulo
> > a por lo menos 200 NEWS GROUPS (hay miles de estos en todo el mundo).
> >
> >
> >
> > Nota: Si te encuentras en otro país, debes cambiar tu moneda nacional a
> > dólares, pues en todos los países cambian dólares y es más fácil para
> todos.
> > No existe ningún truco, la diferencia de este sistema y otros, es que
> usted
> > tiene una lista de 6 en vez de 5, esto significa que su promedio de
> ganancia
> > será aproximadamente ¡¡¡¡¡15 veces mayor!!!!!
> >
> >
> >
> > Después de pensarlo una y otra vez y de consultarlo con unos amigos,
> decidí
> > probarlo, pensé que lo único que podría perder era 6 estampillas y US$6
> > dólares y fue lo tomaría como inversión verdad?
> >
> >
> >
> > Como probablemente muchos de nosotros estaba un poco preocupado por la
> > legalidad de todo esto. Entonces consulte al Correo Central y me
> confirmaron
> > que en realidad era legal!!!!!!!. Me quedé asombrado y de inmediato
> invertí
> > mis US$6 dólares... IMAGINENSE QUE!!!!... a los días después, empecé a
> > recibir DINERO por correo!
> >
> >
> >
> > Estaba feliz, como niño con juguete nuevo, y muy sorprendido!!!! Y
pensaba
> > que esto se acabaría en pocos días más y me trate de olvidar del tema,
en
> > todo caso ya había recuperado la inversión, pero el dinero seguía
> llegando.
> > En mi primera semana hice entre US$20 y US$30 dólares. Para el final de
la
> > segunda semana había hecho un total de US$1.000 (mil dólares)!!!!!! No
lo
> > PODÍA CREER!; en la tercera semana $10.000 (diez mil) y todavía seguía
> > llegando más!; en mi cuarta semana tenía un total de $41.000.- dólares y
> > esto sigue llegando más rápidamente (en mi casa ,se la pasan abriendo
> sobres
> > y yo consiguiendo "NEWSGROUP". ESTO SE PUSO SERIO). Todo esto valió la
> pena,
> > la inversión de US$6 dólares y 6 estampillas, dio sus frutos, y pensar
que
> > yo gastaba más de US$6 dólares semanales en sorteos y lotería, y no
pasaba
> > nada.
> >
> >
> >
> > AHORA PERMÍTANME EXPLICARLES COMO FUNCIONA ESTO Y LO MAS
> IMPORTANTE.........
> > EL PORQUE FUNCIONA EXCELENTEMENTE
> >
> >
> >
> > Usted asegúrese de imprimir este articulo AHORA, para sacar toda la
> > información a medida que lo solicite. El proceso es muy fácil y consiste
> en
> > 3 (tres) pasos sencillos:
> >
> >
> >
> > PASO Nº.1: Obtenga 6 hojas de papel y escriba en cada una de ellas
> >
> > "FAVOR DE INCLUIRME EN SU LISTA DE CORRESPONDENCIA O E-MAIL" Luego,
> escribe
> > también tu nombre, dirección y correo electrónico (e-mail)---- OJO que
> esto
> > es lo que hace LEGAL al sistema puesto que se está pagando por el
servicio
> > de ser incluido en una lista de correo
> >
> >
> >
> > Ahora consiga 6 billetes de US$1 (un dólar) e introduzca cada dólar en
un
> > sobre con la hoja, de manera de envolver el billete con la hoja, con el
> fin
> > de que el billete no se vea a través del sobre!!. Es mejor que el papel
> sea
> > de color oscuro para prevenir los robos de correspondencia.
> >
> >
> >
> > ¡¡¡¡¡¡ ESO ES IMPORTANTE!!!!! De otra manera la gente que trabaja en el
> > correo podrìa detectar que se trata de dinero y quedarse con los miles
de
> > sobres que te van llegando; de manera que se recomienda envolver todo,
> > adicionalmente, en un papel oscuro o de carbón para que no se vea a
través
> > del sobre!). Lo que estas haciendo es crear un servicio y como tal, lo
> hace
> > COMPLETAMENTE LEGAL. A partir de ahora no estas mandándole un DOLAR a
> alguna
> > persona sin ningún motivo, estas pagando UN DOLAR por un legítimo
servicio
> > (te aseguro, de nuevo, que esto es completamente legal)
> >
> >
> >
> > Enviar los 6 sobres a las siguientes direcciones
> >
> >
> >
> > 1)-- Victorino Cid Fernandez
> >
> > c/bizkerre nº 22 3º c - 48991
> >
> > Getxo, Bizkaia, España
> >
> >
> >
> >
> >
> > 2)-- Eduardo Peña Morales
> >
> > Pasaje Uno nº 935 C.P. 653-0029
> >
> > Quilpue, Chile
> >
> >
> >
> >
> >
> > 3) - Paula Herrera López
> >
> > Marina 1654
> >
> > Viña del Mar, Chile
> >
> >
> > 4)- Santos Pérez Vergara
> > Avda/ Buenos Aires, nº9 - 6ºA
> > 34003 - PALENCIA
> > ESPAÑA (SPAIN)
> >
> > 5)-Juan Martinez Calderon
> > 200 sur de la Basilica de los
> > Angeles, Rest. Hamburguesas
> > Twins. CARTAGO, COSTA RICA
> >
> >6)-- Henry Alexander Vega
> >
> > Los Alcazares bloque 258 Apto 401
> >Cl.71 #1a4a-05
> > Cali valle
> >Colombia
> >

> >
> > PASO Nº 2: Ahora elimine el numero #1 de lista de arriba y mueva los
> otros
> > nombres un numero para arriba ( el #6 se convierte en el #5, y el # 5 se
> > convierte en el #4, etc...) y agregue su NOMBRE Y SU DIRECCIÓN como el
#6
> de
> > la lista.
> >
> >
> >
> > Paso nº 3: Cambie todo lo que crea conveniente de este articulo, pero
> trate
> > de mantenerlo lo más cercano posible al original. Ahora ponga su
articulo
> en
> > por lo menos 200 NEWSGROUP (existen más de 24.000.000 newsgroups), solo
> > necesita 200, pero cuanto mas ponga , más dinero le llegará.
> >
> >
> >
> >
> >
> > ES TODO!!! Todo lo que tiene que hacer es meterse en diferentes
Newsgroups
> > (grupos) y empastarlos; cuando ya tenga práctica, solo le tomará unos 30
> > segundos por cada newsgroup.
> >
> >
> >
> > Se recomienda, además, que cuando publique la descripción de este
artículo
> > trates de darle un nombre que "atrape", como "NECESITA DINERO
RÁPIDO?,LEA
> > ESTE ARTÍCULO" o "BAJE ESTE
> > ARCHIVO Y LEA COMO PUEDE RECIBIR DINERO POR CORREO" etc. y no así
..."GANA
> > MILLONES EN 1 SEMANA", porque nadie lo tomara en serio
> >
> >
> >
> > RECUERDE: MIENTRAS MAS NEWSGROUPS CONSIGA, MAS POSIBILIDADES DE
RESPUESTAS
> Y
> > DINERO RECIBIRÁ!!!!, PERO DEBE DE ENTRAR EN POR LO MENOS... 200
> > NEWSGROUPS... YA ESTA!!!!!... Usted estará recibiendo dinero de todo el
> > mundo, de lugares que ni conoce y en unos pocos días!!!. Eventualmente
> > querrá rentar un P.O.BOX. por la cantidad de sobres que irá
recibiendo!!!
> >
> >
> >
> > (((ASEGURESE DE QUE TODAS LAS DIRECCIONES ESTÉN CORRECTAS)))
> >
> >
> >
> > Ahora el POR QUE de todo esto: De 200 enviados, digamos que recibo solo
5
> > repuestas (bajísimo ejemplo). Entonces hice $5 Dólares con mi nombre en
la
> > posición #6,de esta carta. Ahora cada una de las personas que me
enviaron
> > los $1 dólares, también hacen un numero de 200 newsgroup de la lista y
> solo
> > responden 5 personas a cada uno de los 5 originales, esto hace $25 mas
que
> > yo recibo, ahora estas 25 personas ponen un mínimo de 200 newsgroups con
> mi
> > nombre en el #4 lugar, y solo se reciben 5 repuestas de cada uno.
Estaría
> > haciendo otros $125 adicionales, ahora estas 125 personas ponen un
mínimo
> de
> > 200 grupos con mi nombre en el #3 lugar y solo recibe 5 respuestas cada
> una
> > ,yo recibo un adicional de $625!!!!!!!!!, ok, Aquí esta la parte mas
> > divertida, cada una de estas 625 personas ponen sus cartas con otros 200
> > grupos con mi nombre en el #2 lugar y cada una recibe solo 5 respuestas
> > .Esto hace que yo reciba $3.125 dolares adicionales!!!!!!!!!!!
> >
> >
> >
> > Estas 3.125 personas enviaran este mensaje a un mínimo de 200 grupos,
con
> mi
> > nombre en el #1 lugar, y solo 5 personas responden de los 200 grupos
,esto
> > hace que yo reciba $15.625 dólares!!!!!!!!!!!!!!!! De una inversión de
$6
> .-
> > dólares , no creen que es FABULOSO!!!!!!!!!!!!!?????????????. Y como
dije
> > antes, que solo 5 personas respondan de 200 grupos,(el promedio real es
de
> > 20 a 30 personas)!!!!!!!!!!!!!! SI QUIEREN SAQUEN CÁLCULOS!!!!!!!!!
> >
> > SI SOLO 15 PERSONAS RESPONDEN ....... ESTO HACE: En la #6...=$15,00.- En
> la
> > #5....=$225,00.- En la #4....=$3.375,00.- En la #3.....=$50.625,00- En
la
> > #2.....=$759.375,00.-
> >
> >
> >
> > ((((Ahora viene lo bueno, no se asusten.- En la posición
> > #1........((((($11.390.625,00))))) ... si, ONCE MILLONES DE
> > DOLARES!!!!!!!!!!!!!!!! Una vez que su nombre ya no este en la lista ,
> saque
> > el último anuncio del newsroup y envíe otros $6 dólares a los nombres en
> esa
> > lista, poniendo su nombre en el lugar #6 y repetir todo el proceso, y
> > empezar a ponerlos en los newsgroups otra vez, lo que debe recordar que
> > miles de personas como usted y como yo en todo el mundo, se conectan a
> > internet y leerán estos artículos, así que creo que nadie tendrá
problemas
> > para invertir $6 dolares, y verás si esto realmente funciona. Algunas
> > personas llegan a pensar...." y si nadie me responde"..... QUÉ, cual es
la
> > chance de que esto pase, si hay miles y miles de personas HONESTAS (que,
> > como nosotros) buscan una manera de tener independencia financiera y
pagar
> > cuentas!!!!!!, y están dispuestas a tratar, pues " NO HAY PEOR LUCHA
QUE,
> LA
> > QUE NO SE HACE!", se estima que hay 20.000 a 50.000 nuevos usuarios
TODOS
> > LOS DIAS, ( en todo el mundo). RECUERDE EN HACERLO DE MANERA, HONESTA,
> > LIMPIAY CORRECTAMENTE y funcionará con toda seguridad!!!
> >
> >
> >
> > ***Dicho de paso: solamente la honestidad e integridad de los
> participantes
> > puede hacer que este sistema funcione. Como habrá notado, no existe
ningún
> > intermediario "milagroso" que multiplique el dinero...ese intermediario
> son
> > cada una de las personas que participan de este "flujo de dinero"...de
> esta
> > manera la única forma que esto no funcione es que personas
inescrupulosas
> > posteen en newsgroups sin enviar el dinero a quienes corresponda. Ahora
si
> > todos o muchos hacen esto es lógico que esta maravillosa idea dejará de
> > serlo. APELO A SU HONESTIDAD E INTEGRIDAD, no manche su honor y
conciencia
> > por 6 míseros dólares, es cierto que ninguna cantidad lo vale pero por 6
> > dólares el sólo pensarlo ya es bastante.
> >
> >
> >
> > "Los frutos de la honestidad se recogen en muy poco tiempo y duran para
> > siempre"
> >
> > Proverbio Chino
> >
> >
> >
> > BENDICIONES PARA TODOS Y
> > SUERTE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!
> >
> >
> >
> > NOTA: MIENTRAS MAS CARTAS, MAS RESPUESTAS, Y ESO SE TRADUCE EN MAS
> DINERO!!!
> > Recuerde, hágalo bien para que esto funcione y así, todas las personas
que
> > entren en este negocio obtengan resultados positivos, en el fondo estos
> > dineros van viajando a través del mundo, y las personas que le
agradecerán
> > son las mas necesitadas en todo el mundo (no digo de extrema pobreza),
> sino
> > que personas, que por esas cosas de la vida se encuentran en aprietos y
> esto
> > les ayuda a salir adelante, y cuando se recuperan devuelven la mano de
> esta
> > manera; por esta razón les rogaría que no entorpezcan el negocio. SE
> HONESTO
> > Y GRACIAS POR LEER.
> >
> >
> >
> > Sólo un apunte más, si sabe traducir todo este mensaje a otros idiomas,
> > puede además, insértalos en foros de distintos países como, Francia,
> > Alemania, Rusia (esto se lo digo como consejo para expandir las
> > posibilidades de que lo vea mucha más gente)...
> >
> >
> >
>
>

INVIERTE 5 MINUTOS DE TU TIEMPO Y VERAS QUE ESTO REALMENTE FUNCIONA !!!!
> >
> >
> >
> > MENSAJE ORIGINAL
> >
> >
> >
> > Esto es lo que le paso a un amigo, días atrás, mientras navegaba por
estas
> > paginas de noticias, así mismo como usted lo esta haciendo ahora, se me
> > apareció un articulo similar a este que decía: "Usted puede ganar miles
de
> > dólares en pocas semanas con una inversión de US$ 6 dólares (seis
> dólares)",
> > Enseguida pensé: "¡oh,no, otra estafa más ?", pero como la mayoría de
> > nosotros, la curiosidad pudo más ,y seguí leyendo, y seguía diciendo:"
> Usted
> > enviará US$1.-(un dólar) o a cada uno de los 6 nombres y direcciones
> > mencionados en este articulo , entonces usted anote su nombre y
dirección
> al
> > final de la lista reemplazando al numero #6 , y envíe o ponga este
> articulo
> > a por lo menos 200 NEWS GROUPS (hay miles de estos en todo el mundo).
> >
> >
> >
> > Nota: Si te encuentras en otro país, debes cambiar tu moneda nacional a
> > dólares, pues en todos los países cambian dólares y es más fácil para
> todos.
> > No existe ningún truco, la diferencia de este sistema y otros, es que
> usted
> > tiene una lista de 6 en vez de 5, esto significa que su promedio de
> ganancia
> > será aproximadamente ¡¡¡¡¡15 veces mayor!!!!!
> >
> >
> >
> > Después de pensarlo una y otra vez y de consultarlo con unos amigos,
> decidí
> > probarlo, pensé que lo único que podría perder era 6 estampillas y US$6
> > dólares y fue lo tomaría como inversión verdad?
> >
> >
> >
> > Como probablemente muchos de nosotros estaba un poco preocupado por la
> > legalidad de todo esto. Entonces consulte al Correo Central y me
> confirmaron
> > que en realidad era legal!!!!!!!. Me quedé asombrado y de inmediato
> invertí
> > mis US$6 dólares... IMAGINENSE QUE!!!!... a los días después, empecé a
> > recibir DINERO por correo!
> >
> >
> >
> > Estaba feliz, como niño con juguete nuevo, y muy sorprendido!!!! Y
pensaba
> > que esto se acabaría en pocos días más y me trate de olvidar del tema,
en
> > todo caso ya había recuperado la inversión, pero el dinero seguía
> llegando.
> > En mi primera semana hice entre US$20 y US$30 dólares. Para el final de
la
> > segunda semana había hecho un total de US$1.000 (mil dólares)!!!!!! No
lo
> > PODÍA CREER!; en la tercera semana $10.000 (diez mil) y todavía seguía
> > llegando más!; en mi cuarta semana tenía un total de $41.000.- dólares y
> > esto sigue llegando más rápidamente (en mi casa ,se la pasan abriendo
> sobres
> > y yo consiguiendo "NEWSGROUP". ESTO SE PUSO SERIO). Todo esto valió la
> pena,
> > la inversión de US$6 dólares y 6 estampillas, dio sus frutos, y pensar
que
> > yo gastaba más de US$6 dólares semanales en sorteos y lotería, y no
pasaba
> > nada.
> >
> >
> >
> > AHORA PERMÍTANME EXPLICARLES COMO FUNCIONA ESTO Y LO MAS
> IMPORTANTE.........
> > EL PORQUE FUNCIONA EXCELENTEMENTE
> >
> >
> >
> > Usted asegúrese de imprimir este articulo AHORA, para sacar toda la
> > información a medida que lo solicite. El proceso es muy fácil y consiste
> en
> > 3 (tres) pasos sencillos:
> >
> >
> >
> > PASO Nº.1: Obtenga 6 hojas de papel y escriba en cada una de ellas
> >
> > "FAVOR DE INCLUIRME EN SU LISTA DE CORRESPONDENCIA O E-MAIL" Luego,
> escribe
> > también tu nombre, dirección y correo electrónico (e-mail)---- OJO que
> esto
> > es lo que hace LEGAL al sistema puesto que se está pagando por el
servicio
> > de ser incluido en una lista de correo
> >
> >
> >
> > Ahora consiga 6 billetes de US$1 (un dólar) e introduzca cada dólar en
un
> > sobre con la hoja, de manera de envolver el billete con la hoja, con el
> fin
> > de que el billete no se vea a través del sobre!!. Es mejor que el papel
> sea
> > de color oscuro para prevenir los robos de correspondencia.
> >
> >
> >
> > ¡¡¡¡¡¡ ESO ES IMPORTANTE!!!!! De otra manera la gente que trabaja en el
> > correo podrìa detectar que se trata de dinero y quedarse con los miles
de
> > sobres que te van llegando; de manera que se recomienda envolver todo,
> > adicionalmente, en un papel oscuro o de carbón para que no se vea a
través
> > del sobre!). Lo que estas haciendo es crear un servicio y como tal, lo
> hace
> > COMPLETAMENTE LEGAL. A partir de ahora no estas mandándole un DOLAR a
> alguna
> > persona sin ningún motivo, estas pagando UN DOLAR por un legítimo
servicio
> > (te aseguro, de nuevo, que esto es completamente legal)
> >
> >
> >
> > Enviar los 6 sobres a las siguientes direcciones
> >
> >
> >
> > 1)-- Victorino Cid Fernandez
> >
> > c/bizkerre nº 22 3º c - 48991
> >
> > Getxo, Bizkaia, España
> >
> >
> >
> >
> >
> > 2)-- Eduardo Peña Morales
> >
> > Pasaje Uno nº 935 C.P. 653-0029
> >
> > Quilpue, Chile
> >
> >
> >
> >
> >
> > 3) - Paula Herrera López
> >
> > Marina 1654
> >
> > Viña del Mar, Chile
> >
> >
> > 4)- Santos Pérez Vergara
> > Avda/ Buenos Aires, nº9 - 6ºA
> > 34003 - PALENCIA
> > ESPAÑA (SPAIN)
> >
> > 5)-Juan Martinez Calderon
> > 200 sur de la Basilica de los
> > Angeles, Rest. Hamburguesas
> > Twins. CARTAGO, COSTA RICA
> >
> >6)-- Henry Alexander Vega
> >
> > Los Alcazares bloque 258 Apto 401
> >Cl.71 #1a4a-05
> > Cali valle
> >Colombia
> >

> >
> > PASO Nº 2: Ahora elimine el numero #1 de lista de arriba y mueva los
> otros
> > nombres un numero para arriba ( el #6 se convierte en el #5, y el # 5 se
> > convierte en el #4, etc...) y agregue su NOMBRE Y SU DIRECCIÓN como el
#6
> de
> > la lista.
> >
> >
> >
> > Paso nº 3: Cambie todo lo que crea conveniente de este articulo, pero
> trate
> > de mantenerlo lo más cercano posible al original. Ahora ponga su
articulo
> en
> > por lo menos 200 NEWSGROUP (existen más de 24.000.000 newsgroups), solo
> > necesita 200, pero cuanto mas ponga , más dinero le llegará.
> >
> >
> >
> >
> >
> > ES TODO!!! Todo lo que tiene que hacer es meterse en diferentes
Newsgroups
> > (grupos) y empastarlos; cuando ya tenga práctica, solo le tomará unos 30
> > segundos por cada newsgroup.
> >
> >
> >
> > Se recomienda, además, que cuando publique la descripción de este
artículo
> > trates de darle un nombre que "atrape", como "NECESITA DINERO
RÁPIDO?,LEA
> > ESTE ARTÍCULO" o "BAJE ESTE
> > ARCHIVO Y LEA COMO PUEDE RECIBIR DINERO POR CORREO" etc. y no así
..."GANA
> > MILLONES EN 1 SEMANA", porque nadie lo tomara en serio
> >
> >
> >
> > RECUERDE: MIENTRAS MAS NEWSGROUPS CONSIGA, MAS POSIBILIDADES DE
RESPUESTAS
> Y
> > DINERO RECIBIRÁ!!!!, PERO DEBE DE ENTRAR EN POR LO MENOS... 200
> > NEWSGROUPS... YA ESTA!!!!!... Usted estará recibiendo dinero de todo el
> > mundo, de lugares que ni conoce y en unos pocos días!!!. Eventualmente
> > querrá rentar un P.O.BOX. por la cantidad de sobres que irá
recibiendo!!!
> >
> >
> >
> > (((ASEGURESE DE QUE TODAS LAS DIRECCIONES ESTÉN CORRECTAS)))
> >
> >
> >
> > Ahora el POR QUE de todo esto: De 200 enviados, digamos que recibo solo
5
> > repuestas (bajísimo ejemplo). Entonces hice $5 Dólares con mi nombre en
la
> > posición #6,de esta carta. Ahora cada una de las personas que me
enviaron
> > los $1 dólares, también hacen un numero de 200 newsgroup de la lista y
> solo
> > responden 5 personas a cada uno de los 5 originales, esto hace $25 mas
que
> > yo recibo, ahora estas 25 personas ponen un mínimo de 200 newsgroups con
> mi
> > nombre en el #4 lugar, y solo se reciben 5 repuestas de cada uno.
Estaría
> > haciendo otros $125 adicionales, ahora estas 125 personas ponen un
mínimo
> de
> > 200 grupos con mi nombre en el #3 lugar y solo recibe 5 respuestas cada
> una
> > ,yo recibo un adicional de $625!!!!!!!!!, ok, Aquí esta la parte mas
> > divertida, cada una de estas 625 personas ponen sus cartas con otros 200
> > grupos con mi nombre en el #2 lugar y cada una recibe solo 5 respuestas
> > .Esto hace que yo reciba $3.125 dolares adicionales!!!!!!!!!!!
> >
> >
> >
> > Estas 3.125 personas enviaran este mensaje a un mínimo de 200 grupos,
con
> mi
> > nombre en el #1 lugar, y solo 5 personas responden de los 200 grupos
,esto
> > hace que yo reciba $15.625 dólares!!!!!!!!!!!!!!!! De una inversión de
$6
> .-
> > dólares , no creen que es FABULOSO!!!!!!!!!!!!!?????????????. Y como
dije
> > antes, que solo 5 personas respondan de 200 grupos,(el promedio real es
de
> > 20 a 30 personas)!!!!!!!!!!!!!! SI QUIEREN SAQUEN CÁLCULOS!!!!!!!!!
> >
> > SI SOLO 15 PERSONAS RESPONDEN ....... ESTO HACE: En la #6...=$15,00.- En
> la
> > #5....=$225,00.- En la #4....=$3.375,00.- En la #3.....=$50.625,00- En
la
> > #2.....=$759.375,00.-
> >
> >
> >
> > ((((Ahora viene lo bueno, no se asusten.- En la posición
> > #1........((((($11.390.625,00))))) ... si, ONCE MILLONES DE
> > DOLARES!!!!!!!!!!!!!!!! Una vez que su nombre ya no este en la lista ,
> saque
> > el último anuncio del newsroup y envíe otros $6 dólares a los nombres en
> esa
> > lista, poniendo su nombre en el lugar #6 y repetir todo el proceso, y
> > empezar a ponerlos en los newsgroups otra vez, lo que debe recordar que
> > miles de personas como usted y como yo en todo el mundo, se conectan a
> > internet y leerán estos artículos, así que creo que nadie tendrá
problemas
> > para invertir $6 dolares, y verás si esto realmente funciona. Algunas
> > personas llegan a pensar...." y si nadie me responde"..... QUÉ, cual es
la
> > chance de que esto pase, si hay miles y miles de personas HONESTAS (que,
> > como nosotros) buscan una manera de tener independencia financiera y
pagar
> > cuentas!!!!!!, y están dispuestas a tratar, pues " NO HAY PEOR LUCHA
QUE,
> LA
> > QUE NO SE HACE!", se estima que hay 20.000 a 50.000 nuevos usuarios
TODOS
> > LOS DIAS, ( en todo el mundo). RECUERDE EN HACERLO DE MANERA, HONESTA,
> > LIMPIAY CORRECTAMENTE y funcionará con toda seguridad!!!
> >
> >
> >
> > ***Dicho de paso: solamente la honestidad e integridad de los
> participantes
> > puede hacer que este sistema funcione. Como habrá notado, no existe
ningún
> > intermediario "milagroso" que multiplique el dinero...ese intermediario
> son
> > cada una de las personas que participan de este "flujo de dinero"...de
> esta
> > manera la única forma que esto no funcione es que personas
inescrupulosas
> > posteen en newsgroups sin enviar el dinero a quienes corresponda. Ahora
si
> > todos o muchos hacen esto es lógico que esta maravillosa idea dejará de
> > serlo. APELO A SU HONESTIDAD E INTEGRIDAD, no manche su honor y
conciencia
> > por 6 míseros dólares, es cierto que ninguna cantidad lo vale pero por 6
> > dólares el sólo pensarlo ya es bastante.
> >
> >
> >
> > "Los frutos de la honestidad se recogen en muy poco tiempo y duran para
> > siempre"
> >
> > Proverbio Chino
> >
> >
> >
> > BENDICIONES PARA TODOS Y
> > SUERTE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> >
> >
> >
> > NOTA: MIENTRAS MAS CARTAS, MAS RESPUESTAS, Y ESO SE TRADUCE EN MAS
> DINERO!!!
> > Recuerde, hágalo bien para que esto funcione y así, todas las personas
que
> > entren en este negocio obtengan resultados positivos, en el fondo estos
> > dineros van viajando a través del mundo, y las personas que le
agradecerán
> > son las mas necesitadas en todo el mundo (no digo de extrema pobreza),
> sino
> > que personas, que por esas cosas de la vida se encuentran en aprietos y
> esto
> > les ayuda a salir adelante, y cuando se recuperan devuelven la mano de
> esta
> > manera; por esta razón les rogaría que no entorpezcan el negocio. SE
> HONESTO
> > Y GRACIAS POR LEER.
> >
> >
> >
> > Sólo un apunte más, si sabe traducir todo este mensaje a otros idiomas,
> > puede además, insértalos en foros de distintos países como, Francia,
> > Alemania, Rusia (esto se lo digo como consejo para expandir las
> > posibilidades de que lo vea mucha más gente)...
> >
> >
> >
>
>

Los cambios personalizados hechos a menús y barras de herramientas son guardados en un archivo con la extensión .xlb.

* En Excel 97 y Excel 2000, el nombre del archivo es el nombre del usuario seguido por .xlb.
* En Excel 2002 y Excel 2003, el nombre del archivo es Excel.xlb.

Para resguardar el archivo:
1. Busque un archivo con la extensión .xlb.
2. Copie el archivo y guárdelo en un lugar seguro.

Para usar la Validación de Mensaje Entrante como un Comentario de celda:

1.Seleccione una celda y en el menú Datos, seleccione Validación.
2.Seleccione la pestaña Mensaje entrante.
3.Complete los dos campos de texto Título y Mensaje de entrada.
4.Haga clic en Aceptar.

Hola,
Necesito activar un ComboBox que está dentro de un formulario de entrada de datos para una base de datos. El problema es que al guardar los datos del formulario no me guarda los datos seleccionados en el combobox sino que daja las celdas en blanco. Todo el retso de los datos los guarda sin mayor problema.
Creo que puede ser un problema de configuración de las propiedades del ComboBox o quizás agregar algo de lenguaje VB al mismo elemento.
Saludos

Hola a todos.

Estoy necesitando un ejemplo de código VBA para actualizar ó generar gráficos con un número variable de series.

Alguna idea ó dirección de internet me sería de mucha utilidad.

Muchas gracias.

Caliche.

me surge otra duda... se puede hacer que al abrir un archivo excel en especial no me muestre el diágolo (Abrir con o sin macros) Habilitar macros... porque quiero poner un menu hecho con un Userform y si no la habilitan las macros no se abre el Userform...

es decir, quisiera abrir el formulario con la acción de macros habilitadas sin mostrar el dialogo.

Hola a todos, soy nuevo en esto de las macros.

se me plantea una problema relacionado con la impresión de las páginas de una tabla dinámica.
el número de páginas de estas tablas es de más de 300, así que cada vez que me dispongo a imprimir cada una de las tablas (cada página sería un cliente, y en la tabla aparecen los datos de ESE cliente), estoy pulsando las mismas teclas: elegir cliente, imprimir, siguiente cliente, imprimir..., más de 6 horas.
necesitaría una macro que me permitiera la impresión de los clientes elegidos o bien del total de clientes, claro está cada uno con su tabla dinámica independiente. Y la verdad, es que desconozco el lenguaje de las macros.
¿alguien podría ayudarme?. mi jefe no comprende el tiempo que se tarda en imprimir esto.

un saludos y gracias con antelación.

Buen día... aprovechando el fin de semana pregunto cómo se puede correr una macro desde un botón en una hoja de excel...

quizá este botón pudiera ser una pequeña imagen que pongamos en la página, y que cuando se le da click, se corra la macro

o también podría ser un hyper link.. no lo sé

Saludos

Buenas tardes a todos:
Tengo un problema en cuanto a una función de convertir numeros a letras (en moneda), y es en el caso de cuando selecciono el tipo de moneda 3 (1=pesos, 2=USD, 3=****logado (pesos/dolares)), me pueden indicar o ayudar por favor, como cuando se selecciona la moneda 3 deseo aplicar el tipo de cambio y que unicamente afecte a la porcion de dolares y no a la de pesos, pero que sin embargo la cantidad introducida en pesos me la traduzca en letras y la de dolares este afectado por el tipo de cambio y que tambien lo traduzca a letras. No se si me explico bien, pero pueden aplicar el codigo de dicha función y hacer un ejemplo. Otro favor: es posible hacer que unicamente el campo de tipo de cambio se active solo con el tipo de moneda 3 y no con los otros dos?.
De antemano muchas gracias...

'***********************************************************************
'Funciones para convertir de números a letras
'Llamada : Letras(Número,Moneda,Estilo;Tipo_Cambio) - Moneda 1-Pesos, 2-Dólares, 3-****logado
Private Function Unidades(num, UNO)
Dim U
Dim Cad

U = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE")
Cad = ""
If num = 1 Then
If UNO = 1 Then
Cad = Cad & "UNO"
Else
Cad = Cad & "UN"
End If
Else
Cad = Cad & U(num - 1)
End If
Unidades = Cad
End Function

Private Function Decenas(num1, res)
Dim d1
d1 = Array("ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", _
"DIECIOCHO", "DIECINUEVE")
d2 = Array("DIEZ", "VEINT", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", _
"SETENTA", "OCHENTA", "NOVENTA")

If num1 > 10 And num1 < 20 Then
Cad1 = d1(num1 - 10 - 1)
Else
Cad1 = d2((num1 10) - 1)
If (num1 10) 2 Then
If res > 0 Then
Cad1 = Cad1 & " Y "
Cad1 = Cad1 & Unidades(num1 Mod 10, 0)
End If
Else
If res = 0 Then
Cad1 = Cad1 & "E"
Else
Cad1 = Cad1 & "I"
Cad1 = Cad1 & Unidades(num1 Mod 10, 0)
End If
End If
End If
Decenas = Cad1
End Function

Private Function Cientos(num2)
num3 = num2 100
Select Case num3
Case 1
If num2 = 100 Then
cad2 = "CIEN "
Else
cad2 = "CIENTO "
End If
Case 5
cad2 = "QUINIENTOS "
Case 7
cad2 = "SETECIENTOS "
Case 9
cad2 = "NOVECIENTOS "
Case Else
cad2 = Unidades(num3, 0) & "CIENTOS "
End Select

num2 = num2 Mod 100
If num2 > 0 Then
If num2 < 10 Then
cad2 = cad2 & Unidades(num2, num2)
Else
cad2 = cad2 & Decenas(num2, num2 Mod 10)
End If
End If
Cientos = cad2
End Function

Private Function Miles(num4)
If (num4 >= 100) Then
cad3 = Cientos(num4)
Else
If (num4 >= 10) Then
cad3 = Decenas(num4, num4 Mod 10)
Else
cad3 = Unidades(num4, 0)
End If
End If
cad3 = cad3 & " MIL "
Miles = cad3
End Function

Private Function Millones(cant)
If cant = 1 Then
ter = " "
Else
ter = "ES "
End If
If (cant >= 1000) Then
cantl = cantl & Miles(cant 1000)
cant = cant Mod 1000
End If
If cant > 0 Then
If cant >= 100 Then
cantl = cantl & Cientos(cant)
Else
If cant >= 10 Then
cantl = cantl & Decenas(cant, cant Mod 10)
Else
cantl = cantl & Unidades(cant, 0)
End If
End If
End If
Millones = cantl & " MILLON" & ter
End Function

Private Function decimales(Numero As Single) As Integer
Dim iaux As Integer
iaux = Numero - Application.Round(Numero, 2)
decimales = iaux
End Function

Public Function NumALetras(Cantidad As Variant, ByVal Moneda As Integer, ByVal Estilo As Integer, ByVal Tipo_Cambio As Integer) As String
Dim cants1 As String, num1 As Variant, num2 As Variant

num1 = Cantidad 1000000
num2 = Cantidad - (num1 * 1000000)

cents = (num2 * 100) Mod 100
If cents = 0 Then
cents1 = "00"
Else
cents1 = Format(cents)
End If
Cantidad = Cantidad - (cents / 100)
If Cantidad >= 1000000 Then
cantlm = Millones(Cantidad 1000000)
Cantidad = Cantidad Mod 1000000
End If
If Cantidad > 0 Then
If (Cantidad >= 1000) Then
cantlm = cantlm & Miles(Cantidad 1000)
Cantidad = Cantidad Mod 1000
End If
End If
If Cantidad > 0 Then
If Cantidad >= 100 Then
cantlm = cantlm & Cientos(Cantidad)
Else
If Cantidad >= 10 Then
cantlm = cantlm & Decenas(Cantidad, Cantidad Mod 10)
Else
cantlm = cantlm & Unidades(Cantidad, 1)
End If
End If
End If
If Moneda = 1 Then
NumALetras = cantlm & " PESOS " & cents1 & ""
Select Case Estilo
Case 1
NumALetras = StrConv(NumALetras, vbUpperCase) & "/100 M.N."
Case 2
NumALetras = StrConv(NumALetras, vbLowerCase) & "/100 M.N."
Case Else
NumALetras = StrConv(NumALetras, vbProperCase) & "/100 M.N."
End Select
ElseIf Moneda = 2 Then
NumALetras = cantlm & " DOLARES " & cents1 & ""
Select Case Estilo
Case 1
NumALetras = StrConv(NumALetras, vbUpperCase) & "/100 U.S.D."
Case 2
NumALetras = StrConv(NumALetras, vbLowerCase) & "/100 U.S.D."
Case Else
NumALetras = StrConv(NumALetras, vbProperCase) & "/100 U.S.D."
End Select
ElseIf Moneda = 3 Then
NumALetras = cantlm & " PESOS " & cents1 & "/100 M.N." & "" & Chr(10) & "" & cantlm & " DOLARES " & cents1 & "" & "/100 U.S.D."
Select Case Estilo
Case 1
NumALetras = StrConv(NumALetras, vbUpperCase)
End Select
End If
End Function