Eduard Caballero respondió:
Acá tienes Private Sub CommandButton1_Click() Dim valor1 As Integer Dim valor2 As Integer Range("a2").Select Do While Not IsEmpty(ActiveCell) valor1 = ActiveCell.Value valor2 = ActiveCell.Offset(0, 1).Value If TextBox1.Value > valor1 And...