paikerr

Pero bueno, esto último ya sería algo para rizar el rizo. Lo que más me importa es eliminar todas las imágenes. Gracias.

Efectivamente @Antoni, con la macro anterior logro eliminar todas las imágenes. Pero a continuación me surje otro problema, y es que no consigo eliminar todos las etiquetas de selección HTML. Creo que el programa en sí mismo lo considera como un cuadro de lista del propio Excel... Ver imagen adjunta: https://www.dropbox.com/s/wlxg3bfxc5fir2y/Macro para borrar imágenes.jpg?dl=0

Gracias @johnmpl, efectivamente ahí es dónde estaba mi duda. Me guardo este orden para tenerlo en cuenta frente a futuras operaciones. Pensaba que la división de números enteros y la división en coma flotante tenían el mismo orden en la lista, de ahí mi duda... Al ver el orden del listado, todo cobra sentido. Obviamente con el uso de paréntesis en las operaciones, todo se soluciona mucho más fácil, pero quería trabajar sin paréntesis precisamente por eso, para conocer el orden de los operadores. Muchísimas gracias a todos por vuestra colaboración. +++ TEMA CERRADO +++

Hola a todxs, Necesito una macro para borrar sólo las imágenes. Diariamente descargo una serie de datos desde una página web de Internet, y se me importa también la galería de imágenes en mi hoja de datos activa de Excel. El problema es que ya ejecuto una macro para tal fin a través de un botón de formulario, pero se me borra el control ActiveX porque no consigo cómo hacer para eliminar sólo las imágenes. Adjunto el archivo para su comprobación: https://www.dropbox.com/s/yz9vgngnj0zofcb/IMAGENES.xlsm?dl=0 Muchas gracias de antemano por vuestro tiempo.

Hola a todxs, Tengo un problemilla con la siguiente expresión matemática: Sub MATHS_1() [A1] = 2 \ 3 ' Igual a 0. [A2] = 2 \ 3 * 2 ' Igual a 0. [A3] = 2 \ 3 * 2 / 3 ' Igual a 1. End Sub El resultado de la celda [A3] si aplican la macro anterior, podrán comprobar que es 1. Pues bien, no termino de entender muy bien la siguiente lógica: > Paso 1: "2 \ 3" el resultado es 0, pues sólo se recoge la parte entera de la división. Es decir, si 2 / 3 = 0,666 (período), entonces 2 \ 3 = debería ser 0. > Paso 2: Del resultado anterior, es decir del 0 obtenido, se lo multiplica por 2. Y cualquier número multiplicado por 0 es siempre 0. > Paso 3: Y finalmente, el 0 obtenido hasta el momento se divide entre 3, es decir 0 / 3, y es cuando llegamos aquí en donde da como resultado final un 1. Sin embargo, cualquier número que divida a 0 debería dar error. Y no es así en este ejemplo. Lo cual me induce a pensar en la siguiente teoría: Creo que el operador "\" en realidad no recoge la parte entera, sino que recoge también la parte decimal y la aplica en las siguientes operaciones para evitar precisamente que den como resultado un error, pero en la celda sólo se muestra la parte entera de la división. En este otro código (que es igual al anterior), tenemos que: Sub MATHS_2() [A1] = 2 \ 3 ' Igual a 0. [A2] = [A1] * 2 ' Igual a 0. [A3] = [A2] / 3 ' Igual a 0. End Sub Si aplicamos lo mismo que en el ejemplo anterior, pero esta vez recogemos el valor dentro de las celdas, podremos observar como en esta ocasión el resultado de la celda [A3] es igual a 0. No sé... alguien que sepa de matemáticas y de operadores en Excel, quizás pueda enfocarme un poco. Gracias de antemano por vuestro tiempo.

