James Bond

Pega esta macro en el modulo thisworkbok de VBA de la hoja donde las vayas a usar, primero valida que sea texto y si lo es lo pasa a mayúsculas al dar enter Private Sub Worksheet_Change(ByVal Target As Range) If...

Prueba con esta macro Sub sumar_rangos() Set h2 = Worksheets("hoja1") Set h1 = Worksheets("hoja2") filas = h1.Range("A" & Rows.Count).End(xlUp).Row cuenta_llenos = WorksheetFunction.CountA(h1.Range("a:a")) vacios = filas - cuenta_llenos + 1 For i = 1...

Este es el resultado de la macro y esta es la macro Sub LLENAR_MESES() COLM = Range("P1").Column Set DATOS = Range("A1").CurrentRegion MESES = Array("ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", _ "JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE",...

Lo que pides es bastante complejo por fórmulas es para hacerlo con una macro o con una función personalizada y para acabarla por fórmula hay que eliminar el texto dentro de los flujos por hora.

No especificas si los centros son valores únicos o están duplicados asumiendo que son valores únicos la amcro que ocupas es esta, también supongo que tus datos empiezan en la celda a1, de no ser así solo cambia este valor. Sub crear_hojas() Set...

El problema es que usas Do ese tipo de instrucción además de lenta genera muchos problemas, una forma mucho más rápida de validar es leer el dato de la columna de b de la hoja concreción y con una función contar compararla en solo paso con todos los...

El problema radica en que estas haciendo la comparación 1 a 1 es decir si tienes 5000 filas y cada fila la quieres comparar realizara 25 millones de comparaciones y si hace le agregamos el hecho que pusiste un doevent y un status bar entonces tu...

Prueba con esta macro, solo elimina las columnas de la hoja base de datos Sub borrar_columnas() With Sheets("base de datos") .Range("A:A").EntireColumn.Delete .Range("C:C").EntireColumn.Delete .Range("F:F").EntireColumn.Delete...

Prueba con este conjunto de macros, no son mías hace tiempo las baje de internet en mi maquina quizá sea porque le cambie la tarjeta madre no se sale el serial de la maquina, eso si te da un buen de información sobre el equipo en el que lo utilices,...

Prueba con esta macro Sub COPIAR_VALES() Set DATOS = Range("A10").CurrentRegion INICIA = Range("A5") FIN = Range("B5") cantidad = FIN - INICIA + 1 With DATOS filas = .Rows.Count With .Cells(filas + 1, 1).Resize(cantidad, 1) .Value = Range("C3")...