¿Como contar un dato en todas las hojas del excel?

[batsur]

Buenos días, he adaptado una macro en VB para poder hacer un conteo de todas las hojas y ver si está un valor y así saber cuantas veces se repite.
El código es...

Function...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Frank2021]

Hola,

cambia las variables de tipo Integer a tipo Long

Integer es para el rango de ‑32768 a 32768.

Saludos

 

[batsur]

Hola,

Gracias por la contestación.

Se ha arreglado lo del #¡NUM! pero ahora da otro tipo de "error".

Yo creo que el truco es pasar el valor numérico a texto, pero que no se como se hace en este...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

No entiendo en dondequieres buscar?, entiendo que en todas las hojas de la 1 a la 138, pero en cada hoja hay un rango en especifico? Columnas? Filas?

Saludos.

 

[batsur]

Hola, perdón por no saber explicarme

Lo que quiero buscar en cada página es el rango C1:C65000 (Columna/Filas) y en dicho rango contar los que coincidan con el texto que pongo en la última...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Haplox]

@batsur , lo primero sería subir tu archivo para hacer las pruebas, y segundo, aunque programes en C++ VBA es completamente distinto y creo que te has hecho un lío con los Dim...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Haplox]

aparte @batsur , puedes aprovechar las propias funciones de excel en su formato para VBA, como la de

contador=WorkSheetFunction.CountIf(Range("C:C"),valor a...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Haplox]

Reacciones: batsur

¿Qué? ¿Sorprendido?...

 

[Leopoldo Blancas]

Hola a Todos,

Esto recorre Todas las hojas del Libro...

Sub ContarBuscado_LBV()
    Dim i As Byte, nCoinciden&, Hoja As Worksheet
    For Each Hoja In Sheets
        nCoinciden =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[batsur]

Muy buenas.

Gracias por la colaboración y disculpas por no haber respondido antes, pero me ha sido imposible.

Esta madrugada aplico el código y ya comento como va.

Saludos y gracias!!!

 

[batsur]

Hola de nuevo.

Funciona perfectamente el híbrido entre mi formula y el código nuevo expuesto por Leopoldo Blancas.

Aquí lo pego completo y funcionando...

Function Contar3D(Columna As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí