James Bond

8000 códigos asignarle fechas manualmente, si lo vas a hacer diario es mucha perdida de tiempo, es más rápida una macro como la que esta abajo de esta pantalla cada cien registros aumenta la fecha 2 días y esta es la macro Sub colocar_fechas() Set...

Lo que puedes hacer es por ejemplo si tienes puros rojos poner una de ellas sin relleno (ojo sin relleno no es lo mismo que blanco, el código para blanco es 2 y para vacío es -4142), luego arrastras esa celda vacía hasta donde quieras y la fórmula se...

La línea Set a = Worksheets("prueba") hace que la macro solo funcione en la hoja prueba, sustitúyela por Set a = ActiveSheet esto hará que la macro se ejecute en cualquier hoja.

Prueba esta macro Sub registrar_datos() Set h1 = Worksheets("ficha").Range("b6").CurrentRegion Set h2 = Worksheets("tabla").Range("b4").CurrentRegion With h1 Set h1 = .Rows(2).Resize(.Rows.Count - 1, .Columns.Count) End With With h2 filas =...

Para lo hoja1 no hay problema cada que actives la macro tomara el valor de la celda ue escojas, pero para la hoja dos como no dices en que celda comienzan tus datos la macro la predefiní para que empezara a leer datos en la celda b2 a partir de hay...

¿Puedes poner un ejemplo más especifico y una captura de pantalla de tu información?, ¿Esto para darme una idea de que es lo que buscas?

prueba esta formula =+SI(AT1=0,10,SI(AT1-7<=-1,"X",AT1-7))

Contar. Si, es la fórmula que buscas checa el ejemplo en la captura de pantalla.

Te dejo los resultados de esta macro, para un manejo más fácil dividí la fórmula en 4 partes, el resultado final no cambia te lo pone en uno. y esta es la macro la primera línea busca todos los datos de hoja y una columna después de la ultima con...

Esta macro te coloca la lista en la misma hoja, justo abajo de tu lista original Sub transponer() Set datos = Range("b2").CurrentRegion With datos Set destino = .Rows(.Rows.Count + 3).Resize(.Rows.Count * .Columns.Count, 2) matriz = destino: x = 1...