Emilio Galicia

350 puntos España @emiliolebon desde 2016 - visto feb. 2023

Preguntar

Preguntas esperando respuesta

Estilos de Word Macro para sacar listado y seleccionar

el 13 feb. 23

Comprobar celdas vacías en rango variable

el 7 mar. 18

Ocultar y mostrar barras de herramientas en una hoja

el 26 jun. 17

Tablas dinámicas no funcionan subtotales

el 4 may. 17

Sumar fecha en un formulario

el 22 jul. 16

Actividad pública reciente

Estilos de Word Macro para sacar listado y seleccionar

Quería una macro en Word que me sacase un listado de los estilos que hay aplicados en un documento de Word y el numero de veces que se repiten en el documento. Este listado lo precisaria en un nuevo documento de Word o en un Excel también me sirve....

1 respuesta

Responder

Concatenar varias celdas con salto de línea por criterio

respondió:

Checa esta macro Sub crea_tablas() Dim unicos As New Collection Set datos = Range("a1").CurrentRegion titulos = Array("zona", "Nombre_kg", "total-kg") With datos filas = .Rows.Count Set datos = .Rows(2).Resize(filas - 1) Set tabla = .Rows(filas +...

1 respuesta

Responder

Comprobar celdas vacías en rango variable

Tengo una hoja de datos con varias columnas y un numero de filas variable según el día. Me haría falta una macro que por un lado me definiese el rango variable (este comienza en A1 y acaba en la ultima celda de la columna F). Y por otro me comprobase...

1 respuesta

Responder

Insertar una fila según condición de una celda

respondió:

Prueba con esta macro, este es el resultado final y esta es la macro Sub INSERTAR_FILA() Set DATOS = Range("A1").CurrentRegion With DATOS filas = .Rows.Count For i = 2 To filas otro: bruto = .Cells(i, 2): exento = .Cells(i, 3) If IsEmpty(exento) =...

2 respuestas

Responder

Función sumar.si en Visual Basic

respondió:

Te envío la macro sujeto a tu solicitud. Por favor recuerda valorar la respuesta! Slds Sub Macro1() ' ' Macro1 Macro ' Set Tool = Workbooks(ActiveWorkbook.Name) Set SH1 = Sheets("Hoja1") LastRow = SH1.Cells(SH1.Rows.Count, "A").End(xlUp).Row...

1 respuesta

Responder

Control de stocks en una celda

respondió:

[Hola Te paso la macro. Valora la respuesta para finalizar saludos! Sub calcular_stock() ' 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h2.Range("A" & Rows.Count).End(xlUp).Row Set r = h1.Columns("A") ' For i = 2 To u...

2 respuestas

Responder

Ocultar y mostrar barras de herramientas en una hoja

Tengo estas dos macros, la primera esconde la cinta de opciones, la barra de heramientas de acceso rápido y las fichas de la hojas y la segunda las vuelve a mostrar (con esto gano espacio en pantalla). El problema es que me esconde también la barra...

Sin respuestas

Responder