Macro. Copiar filas según condición.

Agradecería también que me ayudara en este otro macro, he separado los dos mensajes para que la respuesta no sea demasiado compleja.
Tengo una hoja en la que se han introducido una serie de registros.
Quisiera copiar en otra hoja sólo aquellas filas que cumplan una condición (La cual aparece en una celda) y que las copie en la hoja cuyo nombre también aparece en una celda.

1 Respuesta

Respuesta
3
Tus datos son muy escasos pero te coloco este ejemplo.
Acá tienes este ejemplo. Los datos serian nombre y empresa. La condición que pertenezcan a la empresa a
Sub copia()
Sheets(1).Select
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = "a" Then
nombre = ActiveCell
empresa = ActiveCell.Offset(0, 1)
Sheets(2).Select
Range("A65000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = nombre
ActiveCell.Offset(0, 1) = empresa
Sheets(1).Select
ActiveCell.Offset(1, 0).Select
Hola otra vez,
Antes que nada, gracias por ayudarme de manera desinteresada.
Voy a intentar dar los datos exactos de la macro que quiero conseguir:
1. Me encuentro en una hoja inicial en la cual hay una celda "D2" que tiene un número que será la condición.
2. El nombre de la hoja inicial desde donde se ejecuta la macro, varía. Por lo tanto no se como añadir a la macro que no tenga en cuenta el nombre de la hoja desde donde se ejecuta para luego, al final del proceso, vuelva a ella sin tener en cuenta el nombre.
3. Quisiera que al ejecutar la macro, fuese a la hoja "01.Entrada" y en el rango "B13:M500" copiase sólo las filas en las cuales la columna "B13:B500" cumpla la condición, la cual se encuentra en la hoja inicial del proceso, en la celda "D2".
4.Para terminar, que vuelva a la hoja inicial sin importar como se llame y que pegue las filas desde la celda "B11" en adelante.
Trato de restarle importancia al nombre de la hoja porque la macro se va a ejecutar en hojas de diferentes nombres y quiero evitar crear 100 macros, una para cada hoja cumpliendo el nombre exacto de la hoja.
Había pensado que estando en la hoja activa, copiase las filas deseadas pero sin activar ninguna otra hoja para evitar el lío de los nombres, pero no se si eso será posible, porque no se si se puede seleccionar un rango de una hoja sin desplazarse a ella.
Pido disculpas por la extensión de la cuestión, pero sólo llevo dos días en esto de las macros y es un proyecto que llevo entre manos mucho tiempo.
Espero haberme explicado lo suficiente, si no es así dímelo por favor.
Infinidad de gracias de nuevo.
Un saludo!
Acá tienes
Sub copia()
Application.ScreenUpdating = False
Range("D2").Select
hoja = ActiveSheet.Name
valor = Range("D2")
Sheets("Entrada").Select
Range("B13").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = valor Then
i = Selection.Row
Range("b" & i & ":" & "m" & i).Copy
Sheets(hoja).Select
Range("B11").Select
If ActiveCell = "" Then
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Entrada").Select
Else
Range("B65000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Entrada").Select
End If
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Sheets(hoja).Select
Application.ScreenUpdating = True
End Sub
Recuerda finalizar la respuesta
Hola de nuevo,
Debe de tener algún ligero problema, dentro del rango de selección "B13", me copia sólo la primera fila que cumple la condición de la columna B. He probado cambiar ese rango B13 por B13:B100000, y me copia la primera fila pero 100.000 veces la misma. Debe ser algún pequeño error, pero ya está cerca.
Pego la macro con mis datos modificados:
Sub ImportarDatos()
Application.ScreenUpdating = False
Range("D2").Select
hoja = ActiveSheet.Name
valor = Range("D2")
Sheets("01.Entrada").Select
Range("B13").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = valor Then
i = Selection.Row
Range("b" & i & ":" & "m" & i).Copy
Sheets(hoja).Select
Range("B11:B100000").Select
If ActiveCell = "" Then
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("01.Entrada").Select
Else
Range("B65000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("01.Entrada").Select
End If
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Sheets(hoja).Select
Application.ScreenUpdating = True
End Sub
Muchísimas gracias de nuevo.
Un saludo!
Eso no es el rango de selección este es el rango de selección a copiar
Range("b" & i & ":" & "m" & i).Copy
B13 es la celda donde se sitúa para comenzar a analizar los datos de la hoja de entrada.
Ese código esta probado con la hoja activa que debe ser donde vas a copiar los datos. Algo estar haciendo mal
No se que está mal:
Sub ImportarDatos()
Application.ScreenUpdating = False
Range("D2").Select
hoja = ActiveSheet.Name
valor = Range("D2")
Sheets("01.Entrada").Select
Range("B13").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = valor Then
i = Selection.Row
Range("B13" & i & ":" & "M100000" & i).Copy
Sheets(hoja).Select
Range("B11").Select
If ActiveCell = "" Then
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("01.Entrada").Select
Else
Range("B65000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("01.Entrada").Select
End If
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Sheets(hoja).Select
Application.ScreenUpdating = True
End Sub
Lo que hace la macro ahora es que en la hoja "01.Entrada", se queda en la primera celda vacía que encuentra en el rango B13:B65000.
Gracias de nuevo!
Amigo no modifiques el rango, tal cual como te pase el código funciona
Range("B13" & i & ":" & "M100000" & i).Copy Esto esta mal
Range("b" & i & ":" & "m" & i).Copy Asi esta bien
No me funciona. Dentro del rango donde debe de buscar la condición, se para en la primera celda vacía que encuentra.
Sub ImportarDatos()
Application.ScreenUpdating = False
Range("D2").Select
hoja = ActiveSheet.Name
valor = Range("D2")
Sheets("01.Entrada").Select
Range("B13").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = valor Then
i = Selection.Row
Range("B13" & i & ":" & "M100000" & i).Copy
Sheets(hoja).Select
Range("B11").Select
If ActiveCell = "" Then
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("01.Entrada").Select
Else
Range("B65000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("01.Entrada").Select
End If
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Sheets(hoja).Select
Application.ScreenUpdating = True
End Sub
Debe de ser una tontería.
Gracias por el tiempo que me dedicas.
Un saludo!
Creo que ya se donde esta el problema.
Resulta que en el rango B13:B500, hay celdas vacías entre medio y la macro esta diseñada para una columna sin celdas vacías en medio y que se pare cuando encuentre una celda vacía, es decir, la última, por eso se detenía a la tercera fila de la base de datos.
No se si es muy complicado introducir esa variable en la macro, en caso de serlo, no te preocupes, en lugar de dejarlas vacías, pondré un "-" o un "0".
Muchísimas gracias por dedicarme tu tiempo. Perdón por las molestias.
No finalizo la pregunta hasta que me contestes por si después de finalizarla no pudieras hablarme.
De todas formas un 10 sobre 10 para tu aportación!
Un saludo!
Eso es correcto se para en la celda vacia. Prefiero usar while eso un for.
Si se sale del while no hay forma de volver a comenzar el ciclo a menos que coloques un go to para iniciar nuevamente en una linea pero entraría en un loop cuando verdaderamente finalice los datos.
Podrías modificarlo con un for si es tu necesidad pero yo eliminarías las filas en blanco
Finaliza la pregunta si el objetivo esta cumplido

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para copiar según nombre de hoja

Tengo una macro con una hoja de registros por filas (hoja total), de esta hoja, con una macro paso los registros que tienen el la columna B:B el nombre de una hoja, a la correspondiente hoja. Esta es la mcro que repito para cada nombre de hoja: Sub...
1 respuesta

¿Cómo modificar macro?

Esta macro lo que hace es básicamente copiar datos de una hoja a las otras dos hojas en un libro excel, pero cuando hay una formula copia la formula, ¿Cómo puedo hacer para que en lugar de copiar la formula, sólo copie los datos?. Gracias por su...
1 respuesta

Macro que copia celdas sin repetir los datos copiados

Hará cosa de dos meses os consultaba una duda sobre una macro que me copiase celdas de una hoja a otra en determinadas columnas (la pregunta era: "Crear macro que copie celdas si cumplen una condición".) Me funcionó a la perfección, pero usándola me...
1 respuesta

Eliminar autoshapes sin eliminar validación

Tengo el siguiente código: Dim autoforma As Shape For Each autoforma In ActiveSheet.Shapes autoforma.Delete Next autoforma Range("A1").Select Pero resulta que en donde tengo que borrar las formas, tengo celdas en donde hay validación de datos y...
1 respuesta

Celda Activa, presionar enter para disparar Macro

Quiero hacer una macro que al dar ENTER en una celda dispare una macro, en la hoja "AL 1-MAR-08" en la columna A escribo un código, lo que hace la macro es buscar ese código en otra hoja "CATALOGO PROD", al encontrarlo, brinca 1 columna y el valor de...
1 respuesta

Macro que copie renglones segun valores en columnas

Tengo el siguiente detalle. En un libro de excel tengo alrededor de miles de registros, con la siguiente estructura: ColA ... Col E col F... Col AK col AL ... Col BD xx dato dato valor1 valor2 ... Valor 3 La cosa es la siguiente quiero que se copie...
1 respuesta

Optimizar macro

La verdad soy nuevo con las macros asi que no se mucho de códigos, pero quisiera poder optimizar el siguiente código., ya que, si realiza la tarea que necesito pero me parece que puede optimizarse; lo que más necesito es que cuando ya tengo muchos...
2 respuestas

Macro Filtro copiar pegar

Estoy trabajando con una macro, que una de sus funciones debe hacer lo siguiente: En la hoja 1 tengo una tabla con autofiltros, y en la hoja dos tengo que pegar los valores que levanto el filtro. El tema es que cuando lo hago con record macro, las...
1 respuesta

Utilizar Find en macros o procedimiento similar

Necesitaría que me ayudarais a buscar los distintos nombres de una persona, copiar toda la fila donde aparece, pegarla en otra hoja. Esto con cada nombre que se encuentre igual al indicado por nosotros. Yo lo que he intentado son dos formas pero...
1 respuesta

Ayuda con macro, copiar y pegar datos.

Agradecería que me echaran una mano con está macro que intento desarrollar; En la hoja 1, tengo 4 columnas que copio y pego (pegado especial sólo valores) a 4 columnas a la hoja 2 (columnas C, D, E, F). Teniendo en cuenta que me pega en la primera...
1 respuesta