Como dice el bueno de Haplox, "Está claro que no está claro".
Te dejo lo del If con lo que he entendido:
For y = 0 To 3
Select Case True
Case InStr(1, LCase(c.Offset(0, y)), "out"): c.Offset(0, y) = "NS"
End Select
Next
@oaseijas39 , teienes un buen jaleo, me temo...
No he entendido bien qué quieres hacer.
¿Quieres copiar el rango solo a la hoja que selecciones en el Inputbox, o a todas las hojas?
¿El rango copiado se pegaría en la misma posición en la hoja destino?
Deberías subir tu fichero original para dejarlo todo preparado en él
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now