¿Se puede crear una macro que tilde los pedidos entregados?

Necesito una macro que al presionar el botón de entregado que se encuentra en cada día de la semana, busque por el legajo y coloque si o un tilde en la columna H, o sea una macro para cada día de la semana.

Respuesta
1

¿Es en toda la hojas o solo en la hoja Viernes?

¿Todas las hojas tiene el botón entregado?

Para el botón en seria de la siguiente manera

Sub Entrtegado()
    Set h = ActiveSheet
    Set b = h.Columns("A").Find(Range("j3"))
    If Not b Is Nothing Then
    b.Select
 h.Cells(b.Row, "H") = "SI"
    End If
End Sub

donde J3 es un numero que colocas como numero unico

Si te silve no olvides valorar para cerrar la pregunta 

En todas las hojas

¿Probé pero no funciona hay manera de que te envíe el archivo?

El botón de entregado esta en cada día de la semana de lunes a vienes

[email protected]  este es mi correo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas