Buenos dias usuarios... pido de su valiosa ayuda para obtener una macro.
Tengo dos valores en las celdas:
-AE7
-AC10
Necesito que con un CommandButton la celda AD9 tome el valor menor entre las dos celdas anteriores.
P.ej...
AE7=130 y AC10=150 entonces... AD9=130
espero sea entendible... saludos y mil gracias anticipadas.
Comparar 2 valores y tomar el menor
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
3 mensajes
• Página 1 de 1
Comparar 2 valores y tomar el menor
por Tepehuani » 16 Dic 2011 14:03
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- Tepehuani
- Miembro Frecuente
- Registrado: 22 Oct 2011 15:38
Re: Comparar 2 valores y tomar el menor
por Antoni » 16 Dic 2011 15:18
Hola:
Para lo que quieres no es necesario un botón.
Te adjunto un archivo que lo hace de forma automática cada vez que se modifica cualquiera de las celdas implicadas.
Para los que no se quieran descargar el archivo esta es la macro de hoja:
Saludos
Para lo que quieres no es necesario un botón.
Te adjunto un archivo que lo hace de forma automática cada vez que se modifica cualquiera de las celdas implicadas.
Para los que no se quieran descargar el archivo esta es la macro de hoja:
- Código: Seleccionar todo
Private Sub Worksheet_Change(ByVal Celda As Range)
If Not Application.Intersect(Celda, Range("AE7,AC10")) Is Nothing Then
If Range("AE7").Value < Range("AC10").Value Then
Range("AD9").Value = Range("AE7").Value
Else
Range("AD9").Value = Range("AC10").Value
End If
End If
End Sub
Saludos
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
Antoni - Miembro Frecuente
- Registrado: 22 Dic 2009 04:58
- Ubicación: GALICIA (ESPAÑA)
Re: Comparar 2 valores y tomar el menor
por Tepehuani » 16 Dic 2011 15:47
Gracias Antoni... funcionando de excelente ...muchas gracias!!! 
...saludos.
...saludos.
Antoni escribió:Hola:
Para lo que quieres no es necesario un botón.
Te adjunto un archivo que lo hace de forma automática cada vez que se modifica cualquiera de las celdas implicadas.
Para los que no se quieran descargar el archivo esta es la macro de hoja:
- Código: Seleccionar todo
Private Sub Worksheet_Change(ByVal Celda As Range)
If Not Application.Intersect(Celda, Range("AE7,AC10")) Is Nothing Then
If Range("AE7").Value < Range("AC10").Value Then
Range("AD9").Value = Range("AE7").Value
Else
Range("AD9").Value = Range("AC10").Value
End If
End If
End Sub
Saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- Tepehuani
- Miembro Frecuente
- Registrado: 22 Oct 2011 15:38
Compartir en:
3 mensajes
• Página 1 de 1
-
- Anuncio
¿Quién está conectado?
Usuarios navegando por este Foro: victor_mrc7 y 7 invitados
