Pegar valores con vínculos de una fila de acuerdo al valor de una columna

Tengo una tabla con diversos valores, y me gustaría ver si podrían ayudarme a hacer una macro que en caso de que el valor de la columna M sea "AUTORIZADO" copie todos los valores de esa fila y los pegue manteniendo los hipervínculos que se encuentran en la columna A; y en las filas que haga esta acción agregue en la columna AZ la fecha del día en el que se esta haciendo este cambio y cambie el texto de "AUTORIZADO" por "COMPLETADO".

1 Respuesta

Respuesta
2

Y a donde se van apegar, y en donde se agrega la fecha y el cambio, ¿en los datos originales o en los pegados?

Me gustaría que se pegaran como valores en la misma fila, osea que la fila que coincide con lo de "Autorizado" quedara sin fórmula, sino simplemente como valores

El cambio de autorizado se haría en la celda donde dice "Autorizado" para que ese texto cambiara por "Completado"

Y la fecha tendría que aparecer en la columna N de la fila que se haya modificado

De antemano gracias :D

Esta es la macro

Sub pegar()
'Por.Dante Amor
    For i = 1 To Range("M" & Rows.Count).End(xlUp).Row
        If UCase(Cells(i, "M")) = "AUTORIZADO" Then
            Rows(i).Copy
            Rows(i).PasteSpecial Paste:=xlValues
            Cells(i, "AZ") = Date
            Cells(i, "M") = "COMPLETADO"
        End If
    Next
End Sub

Cambia en la macro AZ por la columna en donde quieras poner la fecha.

Sigue las Instrucciones para un botón y ejecutar la macro

1. Abre tu libro de Excel

2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11

3. En el menú elige Insertar / Módulo

4. En el panel del lado derecho copia la macro

5. Ahora para crear un botón, puedes hacer lo siguiente:

6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas

7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.

8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”

9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: pegar

10. Aceptar.

11. Para ejecutarla dale click a la imagen.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas