Hola necesito una macro en excel para copiar datos de una hoja a otra pero determinadas columnas

Tengo una hoja con datos desde B3 hasta AL108 y la ultima fila es variable y se va hasta la 350, todas la filas tienen datos, pero necesito una macro que me busque el criterio PEDRO CASTRO de la columna J desde la fila 3 hasta la ultima fila que contenga datos y me copie a a hoja 2 desde la columna B3 todos los datos que se encuentran con este criterio

Ejem. Esta así hoja1:

A B C D E F G H I J K

1

2

3 0001 AS TY UY 12 56 12 AA TT QQ MM

4 0002 DE GT JK 23 67 23 SS YY WW MN

5 0003 FG HG LM 34 78 34 DD SS EE VC

6 0004 GH JU NB 45 89 45 FF GG RR SE

debe quedar asi en la hoja2:

Columnas de la hoja1 que se deben copiar(a,d,g,i,j,k)

A B C D E F
1
2
3 0001 UY 12 TT QQ MM
4 0002 JK 23 YY WW MN
5 0003 LM 34 SS EE VC
6 0004 NB 45 GG RR SE

Ejemplo relativo a lo ue necesito, alguien me puede ayudar por favor???

1 Respuesta

Respuesta
1

No identifico cual es el criterio de Pedro Castro viendo los datos.

¿Puedes explicarlo mejor?

Hola, con las dIscuLpas del caso

Ejem. esta así hoja1:
A B C D E F G H I J K
1
2
3 0001 AS TY UY 12 56 12 AA TT QQ MM
4 0002 DE GT JK 23 67 23 SS YY Pedro Castro MN
5 0003 FG HG LM 34 78 34 DD SS EE VC
6 0004 GH JU NB 45 89 45 FF GG Pedro Castro SE

debe quedar asi en la hoja2:
Columnas de la hoja1 que se deben copiar(a,d,g,i,j,k) teniendo en cuenta que el rango es B3:AL 300 y varia de acuerdo a los meses hasta la ultima fila de AL

A B C D E F
1
2
3 0002 JK 23 YY Pedro Castro MN
4 0004 NB 45 GG Pedro Castro SE

Esta es la macro que necesitas

Sub proceso()
'por luismondelo
fila = 3
Sheets("hoja1").Select
Range("j3").Select
Do While ActiveCell.Value <> ""
If UCase(ActiveCell.Value) = "PEDRO CASTRO" Then
ActiveCell.Offset(0, -9).Copy
Sheets("hoja2").Cells(fila, 1).PasteSpecial Paste:=xlValues
ActiveCell.Offset(0, -6).Copy
Sheets("hoja2").Cells(fila, 2).PasteSpecial Paste:=xlValues
ActiveCell.Offset(0, -5).Copy
Sheets("hoja2").Cells(fila, 3).PasteSpecial Paste:=xlValues
ActiveCell.Offset(0, -1).Copy
Sheets("hoja2").Cells(fila, 4).PasteSpecial Paste:=xlValues
Sheets("hoja2").Cells(fila, 5).Value = ActiveCell
ActiveCell.Offset(0, 1).Copy
Sheets("hoja2").Cells(fila, 6).PasteSpecial Paste:=xlValues
fila = fila + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

recuerda finalizar

Muchas gracias me ayudó muchisimo la macro funciona bien, lo que me olvide poner en mi consulta es que las filas copiadas que se borren de la hoja1 como podría ser la macro???

Ok, quedaría así:

Ub proceso()
'por luismondelo
fila = 3
Sheets("hoja1").Select
Range("j3").Select
Do While ActiveCell.Value <> ""
If UCase(ActiveCell.Value) = "PEDRO CASTRO" Then
ActiveCell.Offset(0, -9).Copy
Sheets("hoja2").Cells(fila, 1).PasteSpecial Paste:=xlValues
ActiveCell.Offset(0, -6).Copy
Sheets("hoja2").Cells(fila, 2).PasteSpecial Paste:=xlValues
ActiveCell.Offset(0, -5).Copy
Sheets("hoja2").Cells(fila, 3).PasteSpecial Paste:=xlValues
ActiveCell.Offset(0, -1).Copy
Sheets("hoja2").Cells(fila, 4).PasteSpecial Paste:=xlValues
Sheets("hoja2").Cells(fila, 5).Value = ActiveCell
ActiveCell.Offset(0, 1).Copy
Sheets("hoja2").Cells(fila, 6).PasteSpecial Paste:=xlValues
fila = fila + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
'+++++++++++++++++++++++++++++++++++++++++++++++++++++
Range("j3").Select
Do While ActiveCell.Value <> ""
If UCase(ActiveCell.Value) = "PEDRO CASTRO" Then
activecell.entirerow.delete
else
activecell.offset(1,0).select
end if
loop
End Sub

recuerda finalizar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro sumar rangos en columna

Necesito una macro. Tengo una columna donde arrojo una lista de valores, pero no esta definido el rango en el que aparecen. Puede ser desde la J1 hasta J3000 o infinito.. La idea es que me sume esos valores y los totalice con raya para la suma...
1 respuesta

Crear bordes

Respetuoso para todos y todas. Quiero darle borde a una cantidad no definida de filas y columnas, ¿Cómo se genera el código para lograrlo?
1 respuesta

DIBUJAR CELDAS con macros

Tengo una Base de Datos en la que estoy asignando valores por medio de un UserForm de la sig forma: ActiveCell = TextBox1 '(TextBox2, ComboBox1, etc, etc..) El UserForm llena toda una fila de mil columnas en la base de datos. Y me gustaría poner una...
1 respuesta

Bordes con macro

Recurro a ustedes una vez mas. Tengo una simple macro que dibuja bordes negros en el exterior y grises en el interior ( un formato que uso muy habitualmente ) Funciona correctamente salvo en la ocasión en que solo tenga seleccionada una sola celda:...
1 respuesta

Macro para Imprimir hoja en impresora que no es la predeterminada.

Me podrían ayudar a generar una macro para imprimir una un archivo en dos paginas y mandarla a otra impresora que no es la predeterminada, Tengo varias impresoras en red y la que uso predeterminada es una impresora matriz, el tema es que el reporte...
1 respuesta

Problemas con un proceso de excel

Primero me presento pues soy nuevo en este foro. He encontrado por la web un montón de temas que hacen referencia al tema planteado, pero ninguno logra solucionarme el problema. El problema es el siguiente. Abro un libro de excel, y según los datos...
2 respuestas

Selección de varios rangos para aplicar formato

Bueno me voy de frente a explicar la macro que deseo hacer, primero debe seleccionar un rango dado pejm (B6:F30), ahora seleccionar rangos dentro de este pejm (B6:F6) aplicarle negrita, centrado y todo los bordes; (B7:B30) aplicarle borde externo;...
1 respuesta

Sobre macros en Excel

Me encargaron en la escuela dos ejercicios para hacerlos en excel pero no tengo mucha experiencia haciendo macros,.. ¿Podrías ayudarme? Los ejercicios son los siguientes: ---------- Crea una macro llamada PonerTitulo que realice las siguientes...
1 respuesta