Muchas gracias @Leopoldo Blancas, tu explicación era precisamente lo que necesitaba. De todos modos, me estás retando cuando en realidad sólo he cometido un pequeño error, del cual no me daba cuenta. ... Columns(Columna(n)).Columns.Group ... Porque la declaración de variables podría haberlo hecho desde el principio con un tipo Variant, y ahorrarme ese problema. De hecho, así lo suelo hacer la mayoría de las veces. Creí que no sería necesario explicarlo, @antoni. Pues ya se sobreentiende con el siguiente código: ... Columns("F:F").Columns.Group Columns("J:J").Columns.Group Columns("M:M").Columns.Group Columns("Q:S").Columns.Group ... Es decir, agrupar las columnas anteriormente indicadas. Gracias a los dos. *** TEMA CERRADO ***

Hola a todxs, Quiero depurar el siguiente código: ... Columns("F:F").Columns.Group Columns("J:J").Columns.Group Columns("M:M").Columns.Group Columns("Q:S").Columns.Group ... Y se me ha ocurrido aplicando un Array: ... Dim Columna As Range Set Columna = Array("F:F", "J:J", "M:M", "Q:S") For Columna = 0 To UBound(Columna) Columns(Columna).Columns.Group Next Columna ... Pero me da error. No logro identificar qué estoy haciendo mal. Necesito orientación... Gracias de antemano por vuestro tiempo.

Gracias @johnmpl. Copio tu código, aplico las pruebas necesarias y te digo algo (por si tuviera cualquier error).

Hola a todxs, Simplemente os quería consultar una cosilla, ¿existe la posibilidad de depurar el siguiente código aun más? (He utilizado la grabadora de macros, y casi siempre suele ser bastante enreversada en ese sentido. Por eso lo pregunto...) ... With Range(Cells(5, 20), Cells(5, 20).End(xlDown)) .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0" .FormatConditions(Range(Cells(5, 20), Cells(5, 20).End(xlDown)).FormatConditions.Count).SetFirstPriority With .FormatConditions(1).Font ' Fuente de las celdas: .Bold = True .Color = -16776961 End With .FormatConditions(1).StopIfTrue = False .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=1" .FormatConditions(Range(Cells(5, 20), Cells(5, 20).End(xlDown)).FormatConditions.Count).SetFirstPriority With .FormatConditions(1).Font ' Fuente de las celdas: .Bold = True .Color = -11489280 End With .FormatConditions(1).StopIfTrue = False End With ... Gracias de antemano por vuestro tiempo.

Pues aunque conozco la interfaz del usuario bastante bien, me acabas de demostrar una vez más que en Excel nunca voy a dejar de aprender cosas nuevas... Jajaja. Gracias de nuevo, @Cacho R.

Vale. Ya he dado con el error, y he ejecutado la macro. Funciona perfectamente. Muchas gracias. *** TEMA CERRADO ***

Gracias @Antoni. ¿y así? ... .NumberFormat = "@;hh:mm" ...

Hola a todxs, Con el nuevo cambio de hora en España, estoy registrando algunos problemillas a la hora de extraer algunos datos de Internet, y me gustaría saber que código tengo que introducir para restar una hora en todas mis celdas a través de una macro. Si por ejemplo, la celda "A1" es igual a las 12:00 h., ¿qué macro tendría que introducir para que indique las 11:00 h.? ... Dim hora As Variant hora = "12:00" With Cells(1, 1) .Value = hora - 1 .NumberFormat = "h:mm;@" End With ... Obviamente esto no puede ser, porque el valor de las horas oscilan entre 0 y 1. De manera que si le resto una unidad, por coj... saldría un número negativo.

Gracias por el consejo @Gerson Pineda, aunque tu comentario me deja un poco en fuera de juego... Mi objetivo en este foro no es abordar "proyectos grandes" (como tú dices), sino más bien dudas concretas que me van surgiendo a medida que voy aprendiendo a programar. Si tienen fácil solución, copio el código y lo implanto dentro de mis proyectos. O bien, lo dejo guardado como favoritos para volver a reutilizarlo en un futuro. Pero vamos, que ni de lejos he llegado a pensar en desarrollar un proyecto completo a través de este foro... Simplemente, las dudas que me surjan las voy planteando por aquí. Si tienen rápida y fácil solución, bien. Y si no, pues ya pensaré yo en cómo hacerlo de otro modo (a eso me refería con lo de "elegir otro camino", no a otra cosa).