Jump to content
JSDJSD

Como se podría modificar la macro para que funcione desde cualquier hoja?

Recommended Posts

Lo que hace la macro es comparar la hoja Datos y Filtrado y si encuentra coincidencia en la columna A de ambas hojas colorea de verde las filas que coinciden y añade en la última columna Comisionado y la fecha. He probado pero no consigo que me funcione desde otra hoja, solo me funciona desde la hoja Datos.

Prueba.xlsb

Share this post


Link to post
Share on other sites

Hola

Esta línea:

Hoja2.Range(Cells(i, "B"), Cells(i, "P")).Interior.ColorIndex = 4

No es correcta. Si estás usando la propiedad "Cells" y no especificas el objeto, pues lo toma como la hoja activa, es decir, para el VBA tu línea dice esto:

Hoja2.Range(Activesheet.Cells(i, "B"), Activesheet.Cells(i, "P")).Interior.ColorIndex = 4

Y por ende hay una incongruencia (hoja2 y hoja activa). Cámbiala por esta:

Hoja2.Range(Hoja2.Cells(i, "B"), Hoja2.Cells(i, "P")).Interior.ColorIndex = 4

Saludos

Abraham Valencia

Share this post


Link to post
Share on other sites

Hola! a ambos

Ademas de lo explicado por Avalencia, debes conocer el comando With / End With

Por lo que quedaría así [este procedimiento lo podrías correr desde cualquier hoja del libro]

Sub Comisión()

With Hoja2
For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
    If .Cells(i, "A") = Hoja3.Range("A2") Then
        .Range(.Cells(i, "B"), .Cells(i, "P")).Interior.ColorIndex = 4
        .Cells(i, "P") = "Comisionado" & " " & Date
    End If
Next
End With

End Sub

Y lo que se ahorra para programar!

 

Saludos 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png