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.]

1RESUELTO Resultado en rango seleccionado el 10/04/14, 01:37 pm

callao2908


Buenos días, molesto vuestra atención, ya que necesito obtener algunos valores y otros cálculos, en una tabla cuando ingrese, seleccione con el mouse, un rango de celdas en una tabla dada.
La macro me debe permitir obtener una vez que tengo el rango seleccionado lo siguiente:
número mayor, número menor, suma de todas las celdas, y por último el promedio de todas las celdas.
Siempre los rangos son contiguos, y sus celdas siempre estan llenas.
Agradeceré también tener en consideración para el caso de que no sean rangos contiguos, por ejemplo: A5:A8 con D5:D8, en este caso que me pueda dar los resultados para cada rango seleccionado


Adjunto el archivo.
Gracias por la ayuda que me puedan brindar
Jorge
Archivos
Resultados de rangos seleccionados.xls
No tienes los permisos para descargar los archivos.
(133 KB)

2RESUELTO Re: Resultado en rango seleccionado el 10/04/14, 02:45 pm

railar


Hola Jorge,

Con el siguiente código a través de dos inputbox, se realiza lo que quieres
Código:
Private Sub CommandButton1_Click()
Dim Rng As Range

Application.ScreenUpdating = False

CeldaInicial = InputBox("Digite la primera celda", "Celda Inicial")
CeldaFinal = InputBox("Digite la celda final", "Celda final")
Set Rng = Range(CeldaInicial, CeldaFinal)

    Range("I3").Formula = Application.WorksheetFunction.Max(Rng)
    Range("I4").Formula = Application.WorksheetFunction.Min(Rng)
    Range("I5").Formula = Application.WorksheetFunction.Sum(Rng)
    Range("I6").Formula = Application.WorksheetFunction.Average(Rng)

Range("I8") = UCase(Celdainicial & ":" & celdafinal)
   
 Application.ScreenUpdating = True

End Sub

Te paso el adjunto, Revisa y comenta

Saludos
Archivos
Resultados sobre rangos seleccionados.xls
No tienes los permisos para descargar los archivos.
(40 KB)



Última edición por railar el 10/04/14, 04:35 pm, editado 1 vez (Razón : Ampliación del código y cambio el archivo)

3RESUELTO Re: Resultado en rango seleccionado el 10/04/14, 04:43 pm

callao2908


Gracias railar por la eficacia y buen resultado.
Tema RESUELTO
Saludos
Jorge

4RESUELTO Re: Resultado en rango seleccionado el 10/04/14, 10:55 pm

Igtelo


Hola Callao / Raúl.

Te dejo alternativa con fórmulas tanto para rangos contiguos como no contiguos.
En el mismo encuentras explicación.

Saludos
Ignacio Téllez
Archivos
Resultados de rangos.xlsx
No tienes los permisos para descargar los archivos.
(20 KB)

5RESUELTO Re: Resultado en rango seleccionado el 11/04/14, 11:41 am

callao2908


Igtelo, muchas gracias por tú alcance. Una consulta adicional. Estas formulas NO se pueden incluir en una macro VBA, de tal manera que el resultado se obtenga yna vez hecha la selección con el mouse, como indiqué al comienzo.
Gracias
Jorge

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.