Saludos. A raiz de una cosulta que se hizo en el foro de si se podian mostrar asteriscos en un inputbox, me quedo la inquietud de si realmente se podia hacer, investigando en la red encontre un excelente codigo del Maestro Juan M Afán de Ribera que permite hacerlo, subo el presente ejemplo que condiciona tres intentos de acceso, espero sea de utilidad. Atte. joshua Inputbox asteriscos.zip

Hola Por la red hay varias formas de encontrar con VBA si una hoja existe (hay una funcion UDF por ahi), pero este aporte es solo una forma diferente para agregar hojas en un libro, comprobar existencia y agregar un link que nos devuelve al menu u hoja principal Espero que sirva Sub agregarhojas() Dim Hoja As Worksheet, NuevaHoja As String, NuevoNombreHoja As String With Application .ScreenUpdating = False Sheets("Menu").Range("A1").Name = "Inicio" NuevaHoja = .InputBox("Nombre de hoja:", "Agregar hojas") If NuevaHoja = "Falso" Or NuevaHoja = "False" Or NuevaHoja = Empty Then Range("A1").Select: Exit Sub NuevoNombreHoja = VBA.StrConv(NuevaHoja, vbPr…

Buenas noches Navegando por la red, encontre una pagina donde habla de las Apis, con algunos ejemplos, os dejo el enlace por si es de utilidad. Saludos

Hola: Para abrir, ver y cerrar libros. Saludos. BookNavigator.zip

Hola: Por si teníamos pocos calendarios, ahi va uno mas. Se trata de un calendario en forma de cinta. Pulsar y arrastrar sobre el año para mover la cinta de sitio. Doble click en el año para volver al mes actual. Click sobre el día para pasar la fecha a la celda activa. Si se selecciona mas de una celda se pasara una serie de fechas consecutivas contando a partir de la fecha seleccionada. Saludos CintaCalendario.zip

Los codigos son de Visual Basic adaptados a VBA Excel Los primeros 15 dias no pide contraseña para el 1er formulario despues pide contraseña (micontraseña, contraseña, usuario, miusuario) leer los comentarios. https://sites.google.com/site/excelilove/TrabasFechastxt.rar?attredirects=0&d=1 En mi blog he colocado uno con base de datos Access

Hola estimados amigos. Adjunto una recopilación de fórmulas relativas a FECHAS, que pueden resultar útiles a más de un compañero. Saludos cordiales EDITO: Suprimo el archivo ya que inadvertidamente repetí el aporte.

Hola a todos, me quisiera unir a los aportes y para esto les doy este código que puede ser de gran utilidad. Supongamos que tenemos un texbox en el que introducimos textos pero deseamos que estos sean introducidos solo en mayuscula sin tener que tener el caps lock presionado. Haremos lo siguiente: Private Sub Textbox1_Change() Dim I As Integer Textbox1.Text = UCase(Textbox1.Text) I = Len(Textbox1.Text) Textbox1.SelStart = I End Sub[/PHP] Si lo desean les subo un archivo con varios texbox programados con este codigo y asi puedan verlo trabajando. Espero les sirva. Saludos,

Los programadores de VBA solemos estar solos muchas horas cuando codificamos las aplicaciones y nos distraemos jugando al solitario de Windows. Pero no siempre se puede jugar porque las empresas impiden su uso porque "piensan" que se pierde productividad si se distrae un@ pasando un rato jugando solitariamente. Si tienes restringido el acceso y uso de juegos, ¿por qué no jugar con Excel? ¿O es que acaso no hay buenos juegos escritos en Excel y VBA? ¡YAAAAA en sus pantallas un nuevo SOLITARIO en Excel! Gracias a las ideas expresadas en los temas: La última versión 2.x está probada en Excel 2003 y 2010: SOLITARIO_PW2x.zip SOLITARIO_PW10.zip SOLITARIO_PW1…

Bueno compañeros les dejo un pequeño aporte, es el metodo Alt+numero que por lo menos yo lo uso mucho Espero que les guste y sobre todo que les sirva Saludos Nicolas

Hola: Supongo que no soy el primero que se imagina a un libro Excel como si fuera un cubo. Un cubo en el que los ejes son : filas, columnas y hojas. La pena es que esos ejes están fijos, pues bien ahora ya no lo están. Con Macrocubo podrás ver los ejes como tu quieras. Limitaciones: 1) Todas las hojas han de tener el mismo diseño 2) Los títulos de columna estarán en la fila 1, y no podrán estar duplicados 3) Los títulos de fila estarán en la columna 1, y no podrán estar duplicados 4) Los títulos tanto de filas como de columnas deberán estar de acuerdo con las reglas de los nombres de hoja. 5) Los datos empezarán en B2 y deberán ser numéricos En el adjunto lo v…

