James Bond

Prueba esta macro, hace un filtro de lo que tenga la celda j1, (por cierto cambie esta referencia porque de dejarla hubiera creado conflictos con la macro), puedes poner una parte de la palabra y la macro filtrara todas aquellas celdas que las...

Ocupas tres macros una para que te haga un listado de las hojas en la hoja baja, en esa hoja marcas que hojas vas a ocultar con una POR, corres la segunda macro, que ocultara todo lo que tenga una POR, la tercera es opcional para mostrar todas las...

Este es elresultado de la macro y esta es la macro Private Sub Worksheet_Change(ByVal Target As Range) col = Target.Column fila = Target.Row If col = 2 Then If Range("b" & fila) >= Range("b" & fila).Offset(0, -1) Then Target.Interior.ColorIndex = 4...

Más que vínculos necesitas crear rangos personalizados y estos los pueden mandar llamar desde cualquier hoja o desde cualquier hoja te puedes posicionar en ellos, estos se crean así, en administración de nombres das en nuevo, luego asignas un nombre...

Esta macro lee los datos de la columna A de la hoja 1 y compara las marcas con las marcas presentes en la hoja2 si están presentes no hace nada si no están entonces ira copiando las filas una debajo de otra Sub COPIAR_UNICOS() Set ORIGEN =...

¿Son tablas normales o tablas creadas con excel las cuales tienen nombre?, la pregunta es porque dependiendo de como las creaste es como se hará la macro, ¿puedes poner una imagen de tus datos?, ¿Y si dices que son varias tablas los datos de la que...

Otra manera es la siguiente, como ves en la imagen use la función contar blancos si esta función es mayor a 0 pondrá 0 como resultado si es 0 quiere decir que en ambas celdas hay valores y hará una suma en este caso 5+5, esto tiene la ventaja que...

Prueba con esta macro te dirá que cuadro de imagen no tiene valga la redundancia imagen Private Sub CommandButton1_Click() Set controles = UserForm1.Controls For Each IMAGEN In UserForm1.Controls nombre = UCase(TypeName(IMAGEN)) = "IMAGE" If nombre...

Usa esta macro, hace un filtro de números mayores a 0 y los copia a la hoja2 Sub copiar_mayores_a_0() With Sheets("hoja1").Range("A1").CurrentRegion .AutoFilter 3, ">0" .Copy With Sheets("hoja2").Range("a1").CurrentRegion filas = .Rows.Count If filas...

Como no especificas en que celda de la columna A empiezan tus datos ni si estos tienen encabezado o no asumo que en la columna A1 esta el encabezado y a partir de la celda A2 hacia abajo están tus datos, la opción más fácil es aplicar un filtro...