Para "KL"

Hola Manuel,

El truco esta en colocar el codigo VBA correctamente. Prueba seguir los siguientes pasos antes de usar la funcion en la hoja:

Con el libro donde quieres usar la funcion abierto...
1) Haz clic-derecho sobre el pequeno logo de Excel a la izquierda del menu Archivo
2) Elige la opcion 'Ver Codigo' para abrir el editor VBA.
3) Una vez en el Editor VBA, ve al menu Insertar>Modulo...
4) En la ventana mas grande a la derecha pega el codigo de Fernando Arroyo:

'-Inicio Codigo--
Function ContarColorFondo(rngCeldaColor As Range, rngRangoAContar As Range) As Long
Dim rngCelda As Range

For Each rngCelda In rngRangoAContar
If rngCelda.Interior.ColorIndex = rngCeldaColor.Cells(1, 1). _
Interior.ColorIndex Then ContarColorFondo = ContarColorFondo + 1
Next rngCelda

Set rngCelda = Nothing
End Function
'-Fin Codigo--

5) Pulsa Alt+F11 para volver a la hoja.
6) vuelve a probar tu formula

Nota: Para que el codigo funcion es necesario que se habiliten los macros al abrir el archivo. Si al abrir un archivo con macros, Excel no te pregunta si quieres habilitarlos, ve al menu Herrmientas>Macro>Seguridad... y marca el nivel Medio.

Saludos,
KL



"Manuel Peralta Torúa" wrote in message news:

Caray!! No doy una, Entré al primer sitio que me recomendó KL
Fernando Arroyo: http://www.excelesp.com/
Hay una sección de FUNCIONES PERSONALIZADAS quise practicar con eso de los
colores pero me sale un error: La fórmula contiene texto no reconocido, ya
probé varias veces y no me da, entonces estoy apenadp ´pr mi falta de
capacidad que podrá estar pasando

=ContarColorFondo(C1;A1:A50)
=nColor(Celda)
Yo pensé :que bien estas fórmulas me gustan y se ven fáciles pero nomás no
pude.


"Jonathan Milla" escribió:

Un saludo desde Merida, Yucatan, y gracias por este posteo
Es bueno contar con gente como ustedes...

"KL" escribió en el mensaje
news:
Hola Manuel,

Te agradezco este "feedback" de corazon.

> ¿habrá una manera de estudir algo
> para llegar a dominar este asunto...?, ¿Qué me recomiendas, habrá algún
> curso o algo asi?

Lo de los cursos no sabre decirtelo - nunca he tenido uno en Excel. Lo que
si te digo es que [casi] todo lo que se, viene de

1) participar en los grupos de noticias de Excel:
microsoft.public.es.excel
microsoft.public.excel
microsoft.public.excel.misc
microsoft.public.excel.worksheet.functions
microsoft.public.excel.programming

2) haber leido los siguientes libros:
"Microsoft Excel 2000 Power Programming with VBA", John Walkenbach
"Microsoft Excel 2000 Visiual Basic for Applications Fundamentals", Reed
Jacobson
"Definitive Guide to Excel VBA", Michael Kofler

3) Visitar constantemente las paginas web que te pongo al final de este
mensaje.

4) estar constantemente experimentando con Excel

> ...por lo pronto ojalá que
> estés dispuesto a seguir con tu valiosa ayuda

De momento no tengo planes de cortar la coleta :-)

Saludos,
KL


Paginas web.

en castellano:
Fernando Arroyo: http://www.excelesp.com/
Enrique Martinez Montejo:
http://mvp-access.com/softjaen/arti..._excel.htm
Hector Miguel: http://www.sistemaslym.net/vba/excel/exarc1.html
Asistencia Microsft Office:
http://office.microsoft.com/es-es/a...23082.aspx

en ingles:
John Walkenbach: http://j-walk.com/ss/
Chip Pearson: http://www.cpearson.com/excel.htm
Charles Williams (DecisionModels): http://www.decisionmodels.com/
John Peltier: http://peltiertech.com/Excel/index.html
Ron de Bruin: http://www.rondebruin.nl
Bob Philips: http://www.xldynamic.com/source/xld.UsingMenu.html
Debrah Dalgleish: http://www.contextures.com/
Erlandsen Data Consulting: http://www.erlandsendata.no/english/
Laurent Longre: http://xcell05.free.fr/
Tushar Mehta: http://www.tushar-mehta.com/excel/
Rob Bovey: http://www.appspro.com/Tips/Tips_And_Tricks.htm
David McRitchie: http://www.mvps.org/dmcritchie/excel/excel.htm
Andy Pope: http://www.andypope.info/index.htm
Jurgen Volkerink (KeepItCool):
http://members.chello.nl/keepitcool/addins.html
Dick Kusleika: http://www.dicks-blog.com/excel/
Stephen Bullen' Excel MVP's page: http://www.bmsltd.ie/MVP/Default.htm
MrExcel.com: http://www.mrexcel.com
Matt Evans: http://www.exinfm.com/free_spreadsheets.html
Karl Peterson: http://vb.mvps.org/samples/
Bob Umlas: http://www.emailoffice.com/excel/ar...umlas.html
Carlos Quintero: http://www.mztools.com/
Van Gelder: http://homepages.paradise.net.nz/~robree/excel/
Masaru Kaji aka Colo http://www.puremis.net/excel/
OzGrid: http://www.ozgrid.com/
Ed Ferrero: http://www.edferrero.com/
Fernando Cinquegrani: http://www.prodomosua.it/ppage02.html
Enhanced Datasystems:
http://www.enhanceddatasystems.com/...lStuff.htm
Constants Excel 2003/2000: http://www.xcelfiles.com/XL2000_2003C.html
Tutorial Solver: http://www.solver.com/stepbystep.htm
ExtremeVBTalk (newsgroup): http://www.visualbasicforum.com/

Perfecto ya lo logré, es que yo creía que era una fórmula directa que se
podía usar así sin más ni más y no sabía que era una macro

"KL" escribió:

Hola Manuel,

El truco esta en colocar el codigo VBA correctamente. Prueba seguir los siguientes pasos antes de usar la funcion en la hoja:

Con el libro donde quieres usar la funcion abierto...
1) Haz clic-derecho sobre el pequeno logo de Excel a la izquierda del menu Archivo
2) Elige la opcion 'Ver Codigo' para abrir el editor VBA.
3) Una vez en el Editor VBA, ve al menu Insertar>Modulo...
4) En la ventana mas grande a la derecha pega el codigo de Fernando Arroyo:

'-Inicio Codigo--
Function ContarColorFondo(rngCeldaColor As Range, rngRangoAContar As Range) As Long
Dim rngCelda As Range

For Each rngCelda In rngRangoAContar
If rngCelda.Interior.ColorIndex = rngCeldaColor.Cells(1, 1). _
Interior.ColorIndex Then ContarColorFondo = ContarColorFondo + 1
Next rngCelda

Set rngCelda = Nothing
End Function
'-Fin Codigo--

5) Pulsa Alt+F11 para volver a la hoja.
6) vuelve a probar tu formula

Nota: Para que el codigo funcion es necesario que se habiliten los macros al abrir el archivo. Si al abrir un archivo con macros, Excel no te pregunta si quieres habilitarlos, ve al menu Herrmientas>Macro>Seguridad... y marca el nivel Medio.

Saludos,
KL



