Haplox

Te he contestado arriba

Qué suerte... Yo llevo desde las 7:00 😒 Ya tenías la solución con el If Not Intersect(Range("D:D"),Target) Is Nothing Then End If Solo tendrías que modificar el rango si fuese otro. O eso, o sigo sin entender nada Copia de Copia de MCeldaActiva.xlsm

No he entendido nada... Si usas la siguiente columna ¿Qué quieres que ocurra? ¿o cuál es el problema?

¿Y porqué a mí me funciona sin problemas?

Bueno, es más bonito pero el principio es el mismo... es que yo iba con prisa

Pues sí, pero en tu ejemplo solo había una columna . Si no es así, sube un archivo de ejemplo real para poder establecer los rangos de la macro

A veces no hace falta una función, sino un poco de picardía 😉. Con un pequeño truco lo puedes conseguir. EN el fichero que te dejo, al cambiar de celda PRIMERO se gurda la dirección y el valor de la celda en O1 y O2, cuando vuelves a cambiar, esos valores se restauran pasándolos a la celda anterior. Mira el código para que te quede más claro... Si alguien tiene otra opción, que la deje Copia de MCeldaActiva.xlsm

A ver @CHEWACA, amí en un Office 2019 32bits me ha abierto sin problemas... Te envío la copia que he guardado a ver si te funciona Copia de FACTURACIO ESCOLAS BECAS.xlsm

Sube tu fichero, si no es imposible ayudar sin saber dónde están los datos y porqué no te filtra

No he entendido muy bien qué necesitas. Mira a ver si he acertado Copia de Ejemplo.xlsm

Quita que me tiznas, le dijo la sartén al cazo...

Lo primero que tienes que hacer es subir tu archivo de ejemplo, y explicar cómo funciona (¿dónde iría ese ID?) Así es imposible ayudarte

No me extraña, tienes un bucle para 1200 filas de las que el 99% están vacías... Con un Find te sobra. Pr cierto, si trabajas sobre la hoja activa, no hace falta para nada el "With ActiveSheet". En todo caso úsalo para trabajar sobre las otras ·With Sheets("KM_diarios)" Copia de Plantilla PARTE KM (v.1).xlsm

Venga... otro mío porque lo vales

Ya que lo acababa de hacer te dejo mi solución (te adelantaste por la mano @Antoni 😉) Copia de Ejemplo.xlsm