Hola foreros y demás Excelianos del orbe: Desde Macrolandia con amor, os dedico este aporte. Esta vez se trata de un sistema de archivo de textos y código VBA. Entre la poca memoria que me queda y lo extenso del material de que dispongo, cada vez que tengo que responder a una consulta, me paso mas tiempo buscando información, que resolviendo la consulta. Por este motivo, he empezado a archivar toda mi información en un único libro gestionado por un único formulario. A esto le he puesto el fastuoso y pretencioso nombre de Macropedia. Al abrir el adjunto os encontrareis un breve resumen sobre su funcionamiento. Revisión 3 ----------- Hay dos archivos uno con el So…

Hola: Comparación de la Hoja1 con la Hoja2 fila a fila. Al abrir el libro, se pedirá el número de cada columna que forma parte de la clave a comparar. Se admite cualquier número de columnas. Cada vez que seleccionemos una celda de la Hoja1 en la ventana 1 se buscara la clave de la Hoja2 en la ventana 2. Si se encuentra la clave, en la hoja 2 aparecerán: 1) La clave resaltada en color verde 2) Las celdas sin variación sin color de resalte 3) Las celdas con diferencias resaltadas en color rojo En la barra de estado de Excel, aparecerá la fila con las diferencias y errores. Para cambiar el criterio de búsqueda, activar cualquier hoja en la ventana 1 y volver a selec…

Hola: Como ya sabeis no hay ningún evento de hoja ligado a las barras de desplazamiento. Hay un forma de detectarlos con Apis y un módulo de clase, pero aparte de complicado, no he conseguido hacerlo funcionar. He conseguido crear unos "falsos" eventos change de fila y columna del scroll a partir del evento Selection_Change de la hoja. Lo de falsos viene porqué los eventos no se detectan en el momento en que se producen sino que se detectan en la siguiente selección de una celda. Con un poco de imaginación se le puede sacar alguna utilidad. Saludos. ¡¡ A lo que tiene que se tiene que llegar para no aburrirse !! PseudoScrollEvents.zip

Sirva este tema para demostrar mi admiración por el pueblo japonés en estos momentos de sufrimiento, con la completa seguridad que serán capaces de superarse ante la adversidad como lo han demostrado antes. Con la función ChrW$(CharCode) se obtienen los 65.536 caracteres Unicode para CharCode = 0 a 65535. En la hoja adjunta se generan todos esos caracteres en una matriz de 256 filas x 256 columnas, correspondiendo a los idiomas chino, japonés y coreano más de 20.000 caracteres, como he comentado en esta entrada de mi blog: P.D.: Desde la semana pasada estoy noqueado por la fuerza tremenda de la ola negra que asoló la costa este japonesa. Cuando me puse mi seudónimo …

Hola: Pues nada, que pasaba por aquí, he visto luz, y he subido. Esta vez va del método DataSeries del objeto Range, por si no lo sabiais sirve para generar series de datos dentro de un rango. Va muy bien para numeraciones y serialización de fechas. En el ejemplo, generamos las tablas de multiplicar del 1 al 10 sin utilizar ni una sola instrucción aritmética. Sub TablasMultiplicar() For Columna = 1 To 10 Cells(1, Columna) = Columna Set Rango = Range(Cells(1, Columna), Cells(10, Columna)) Rango.DataSeries Step:=Columna Next End Sub [/CODE] Pues ale, que "vos" lo paseis bien. Saludos

Para entendernos, no voy a listar las fonts o fuentes (sources) de dinero fácil que hacen multimillonario al conocido como "Factura Puertas" o "Salido de Cuentas" (en inglés "Bill Gates") y a los empleados de la ponderosa Micro$oft Office. Como dice el título, el adjunto se limita a la lista de las fuentes de MS Windows instaladas en tu ordenador en una hoja Excel. Tarda un minuto en generarla y, si se selecciona un celda, la copia automáticamente en el portapapeles para pegarla en Word, por ejemplo, manteniendo el tipo de fuente - font. Seguro que el tener en un sólo sitio todas las fuentes de caracteres es tan útil para los Excel foreros como lo es para mí. Vers…

Hola a todos: Aquí os suelto un traductor de macros al castellano. Se trata solo de un borrador. Si tiene éxito lo perfeccionaré. Al abrir el adjunto, Pulsar el botón "Traducir" y a ver que pasa. Saludos. Traductor de macros.zip

Hola: Ni el mismísimo profesor Franz de Copenhague inventaría semejante engendro. Aquí os dejo un "History sheet navigator", lo pongo en inglés para que Germán tenga que buscar en el diccionario...jejeje. Salu2 a to2 to2 Sheet Navigator.zip

Hola: Cada vez tengo menos ideas para hacer cosas que sirvan para algo, o que como mínimo distraigan. Esta vez a raíz de una consulta en el "otro foro", he hecho esta pequeña macro para desglosar un importe en monedas y billetes. (En Euros) Para probar, poner cualquier importe en A1, y aparecerá el desglose en la columna B. Saludos. PD: En este post de ioyama: https://www.ayudaexcel.com/foro/showthread.php?t=5568 hay algo parecido pero con fórmulas. DesgloseDeMoneda.zip

Hola a todos! A veces es incomodo o molesto, abrir Excel y este presenta por defecto, la pestaña "Inicio" del menu (me refiero a las versiones del 2007 en adelante) Pues bien "Sendkeys" nos da muchas posibilidades una de ellas es precisamente abrir Excel en nuestra ficha preferida por ejemplo la de "Programador", o por ejemplo si queremos hacer uso del comando "Autocorreccion" (es tedioso hacerlo correctamente: Inicio/Opciones de Excel/Revision/Opciones de autocorreccion) Nota: inclui tambien una macro para dar un paseo al menu de Excel:cool: Espero sea de utilidad Saludos desde Honduras Abrir Excel en Ficha de Menu Preferida.zip

Hola a todos! Este aporte se trata de una sola macro (de evento) que actua sobre la hoja activa, captura el rango M1:N2 como criterio (la celda L2 como opcional para el año) y se activara un Imputbox solicitando el año, el resto lo hara la macro (trabaja sobre una hoja llamada "Data" que contiene una tabla) Este aporte es a raiz de un tema tratado en el foro y pues me llamo la atencion y retoque la macro:) Espero que sea de utilidad Saludos desde Honduras Filtro Avanzado automatico segun mes.zip

Hola: Entrecomillo "Jugar" para que no os hagais ilusiones, de jugar, nada de nada. Hay dos macros: PokerAbierto y PokerCerrado Ambas macros, lo único que hacen es barajar, repartir y mostrar las cartas, eso si, las que tienen que estar tapadas, están tapadas. Para descubrir las cartas tapadas, pulsar y arrastrar la tapa. Los naipes se muestran como imagen incrustada en la hoja por lo que se pueden arrastrar y soltar donde nos convenga. Cuando disponga de tiempo, intentaré poco a poco ir completando los juegos, aunque es mas difícil de lo que parece. Saludos a todos menos a uno. POKER.zip

A pesar de haber ya decenas de versiones de funciones que hacen algo similar, os dejo aquí una de mi propia cosecha que he diseñado para evitarme los dolores de cabeza que me daban las demás. Esta función, devuelve exactamente la última fila de cualquier hoja del libro que contiene algo en ella estemos o no en dicha hoja y sin necesidad de haber guardado los cambios. Option Explicit Public Function UltimaFila(Hoja As String) As Integer On Error GoTo errores UltimaFila = Sheets(Hoja).UsedRange.Row + Sheets(Hoja).UsedRange.Rows.Count - 1 Exit Function errores: UltimaFila = -1 End Function[/CODE] Curiosamente, tras buscarla en google ya existía,…

Hola En el archivo adjunto podran ver como con "formulas", es posible "listar" todas las hojas de un libro, ver su posicion y el total de las mismas Espero que les guste y lo mas importante que sirva;) Saludos desde Honduras Listar hojas de libro (con formula).zip