Macro que muestre datos iguales.

[LaFlower]

Hola que tal expertos, en esta ocasión recurro a ustedes ya que no tengo idea de como generar esta macro, lo eh hecho con la función de buscarv pero no me funciona tal cual yo quiero ya que solo me muestra el primer dato en el que coincide y los demás datos no me los toma en cuenta, espero me puedan ayudar a solucionar u orientar en como realizar lo siguiente.

Tengo un archivo de excel en donde tengo alrededor de 50 hojas cada una llamada ESTADO1,ESTADO2... asi sucesivamente... una de mis hojas se llama ACUMULADO que es donde tengo toda la información de la base de datos, por lo pronto ya logre que dependiendo del nombre de mi hoja se asigne a una celda dentro de ese libro (ESTADO1) es decir B1= ESTADO1; para hacer la comparación con la hoja ACUMULADO, pero no se como realizar esta comparación, ya que por ejemplo en mi hoja(ESTADO1) en la celda B1 esta el dato a comparar; en mi hoja(ACUMULADO) tengo el nombre de todos los ESTADOS en la celda F8 hasta F5000 lo que ocupo es que si por ejemplo en la celda F45, F55, F56 de la hoja ACUMULADO encuentra la palabra ESTADO1 entonces me extraiaga esos 3 datos en mi hoja llamada ESTADO1 en celdas definidas de antemano muchas gracias por la ayuda. Y por tomarse el tiempo de leer, comentar u aportar algo.

Saludos.

[Invitado Cacho R]

Sin ver el archivo de muestra tu explicación no es demasiado orientativa, ¿Sabes?

[LaFlower]

Perdon una gran disculpa; tal vez no soy la mejor explicando, ahora anexo archivo con un poquito mas de vision de lo que se pretende conocer o lograr... No se si se pudiera hacer la macro en forma general, es decir hacer solo una que al ejecutarla me muestre la informacion por libro, es decir si es acapulco muestre en la hoja acapulco lo que encontro, si es jalisco muestre lo que encontro sin necesidad de hacer tantas macros, o tendria que ser macro por hoja?

Ejemplo_MACRO.xls

[LaFlower]

Hola buen dia a todos!! Les comento que eh realizado varias pruebas, la verdad no soy nada buena en macros ni mucho menos programacion si alguien pudiera tomarse el tiempo y la molestia de ayudarme se los agradeceria mucho.

Que tenga un excelente inicio de semana.

Perdon una gran disculpa; tal vez no soy la mejor explicando, ahora anexo archivo con un poquito mas de vision de lo que se pretende conocer o lograr... No se si se pudiera hacer la macro en forma general, es decir hacer solo una que al ejecutarla me muestre la informacion por libro, es decir si es acapulco muestre en la hoja acapulco lo que encontro, si es jalisco muestre lo que encontro sin necesidad de hacer tantas macros, o tendria que ser macro por hoja?

[Antoni]

Hola:

Aquí te dejo una macro que te distribuye la hoja ACUMULADO por el resto de las hojas según el contenido de la celda A1.

Saludos

Distribuir por estado.xls

[LaFlower]

Wow! Marco Antonio Muchisisimas gracias por el excelente aporte y por la pronta respuesta es exactamente lo que necesitaba que generara el reporte; solo tengo una pregunta, yo la verdad desconosco la programacion asi que si no es mucho pedir y abusar de tu altuistra ayuda, pero me gustaria saber si existe alguna forma de poner esa informacion que se genera en un hoja con formato especifico... a lo que entiendo en esta parte es donde se le asigna en que celda debe de empezar a distribuir la informacion:

Hoja.Range("A2:F" & Hoja.Range("A" & Rows.Count).End(xlUp).Row + 1).Cells.Clear

mi hoja con formato comienza desde el rango B15 en todas las hojas... quedaria asi

Hoja.Range("B15:F" & Hoja.Range("A" & Rows.Count).End(xlUp).Row + 1).Cells.Clear

En caso de que solo necesite tres columnas a extraer Numero, Fecha de ingreso y Estado, como podria lograr realizar esto, y tambien dependiendo de mi hoja con formato especifico por ejemplo si son 20 datos los que encuentra para SALINA CRUZ me los agregue sin perder el formato y si hace falta agregar los renglones que sean necesarios con el mismo formato lo haga sin problemas.

