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

tyno


Saludos entrañables amigos de este foro. Aqui estoy de nuevo despues de un tiempo, aunque baje las revoluciones con Excel por cuestiones de trabajo y horarios, sin embargo me he mantenido prestando alguna que otra ayudita oportuna via correo a un par de usuarios que tenian mi direccion.

Bueno, me gustaria poder volver al ruedo en la medida que los tiempos me lo permitan y para empezar tengo un dilema con una macro que muchos deben conocer y que pulula por internet. Esta macro lo que hace es simple: emula de alguna manera las operaciones de la barra de estado de excel 2007-10 en la version 2003, es decir promedio, suma, mayor, menor,etc :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Suma, Promedio, Cuenta, Maximo, Minimo
If Selection.Cells.Count <> 1 Then
On Error Resume Next
'Suma = "Suma: " & Application.WorksheetFunction.Sum(Selection)
Promedio = "Promedio: " & WorksheetFunction.Average(Selection)
Cuenta = "Cuenta: " & WorksheetFunction.CountA(Selection)
Maximo = "Máximo: " & WorksheetFunction.Max(Selection)
Minimo = "Mínimo: " & WorksheetFunction.Min(Selection)

Application.StatusBar = " " & _
Promedio & " " & Maximo & " " & Minimo & " " & Cuenta 'Suma & " " &
Else
Application.StatusBar = False
End If
On Error GoTo 0
End Sub

Esta un poco modificada por mi para que no muestre la suma porque esta ya la obtengo con la opcion que viene por defecto en excel 2003.

El tema es que quiero que esta macro fucnione para todos los libros de mi excel 2003. Es decir, colocando esta macro en ThisWorkbook de un determinado libro anda perfecto en el mismo, pero al poner esta macro en Personal.XLS no he logrado hacerla funcionar. Si tienen alguna idea o saben como hacerla andar en Personal.XLS desde ya se los agradezco. Un cordial abrazo. Very Happy

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.