Contar hojas con un criterio

Como haría para contar las las hojas que me cumplan un criterio en una celda. Ejemplo si la celda a1 contiene aprobado, me de el numero de estas, pueden haber mas de 20 hojas.( De acuerdo a ese numero tengo que realizar otras labores como modificar el área de impresión de una hoja o modificar una formula etc).

Respuesta
2

Te dejo el código que hace lo que necesitas, debes lanzar la macro una vez te posiciones en la celda que quieres comparar

Sub ContarIgualesEnLibro()
''Creada por FSerrano en 120316
''para edlsalv en TodoExpertos.com
''Cuenta el número de hojas en el libro que contienen el mismo valor de la celda actual
dirección = ActiveCell.Address
For Each Sheet In ActiveWorkbook.Sheets
    If Sheets(Sheet.Index).Range(dirección) = ActiveCell Then
        cont = cont + 1
    End If
Next Sheet
A = MsgBox("En el libro actual existe(n) "& cont &" hoja(s) que"& Chr(10) &"tiene(n) el mismo valor de la celda actual", vbOKOnly,"COINCIDENTES")
End Sub

mil gracias, como siempre amigo experto siempre das una fantástica solución, muy rápida y oportuna, definitivamente, debo aprender a trabajar con las hojas, agradezco si me recomiendas un buen libro. saludos y gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para ocultar/mostrar Hoja en Exel

Tengo una libro de exel con varias hojas. Ese libro de exel yo lo mando por internet a mis clientes, hay alguna opción para que ese libro lo prepare para envío, es decir Ejemplo que al oprimir Ctrl+W se oculten de las 5 hojas que tengo 4 y que solo...
1 respuesta

Macro para pegar y copiar

Nuevamente solicitando el apoyo de los expertos, necesito desarrollar una Macro. Tengo un archivo con "n" numero de hojas (el numero de hojas varia mes con mes) Necesito una macro que recorra hoja por hoja, copie los datos y los pegue en una nueva...
1 respuesta

Macro para eliminar filas según valor de celda

Me pudieran ayudar con una macro que elimine toda una fila según el valor de una celda de esa fila. 1.- La macro deberá preguntar el valor (numérico) a buscar y a eliminar dentro de una hoja 2.- Que sean borradas todas las filas cuyo valor sea igual...
1 respuesta

Insertar datos en dos hojas de excel desde un textbox

Tengo en un userForm con varios comboBox y textBox, además de varios commandbutton siendo un commandbuton el que me inserta los datos. La pregunta es: qué código debo utilizar para insertar los datos en dos hojas de excel al mismo tiempo y que además...
1 respuesta

Copiar la misma celda de muchas hojas de un mismo Libro Excel a otra Hoja distinta o Libro.

Tengo un archivo Excel con unas 7.000 hojas. Necesito crear un archivo (ya sea una hoja dentro del mismo Libro o un Libro aparte), donde copiar el dato de la misma casilla en todas las 7000 hojas. Ejemplo: En cada hoja del Libro, en la casilla b11,...
2 respuestas

Manejo de la tecla Intro

Tengo una hoja de Excel, que esta dividida en varias columnas, y dentro de las mismas hay celdas. Dentro de cada columna, me muevo por sus celdas con las teclas de dirección, pero cuando le doy a Intro se va para abajo, lo que quiero es que vaya el...
1 respuesta

Código para pasar de una celda a otra con un ENTER o retroceder a la celda anterior con TAB

Ok, como dice la pregunta en el encabezado esto es lo que tengo... Estas son las celdas de captura (B1, C2, D3) ejemplo: .........A................B.............C................D...... 1 NOMBRE:...LUIS 2 ... COLOR:...ROJO 3 ... ... PUNTOS:...78 Lo...
1 respuesta

Cuenta regresiva en excel

Sigo con mi mismo trabajo, y ahora lo que me pidieron realizar, si es posible, es colocar una cuenta regresiva, ya que para lo que estoy realizando este trabajo, almacenana elementos, que a los 3 meses deben ser eliminados, por lo tanto me gustaría...
1 respuesta

Necesito copiar los datos de varias hojas excel y misma celda en una sola hoja y correlativos.

Tengo un libro excel con varias hojas. En cada hoja y en la misma celda hay un dato numérico. Hay manera automática de traspasar todos esos datos de la misma celda ¿A una sola hoja y que se copiaran correlativas (una debajo de otra)?.
1 respuesta