Sub DesignarMantenimiento() Dim tbl As Table Dim row As Integer Dim respuesta As String Dim fechaHoy As String Dim celdaFecha As Cell Dim celdaCompletado As Cell

' Tomar la fecha de hoy
fechaHoy = Format(Date, "dd/mm/yyyy")

' Asegúrate de tener solo una tabla en el documento o especifica la tabla adecuada
Set tbl = ActiveDocument.Tables(1)

' Iterar sobre cada fila, excluyendo el encabezado
For row = 2 To tbl.Rows.Count
    Set celdaFecha = tbl.Cell(row, 4) ' Columna de Fecha Programada
    Set celdaCompletado = tbl.Cell(row, 5) ' Columna de Tareas a Realizar

    ' Preguntar si el mantenimiento de este bloque fue completado
    respuesta = InputBox("¿El mantenimiento del " & celdaFecha.Range.Text & " para el " & tbl.Cell(row, 1).Range.Text & " fue completado? (Sí/No)", "Confirmación de Mantenimiento")

    ' Si la respuesta es Sí, actualizar la celda de tareas como completado
    If LCase(respuesta) = "sí" Then
        celdaCompletado.Range.Text = "Completado el " & fechaHoy
    End If
Next row

MsgBox "Designación de mantenimiento actualizada.", vbInformation

End Sub