Señores adjunto algo que hice en mis ratos de ocio, espero le sirva a alguien. Números a letras.xls

Hola a todos. Este post va en referencia a una pregunta que me hizo mi hijo el domingo pasado sobre que eran los números capicuas. Después de explicárselo, empece a pensar en Excel (vicio que ya tiene uno) y de como podría averiguar si un numero era capicua o no solamente con ponerlo en una celda. Bueno después de unas cuantas pruebas y comerme un poco la cabeza, di con una forma de hacerlo, seguramente no haya descubierto la polvora, pero me pareció interesante compartirlo. Lo que no se es si se podrá hacer sin uso de auxiliares. Un saludo amigos. Libro1.zip

Hola: He decidido dedicarme unos días a investigar propiedades y métodos poco usuales de los objetos Excel. Hoy he descubierto la propiedad VisibleRange del objeto Window. Esta propiedad te devuelve, como su nombre indica, el rango visible de una ventana, incluso si variamos la dimensión de la ventana. En el adjunto encontrareis una aplicación de esta propiedad. Posicionaros en cualquier celda del libro, y vereis como la imagen siempre aparece en la parte superior derecha. Variar el tamaño de la ventana y al seleccionar cualquier celda volverá a aparecer la imagen en la parte superior derecha de la ventana incluso en un rango distinto. Enjoy it ! TopRightImage.zip

Hola: Aquí os dejo una función pata obtener el siguiente ID de identificación del nuevo registro de datos. Funcionalidades 1) .ID en cualquier hoja 2) .ID en cualquier columna 3) .Admite Id con formato Serie+Correlativo de longitud fija 4) ...Serie con cualquier longitud 5) ...Serie con cualquier valor 6) ...Correlativo de cualquier longitud 7) .Valor inicial del correlativo Forma de llamada: ID=NextId(Hoja, Columna, Serie, Longitud total ID, Valor inicial) Todos los parámetros son opcionales Valores por defecto: Hoja: Hoja activa Columna: "A" Valor inicial: 1 Si se informa el parámetro Serie, debe informarse el parámetro Longitud total ID. Os dejo un …

Estaba trabajando con unas imagenes que tenia que jalar de cierta web y bueno pense que podría ser necesario para algún usuario de esta comunidad. Adjunto el archivo. Obtener imagenes desde Web.xls

Hola! Es un aporte muy sencillo pero bastante practico al cargar nuestros COMBOBOX (con meses y años) en nuestros formularios Saludos Obtener meses y años automaticamente_GP.rar

Hola! Aquí de nuevo con algo mas... con una de FORMULAS! Hace unos días mi hijo (10 años) me solicito que le ayudara con una tarea de investigación la cual se trataba de encontrar el año al cual le tocara el mismo día de de su nacimiento o cumpleaños, pues como era un poco urgente, no me quedo mas que buscársela en el propio calendario de mi celular, por cierto bastante tedioso y cansado:D Varios días después me quede pensando y si mi otro hijo luego al pasar de los años le piden la misma tarea? me conteste no, esta vez no usare mi calendario:D si no que nuestro amado EXCEL Ahora si ya después de tanta historia les dejo el archivo, para que ahora en adelante no usen s…

Hola "pollitos": Aquí vos dejo una variante del archiconocido tema: Obtener sumandos hasta un valor Solo teneis que informar el valor y el nº máximo de sumandos. En la línea de estado de Excel aparece el avance del proceso. Besitos Sumas.zip Sumas.rar

Hola: Adaptación VB a VBA, como obtener codigo fuente de los archivos con macros. ObtenerCodigoExportaImportar.ro.zip

En esta ocasión vamos a extraer la temperatura de un portal de internet, de la siguiente página: openweathermap.org/city/3530597 que muestra la temperatura de los próximos días de la ciudad de México. Para efectuar esta tarea haremos uso del objeto Internet Explorer para poder navegar a dicha página y una vez cargada la misma empezamos a realizar la extracción del texto correspondiente y lo vaciamos en las celdas de nuestro libro. Antes que nada tendremos que agregar la referencia necesaria para trabajar con el navegador de la siguiente forma: Sub Clima() Dim oIE As InternetExplorer Dim sContenido As String Dim lPosicion As Long Dim vContenido As Variant Dim …

Oculta la columna si cumple el criterio, que la columna este en valor 0. Sub Ocultar_columnas_0() Dim x As Integer Dim y As Integer y = 0 Range("J5").Select For x = 10 To 256 Cells(5, x).Select If IsNull(ActiveCell.value) Or ActiveCell.value = "" Then MsgBox ("Fin del Proceso, Se modificaron: " & y & " Columnas en Ceros") Exit Sub Else Selection.End(xlDown).Select If ActiveCell.value = 0 Then Selection.EntireColumn.Hidden = True y = y + 1 End If End If Next x End Sub[/CODE] Es algo que quice compartir, espero le sirva alguien mas.

Os dejo un video explicativo de como ocultar las hojas en Excel http://www.youtube.com/watch?v=yRj3CK0_-Po La publi la podeis cerrar arriba a la derecha. Espero que os ayude!:distracted: - - - - - Mensaje combinado - - - - - Recuerdo que el video sale tras quitar la publi arriba a la derecha! muy bueno!

Hola: Si quereis que nadie sepa que archivos usais si alguien abre Excel en vuestro PC: Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.RecentFiles.Maximum = 0 End Sub[/CODE] Saludos MA

Hola Si eso, ocultar el menu y barras de excel (por el foro hay unos similares, pero no cae mal verlo de diferente forma:)) Espero que sirva... Saludos desde Honduras Ocultar Menu-Barras.zip

