angelcrisnor

Cuando a un rango que ya tienes seleccionado necesitas cambiarle más de una propiedad tienes que hacerlo con With Selection y a continuación todos los cambios. P.ej. para el primer case: Case "EN CLIENTE CARGANDO" Range("A" & LTrim(Str(Target.Row)) &...

Creo que te falta que después del ActiveWorkbook. Sabe del segundo libro vuelvas a poner activo el libro inicial. Tal y como está, en la segunda iteración del bucle el libro activo ya no es el inicial, sino el segundo...

Puedes utilizar la siguiente fórmula en una columna adyacente: =SI(A2-A1=1;"OK";"falta")

Esto hace lo que dices, pero ten cuidado, porque te borrará la propia celda A1. Rows("1:" + Trim(Str(Range("A14").Value))).Select Selection.Delete Shift:=xlUp

Necesitas programar tu condición como un control de evento. Este es el código que tienes que poner en el código VB de la Hoja donde tengas la celda: Private Sub Worksheet_Change(ByVal Target As Range) Static ValorAntiguo If Range("$B$4").Value <>...

Necesitas programar tu condición como un control de evento. Esta es el código que tienes que poner en el código VB de la Hoja donde tengas la celda: Private Sub Worksheet_Change(ByVal Target As Range) Static ValorAntiguo If Range("$B$2").Value = 0...

Revisa que estés utilizando correctamente la fórmula. No tiene porque funcionarte mal. Tal vez lo que te pase es que en las celdas no tengas realmente esos valores, sino que tengas más o menos decimales, pero el formato por defecto de la celda solo...

A ver si te sirve esta fórmula para la columna C: =B1&1+ENTERO((CONTAR.SI(B$1:B1;B1)-1)/10) Saludos Angel

Prueba a ver con esto: ... ... Range("A" & LTrim(Str(Target.Row)) & ":R" & LTrim(Str(Target.Row))).Interior.ColorIndex = 41 ... ...

Creo que simplemente necesitas esto: =BUSCARV(D1;A1:C4;3)