Emilio  Galicia

Emilio Galicia

 350 puntos  España @emiliolebon desde - visto

Actividad pública reciente

Ha cambiado su perfil.
  • Ha cambiado la información de trabajo.
Ha cambiado su perfil.
  • Nombre completo: Emilio Galicia.
Ha preguntado en el tema en

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....
Ha valorado "Excelente" la respuesta

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 +...
Ha preguntado en el tema en y en 1 temas más

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...
Ha valorado "Excelente" la respuesta

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) =...
Ha valorado "Excelente" la respuesta

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...
Ha valorado "Excelente" la respuesta

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...
Ha preguntado en el tema en y en 2 temas más

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
Ha empezado a seguir a
Ha empezado a seguir a
Ha empezado a seguir a

Mejores respuestas proporcionadas

Trabajo

  • Comercial