Hola ante todo, muchas gracias por permitir mi ingreso al foro.

Tengo un ejercicio q no logro resolver y quisiera ver si pueden ayudarme. El ejercicio dice: "Realizar una macro que ingrese dos números en dos celdas que de el usuario y por ultimo dejar el máximo en una celda tambien ingresada por el usuario"

En visual basic escribi:

Sub Macro1()

'

' Macro1 Macro

'

' Acceso directo: CTRL+j

'

Dim Numero1 As String

Numero1 = InputBox("Ingrese Numero1", "Datos")

ActiveSheet.Range("H1").Value = Numero1

Dim Numero2 As String

Numero2 = InputBox("Ingrese Numero2", "Datos")

ActiveSheet.Range("H2").Value = Numero2

End Sub

Hasta ahi logro ingresar los dos numeros, pero no se como dejar el maximo en una celda ingresada por el usuario. Quisiera que me ayuden, se los agradeceria. Gracias

pues haces una comparación:

IF val(Numero1) > val(Numero2) Then

ceda = Numero1

else

celda = Numero2

end if[/CODE]

donde celda es la celda donde quieres colocar el máximo, suerte

Gracias por la rápida respuesta, lo intentare como dices. Saludos.