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

La administración ha hecho pruebas para subir archivos y no presenta problemas. Por favor verifiquen la forma en que lo están haciendo.

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

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