Unidad 2

 programa 1

 Sub proyectou2()
Dim tarea As Integer
Dim evalua As Integer
Cells(2, 1).Select
tarea = Cells(2, 1).Value
evalua = Cells(2, 2).Value
'MsgBox (evalua)
Cells(2, 3) = tarea >= 70 And evalua >= 70

'MsgBox (tarea)
End Sub

 

programa 2

 Sub eje_select()
Cells(1, 3).Select  'posicionarse en una celda en especifico

End Sub

 

actividad 1

 Sub proyectou2()
Dim tarea As Integer
Dim evalua As Integer
Cells(2, 1).Select
tarea = Cells(2, 1).Value
evalua = Cells(2, 2).Value
'MsgBox (evalua)
Cells(2, 3) = tarea >= 70 And evalua >= 70

'MsgBox (tarea)
End Sub

actividad 2