De antemano se que estoy pidiendo mucho, pero es de suma importancia para mi trabajo, apenas me estoy adentrando a las macros, ya que solo se majenar formulas de excel.

GRACIAS!!

Trate de subir un archivo ejemplo pero no me permite, tal vez estoy haciendo algun paso mal,dejo un link externo... saludos

Zippyshare.com

[Antoni]

A ver si así lo ves mas claro.

Sub DistribuirPorEstado()


Dim Hoja As Worksheet



Application.ScreenUpdating = False

Sheets("ACUMULADO").Select



For Each Hoja In Sheets

   If Hoja.Name <> ActiveSheet.Name Then

      'Borra el rango A:F desde la fila 2 hasta el final de datos

      Hoja.Range("A2:F" & Hoja.Range("A" & Rows.Count).End(xlUp).Row + 1).Cells.ClearContents

   End If

Next



For x = 2 To Range("A" & Rows.Count).End(xlUp).Row

   If x Mod 100 = 0 Then Application.StatusBar = "... Procesando fila " & x

   For Each Hoja In Sheets

      If Hoja.Name <> ActiveSheet.Name Then

         If Range("F" & x) = Hoja.Range("A1") Then

            PrimeraFilaLibre = Hoja.Range("A" & Rows.Count).End(xlUp).Row + 1

            Hoja.Range("A" & PrimeraFilaLibre) = Range("A" & x) 'Número

            Hoja.Range("B" & PrimeraFilaLibre) = Range("B" & x) 'Fecha de ingreso

            Hoja.Range("C" & PrimeraFilaLibre) = Range("C" & x) 'Regional

            Hoja.Range("D" & PrimeraFilaLibre) = Range("D" & x) 'Estado

            Hoja.Range("E" & PrimeraFilaLibre) = Range("E" & x) 'Sucursal

            Hoja.Range("F" & PrimeraFilaLibre) = Range("F" & x) 'Con acento

            Exit For

         End If

      End If

   Next

Next



End Sub



[/CODE]

[LaFlower]

Marco Antonio muchas gracias por tu valioso tiempo y tu experiencia en esto de las macros, y una gran disculpa por mi gran falta de conocimiento.

Lo que entendi es que si yo quiero seleccionar solo unas columnas, lo que hice fue comentar las lineas de codigo:

Hoja.Range("A" & PrimeraFilaLibre) = Range("A" & x) 'Número

Hoja.Range("B" & PrimeraFilaLibre) = Range("B" & x) 'Fecha de ingreso

'Hoja.Range("C" & PrimeraFilaLibre) = Range("C" & x) 'Regional

'Hoja.Range("D" & PrimeraFilaLibre) = Range("D" & x) 'Estado

'Hoja.Range("E" & PrimeraFilaLibre) = Range("E" & x) 'Sucursal

Hoja.Range("F" & PrimeraFilaLibre) = Range("F" & x) 'Con acento

Sustitui el Valor de "F" por "C" para que las otras columnas no aparecieran en blanco y asi se recorra la informacion, Ya con esta informacion que me hiciste favor de enviar me quedo un poquito mas claro ya logre seleccionar las celdas que quiero, pero ahora no se como colocarlas desde la celda B15 y de ahi me empieze a llenar la informacion, ya que se tiene un formato especifico para cada hoja y si mi formato solo tiene 3 filas con formato y resulta que extrajo informacion para 8 filas entonces que agregue esas 5 filas mas sin perder el formato, anexe un link con un ejemplo de mi hoja formato la cual se maneja en todas las demas, pero no logro nada al respecto. Gracias por abusar de su tiempo.

De antemano una gran disculpa por mi ignorancia y gracias por tu gran aporte.

[Antoni]

Hola:

Lo siento LaFlower, pero AyudaExcel es un foro de consultas, no de formación.

La consulta inicial ha sido respondida, y por tanto cualquier otra consulta pasa por abrir un nuevo tema y volver a reformular la cuestión.

Saludos.

[LaFlower]

Muchas gracias Marco Antonio por tu gran ayuda. Me libraste de una grande.

Saludos.