UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Reydecopas


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

Igtelo


Hola Reydecopas, bienvenido al foro.

Complementa tu código con esto:

Dim Celda As String
Dim Maximo As String
Celda = InputBox("En que celda va el máximo?", "CELDA")
Maximo = "Máximo " &Application.WorksheetFunction.Max(ActiveSheet.Range("H1: H2"))
ActiveSheet.Range(Celda).Value = Maximo


Sino quieres que aparezca la palabra máximo, pues eliminas esto: "Maximo "&

Saludos
Ignacio Téllez

railar


Hola ReydeCopas // Nacho
Puede probar así: posicionándose inicialmente en la celda donde va el resultado (Celda activa) y después ejecutar la macro
Código:
Sub maximo()
Application.ScreenUpdating = False

Dim Numero1 As Integer
Dim Numero2 As Integer
Dim Numero3 As Integer
Numero1 = InputBox("Ingrese Numero1", "Datos")
ActiveSheet.Range("H1").Value = Numero1
Numero2 = InputBox("Ingrese Numero2", "Datos")
ActiveSheet.Range("H2").Value = Numero2

If Numero1 > Numero2 Then
Numero3 = Numero1
ActiveCell.Value = Numero3
Else
Numero3 = Numero2
ActiveCell.Value = Numero3
End If

Application.ScreenUpdating = True

End Sub

Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.