"Manuel Peralta Torúa" wrote in message news:
> Caray!! No doy una, Entré al primer sitio que me recomendó KL
> Fernando Arroyo: http://www.excelesp.com/
> Hay una sección de FUNCIONES PERSONALIZADAS quise practicar con eso de los
> colores pero me sale un error: La fórmula contiene texto no reconocido, ya
> probé varias veces y no me da, entonces estoy apenadp ´pr mi falta de
> capacidad que podrá estar pasando
>
> =ContarColorFondo(C1;A1:A50)
> =nColor(Celda)
> Yo pensé :que bien estas fórmulas me gustan y se ven fáciles pero nomás no
> pude.
>
>
> "Jonathan Milla" escribió:
>
>> Un saludo desde Merida, Yucatan, y gracias por este posteo
>> Es bueno contar con gente como ustedes...
>>
>> "KL" escribió en el mensaje
>> news:
>> Hola Manuel,
>>
>> Te agradezco este "feedback" de corazon.
>>
>> > ¿habrá una manera de estudir algo
>> > para llegar a dominar este asunto...?, ¿Qué me recomiendas, habrá algún
>> > curso o algo asi?
>>
>> Lo de los cursos no sabre decirtelo - nunca he tenido uno en Excel. Lo que
>> si te digo es que [casi] todo lo que se, viene de
>>
>> 1) participar en los grupos de noticias de Excel:
>> microsoft.public.es.excel
>> microsoft.public.excel
>> microsoft.public.excel.misc
>> microsoft.public.excel.worksheet.functions
>> microsoft.public.excel.programming
>>
>> 2) haber leido los siguientes libros:
>> "Microsoft Excel 2000 Power Programming with VBA", John Walkenbach
>> "Microsoft Excel 2000 Visiual Basic for Applications Fundamentals", Reed
>> Jacobson
>> "Definitive Guide to Excel VBA", Michael Kofler
>>
>> 3) Visitar constantemente las paginas web que te pongo al final de este
>> mensaje.
>>
>> 4) estar constantemente experimentando con Excel
>>
>> > ...por lo pronto ojalá que
>> > estés dispuesto a seguir con tu valiosa ayuda
>>
>> De momento no tengo planes de cortar la coleta :-)
>>
>> Saludos,
>> KL
>>
>>
>> Paginas web.
>>
>> en castellano:
>> Fernando Arroyo: http://www.excelesp.com/
>> Enrique Martinez Montejo:
>> http://mvp-access.com/softjaen/arti..._excel.htm
>> Hector Miguel: http://www.sistemaslym.net/vba/excel/exarc1.html
>> Asistencia Microsft Office:
>> http://office.microsoft.com/es-es/a...23082.aspx
>>
>> en ingles:
>> John Walkenbach: http://j-walk.com/ss/
>> Chip Pearson: http://www.cpearson.com/excel.htm
>> Charles Williams (DecisionModels): http://www.decisionmodels.com/
>> John Peltier: http://peltiertech.com/Excel/index.html
>> Ron de Bruin: http://www.rondebruin.nl
>> Bob Philips: http://www.xldynamic.com/source/xld.UsingMenu.html
>> Debrah Dalgleish: http://www.contextures.com/
>> Erlandsen Data Consulting: http://www.erlandsendata.no/english/
>> Laurent Longre: http://xcell05.free.fr/
>> Tushar Mehta: http://www.tushar-mehta.com/excel/
>> Rob Bovey: http://www.appspro.com/Tips/Tips_And_Tricks.htm
>> David McRitchie: http://www.mvps.org/dmcritchie/excel/excel.htm
>> Andy Pope: http://www.andypope.info/index.htm
>> Jurgen Volkerink (KeepItCool):
>> http://members.chello.nl/keepitcool/addins.html
>> Dick Kusleika: http://www.dicks-blog.com/excel/
>> Stephen Bullen' Excel MVP's page: http://www.bmsltd.ie/MVP/Default.htm
>> MrExcel.com: http://www.mrexcel.com
>> Matt Evans: http://www.exinfm.com/free_spreadsheets.html
>> Karl Peterson: http://vb.mvps.org/samples/
>> Bob Umlas: http://www.emailoffice.com/excel/ar...umlas.html
>> Carlos Quintero: http://www.mztools.com/
>> Van Gelder: http://homepages.paradise.net.nz/~robree/excel/
>> Masaru Kaji aka Colo http://www.puremis.net/excel/
>> OzGrid: http://www.ozgrid.com/
>> Ed Ferrero: http://www.edferrero.com/
>> Fernando Cinquegrani: http://www.prodomosua.it/ppage02.html
>> Enhanced Datasystems:
>> http://www.enhanceddatasystems.com/...lStuff.htm
>> Constants Excel 2003/2000: http://www.xcelfiles.com/XL2000_2003C.html
>> Tutorial Solver: http://www.solver.com/stepbystep.htm
>> ExtremeVBTalk (newsgroup): http://www.visualbasicforum.com/
>>
>>
>>