Hola Se trata de Ocultar o Mostrar Hojas desde Formulario en Excel - Seleccione del Listbox las hojas que desee y dar clic al boton de "Ocultar Hojas Seleccionadas" - Seleccione del Listbox las hojas que desee y dar clic al boton de "Mostrar Hojas Seleccionadas" - Puedes seleccionar o .... Bajar el archivo aqui: .: Ocultar o Mostrar Hojas desde Formulario Saludos

Hola, Les dejo este libro con dos macros que serian: la macro para Ocultar la cinta de opciones y la otra es para Mostrar la Cinta de opciones. Estas macros las concegi en otra pagina, pero yo la edite poniendole el Inputbox para que al ocultar la cinta y querer luego mostrarla que pidiera contraseña la cual es 123. Att: [uSER=206740]@Super Sabio[/uSER] Ocultar Cinta De Opciones.rar

Hola a todos He buscado si ya hay un tema similar en el foro pero no lo encontré, así que ahí va. Navegando por ahí encontré este archivo que quisiera incluir en este foro. Contiene una función con la que se puede Oír la Lectura de Números. Lo único que solo lee números enteros. Tal vez alguno de los expertos lo pueda modificar para que también lea con decimales. Subo el archivo a este enlace porque la carpeta es grande y contiene pequeños archivos wav y el archivo xlsm https://skydrive.live.com/?cid=452b8b6a68e9bbe7&id=452B8B6A68E9BBE7%21105 En fin, me parece que seria de gran utilidad a muchos. Saludos y que viva los foros que de ellos aprendemos todos.

Basado en un viejo aporte revisitado para animar las ondas y las olas con formulas y cálculos iterativos para que lo puedan seguir los que no les gusta abusar de las macros o no las conocen aún. Subo dos ficheros: pedrowaves3.rar (Excel 2007+) y pedrowaves2.xls (Excel 2003) Instrucciones: Cambia el valor de incremento del radio Δ R y dale a la tecla F9 sin parar!!! Revisa si está activado el cálculo iterativo: Menú: Archivo | Opciones Pestaña: Fórmulas Opciones de cálculo: Marcar "Habilitar cálculo iterativo" Iteraciones máximas: 1 Cambio máximo: 1 pedrowaves2.xls pedrowaves3.rar

Buenas tardes amigos Este aporte no es de mi autoria. Lo encontré en Internet y pensé que quizás en algún momento les sea útil. Ordenar Datos Listbox.zip

Hola: El título lo dice todo: Sub OrdenarPorNombreHoja() Dim Orden(), Código, Fila, Hoja Columns(Columns.Count).Clear Columns(Columns.Count - 1).Clear For Each Hoja In Sheets Código = "" For x = Len(Hoja.Name) To 1 Step -1 If IsNumeric(Mid(Hoja.Name, x, 1)) Then Código = Mid(Hoja.Name, x, 1) & Código Else Exit For End If Next Fila = Fila + 1 Cells(Fila, Columns.Count - 1) = Hoja.Name Cells(Fila, Columns.Count) = Left(Hoja.Name, x) & _ String(10 - Len(Código), "0") & Código Next Range(Cells(1, Column…

Hola No recuerdo haber visto algo similar por el foro, sobre como ordenar una BD segun el "Borde" de sus celdas/filas, pues a raiz de un problema sucitado en el foro de "GALI", es que se me ocurrio hacerlo con macros, sabemos que Excel al momento de ordenar BD nos lleva consigo el formato de las celdas, excepto los "bordes!" pues estos ignoran el SORT/ORDENADO, he tratado de burlar un poco a Excel por medio de VBA para lograr el efecto deseado, espero se comprenda el objetivo y sea de utilidad En resumen como "ordenar una BD pero que lleve de una vez los bordes de sus celas"? y para que se entienda un poco mas, ordenen la BD manualmente y notaran lo que comenté arriba..…

Hola: Pues nada, otra "tontería" mas. Otro aporte a partir de una consulta. https://www.ayudaexcel.com/foro/macros-programacion-vba-10/pendiente-macro-excel-2003-ordenar-por-color-caracteres-21254/ Se trata de ordenar un rango en función del color de las las celdas de una determinada columna. Mas besitos,......... hoy ya teneis para el resto de la semana, menos para ti ioyama que siempre tendré uno mas. jajajajajajaja Pd: Ya en serio, no se como va a funcionar ya que no tengo Excel 2003. En Excel 2010 con SortSpecial funciona. Agrupar por color.xls

Hola: Pues nada mas que lo que dice el título. Ordena un rango de celdas en un array de rangos. Saludos. Public Celda() As Range 'Resultado de la función Function MacroOrden(Rango As Range) As Integer ' ' ----------------------------------------------------- ' Ordena un rango de una sola columna sin tocar la hoja ' Deja el resultado en el array de rangos: Celda ' ' Macro Antonio Junio de 2011 ' --------------------------- ' ' Nota: Necesita una adaptación para Option Base 1 ' ' ----------------------------------------------------- ' Application.ScreenUpdating = False MacroOrden = 0 'Función correcta 'Controlamos que solo haya una co…

Hola compañeros del Foro Ahí subo un archivo más que, por lo que leo en el Foro, es bastante usado. Cordiales saludos ORDENAR.zip

Hola compañeros Acompaño un archivo que reúne diferentes soluciones para ORDENAR Texto y Valores, con el deseo de que puedan ser de utilidad a modo de consulta. Un cordial saludo P.D. Quede constancia de que yo no soy el creador de todas las fórmulas. Simplemente hice una recopilación reflexiva de las aportaciones hechas en distintos Foros por auténticos maestros. ORDENAR.zip