Macro para copiar filas según la condición

Estaba buscando la manera de distribuir unas filas en diferentes hojas de un archivo excel según cumpliesen o no unas condiciones. Por ejemplo:

Todas aquellas filas que cumplan "Fila"B=Yes + "Fila"F=No + "Fila"=Corporate, copiarlas en la hoja "Corporate issues" al final de la lista.

Esto se repetiría para 3 condiciones más..

¿Alguna idea?

Respuesta
2

Lo más rápido sería filtrar la tabla por estas 3 condiciones y luego copiar las celdas filtradas a su nuevo destino.

A continuación podrás eliminar las filas filtradas del original (verifica de tener previamente una copia).

Si necesitas una macro, realiza estos pasos con la grabadora de macros encendida, al finalizar y detenerla encontrarás en un módulo del Editor el código generado (entras presionando juntas las teclas Alt y F11). Y nos lo tienes que escribir aquí para ajustarlo.

Sdos y no olvides valorar la respuesta si el tema queda resuelto.

Sub aConunpocodeazucarSanti()
'
' aConunpocodeazucarSanti Macro
' Ordena como Mary Poppins
'

'
Rows("2:2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=4, Criteria1:="=EUR", _
Operator:=xlOr, Criteria2:="=GBP"
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=5, Criteria1:=">=500", _
Operator:=xlAnd
ActiveWindow.SmallScroll ToRight:=12
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=24, Criteria1:= _
"Corporate"
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=18
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=17
ActiveWindow.SmallScroll ToRight:=-12
Range("C11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Corporate issues").Select
Range("B1106").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("B11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Corporate issues").Select
Range("B1106").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("C11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Corporate issues").Select
Range("A1106").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("H11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Corporate issues").Select
Range("C1106").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("D11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Corporate issues").Select
Range("D1106").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("A11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Corporate issues").Select
Range("E1106").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("I11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Corporate issues").Select
Range("F1106").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("E11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Corporate issues").Select
Range("G1106").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("M11:N11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Corporate issues").Select
Range("H1106").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("K11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Corporate issues").Select
Range("J1106").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=6
Sheets("COPIAR_BR").Select
Range("E358").Select
ActiveWindow.SmallScroll ToRight:=16
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=24, Criteria1:= _
"Financial"
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=17, Criteria1:="No"
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=18, Criteria1:="No"
ActiveWindow.SmallScroll ToRight:=-16
Range("C23").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Senior issues").Select
ActiveWindow.SmallScroll Down:=-9
Range("A522").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("B23").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Senior issues").Select
Range("B522").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("H23").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Senior issues").Select
Range("C522").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("D23").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Senior issues").Select
Range("D522").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("A23").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Senior issues").Select
Range("E522").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("I23").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Senior issues").Select
Range("F522").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("E23").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Senior issues").Select
Range("G522").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("M23:N23").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Senior issues").Select
Range("H522").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("K23").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Senior issues").Select
Range("J522").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=17, Criteria1:="No"
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=18, Criteria1:="Yes"
Range("C15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CB issues").Select
Range("A434").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("B15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CB issues").Select
Range("B434").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
ActiveWindow.SmallScroll ToRight:=0
Range("D15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CB issues").Select
Range("C434").Select
Range("D434").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("E15").Select
Sheets("COPIAR_BR").Select
Range("H15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CB issues").Select
Range("C434").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("A15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CB issues").Select
Range("E434").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("I15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CB issues").Select
Range("F434").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("E15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CB issues").Select
Range("G434").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("M15:N15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CB issues").Select
Range("H434").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("K15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CB issues").Select
Range("J434").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
ActiveWindow.SmallScroll ToRight:=10
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=18
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=17
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=24, Criteria1:=Array( _
"Agency", "Muni/Local Gov't", "Sovereign", "Supra"), Operator:=xlFilterValues
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=17
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=18
ActiveWindow.SmallScroll ToRight:=-10
Range("C14").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SSAs").Select
Range("A619").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("B14").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SSAs").Select
Range("B619").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("H14").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SSAs").Select
Range("C619").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("D14").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SSAs").Select
Range("D619").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("A14").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SSAs").Select
Range("E619").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("I14").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SSAs").Select
Range("F619").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("E14").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SSAs").Select
Range("G619").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("M14:N14").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SSAs").Select
Range("H619").Select
ActiveSheet.Paste
Sheets("COPIAR_BR").Select
Range("K14").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SSAs").Select
Range("J619").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
Sheets("COPIAR_BR").Select
ActiveWindow.SmallScroll Down:=-18
Range("A369").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "F"
Range("B369").Select
ActiveCell.FormulaR1C1 = "I"
Range("C369").Select
ActiveCell.FormulaR1C1 = "N"
Range("A369:C369").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Range("E371").Select
End Sub

Hice lo que me comentaste Elsa Matilde, lo que me ha salido un poco larga.. El problema que yo le veo es que cuando se vayan a copiar en cada una en su pestaña cada semana no se va a sumar a las ya existentes sino que borrará los que se encuentren en esas coordenadas, ¿habría alguna manera para que se copien en la primera fila en blanco?

Disculpa la demora... si aún no lo tenés resuelto aquí va la macro algo más corta.

Lo importante es que antes de pasar las col filtradas guardes en una variable la primer fila destino, y luego no es necesario ir a la hoja a pegarla (salvo que necesites un pegado especial).

Aquí van los ajustes para la 1er hoja, el resto es seguir el ejemplo.

¿Atención qué encontré que envias 2 col al mismo destino?

Sub aConunpocodeazucarSanti()
'
' aConunpocodeazucarSanti Macro
' Ordena como Mary Poppins
'
'
Rows("2:2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=4, Criteria1:="=EUR", _
Operator:=xlOr, Criteria2:="=GBP"
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=5, Criteria1:=">=500", _
Operator:=xlAnd
ActiveWindow.SmallScroll ToRight:=12
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=24, Criteria1:= _
"Corporate"
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=18
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=17
'ActiveWindow.SmallScroll ToRight:=-12
filx = Sheets("Corporate issues").Range("B" & Rows.Count).End(xlUp).Row + 1
'ATENCIÓN.... CONTROLAR COL ORIGEN Y DESTINO
Range("C11").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Corporate issues").Range("B" & filx)
Range("B11").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Corporate issues").Range("B" & filx)
Range("C11").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Corporate issues").Range("A" & filx)
Range("H11").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Corporate issues").Range("C" & filx)
Range("D11").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Corporate issues").Range("D" & filx)
Range("A11").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Corporate issues").Range("E" & filx)
Range("I11").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Corporate issues").Range("F" & filx)
Range("E11").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Corporate issues").Range("G" & filx)
Range("M11:N11").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Corporate issues").Range("H" & filx)
Range("K11").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Corporate issues").Range("J" & filx)
'ActiveWindow.SmallScroll Down:=6
Sheets("COPIAR_BR").Select
Range("E358").Select
'ActiveWindow.SmallScroll ToRight:=16
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=24, Criteria1:= _
"Financial"
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=17, Criteria1:="No"
ActiveSheet.Range("$A$2:$BB$355").AutoFilter Field:=18, Criteria1:="No"
'ActiveWindow.SmallScroll ToRight:=-16
'BUSCAR filx para la 2da hoja y repetir instrucciones según col origen/destino
'revisar en qué hoja se está antes del tema formatos
Range("A369:C369").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Range("E371").Select
End Sub

Antes de las instrucciones de formato asegurate en que hoja estás (supuestamente en la de origen) y debes seleccionar previamente la hoja destino, por ej:

sheets("SSaS").select

Arma la macro completa, probala y si surge algun error enviame la linea marcada de la falla.

Sdos.

Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo una base de datos en excel

En la cual sumo tres datos a1 b1 c1 suma 12 3 5 20 Necesito sumar los tres valores, los cuales varían pero la suma no debe ser mayor que 20, y si pasa de 20, que aparezca un mensaje de advertencia que diga valor no permitido y no deje avanzar ¿Cómo...
1 respuesta

Como sumo valores de celdillas de color rojo

Tengo una base en excel L M M J V S D L M M J V S D suma 1 2 1 4 3 1 2 2 2 3 4 6 6 1 10 Este numero diez es resultado de sumar los valores en negrita ¿Cómo puedo hacer que sume solo los valores de las celda de color negro?
1 respuesta

Cruce de base de datos

¿Me gustaría saber donde puedo encontrar buena información sobre el cruce de bases de datos en Excel?, ¿Si usted puede proporcionarme esta información seria mucho mejor? Por favor que la información sea lo más entendible posible.
2 respuestas

Cruzar datos

Antes que nada, quiero agradecerte la atención a mi pregunta anterior, tu respuesta resolvió ampliamente mis dudas, sobre convertir números a palabras. En esta ocasión quiero preguntarte en como cruzar datos en Excel, bueno realmente quiero hacer el...
2 respuestas

Alguien conoce una matriz en excel o access

Que me ayude a llevar las cobranzas de meensualidades de un colegio
3 respuestas

¿Apertura automática de un archivo Excel con el programador de Windows?

A tod@s! Quiero abrir un libro excel desde el programador a una hora. Al abrirlo quiero que me escriba en la hoja "Inicio" en la celda "L1" la palabra "PATATA". Que tipo de archivo debo crear (Bloc de notas) y tipo de código de codificación (ANSI,...
2 respuestas

Formulario para ingresar datos en una base de datos

Para Elsa Matilde En esta base de datos (Tabla Clientes), agregue la columna "J" Total, con una fórmula lo que no me realiza la macro con dicha modificación en la tabla al insertar los datos del formulario desde el botón Aceptar no logro que en dicha...
2 respuestas

Modificar Macros por agregar columnas

Nos hicieron falta 3 columnas... En este nuevo archivo: 1.- Agregue la Columna B y C, que una vez ingresado el dato en la G, deben de ser bloqueadas. 2.- Agregue la columna QUE, que tiene una fórmula, que debe de irse actualizando conforme se van...
2 respuestas

Quien sabe de un CRM gratis para WordPress?

Una vez más solicitando ayuda. Necesito empezar a utilizar un CRM para WordPress para organizar las cotizaciones enviadas a los clientes y poder realizar el seguimiento. La idea general es llenar el formulario con los datos del posible comprador del...
3 respuestas

Vba names add name refers to

Intento crear un árbol no binario en excel con la vba, he conseguido lo siguiente: ActiveWorkbook.Names.Add Name:="range(".....").value, RefersTo:="=Hoja6!a1:b1" El problema es que eh buscado muchas formas de hacer dinámico el rango para ingresar el...
2 respuestas