Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

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.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png