Macro para copiar datos de una hoja a otra hoja (Excel 2010)
hola, lo que necesito es copiar todas las filas de la Hoja2, a la Hoja1, que en la columna A diga las letras IM, si no las tiene que las saltee.
Es para hacer un listado de deudas, necesito que al usar la macro me pase de la hoja2 todas las facturas que me debe a la hoja1.
Ej: en Hoja2 se encuentran estas 3 facturas impagas y pagas
A B C D F
1 IM 01/01/2010 001 Pedro $100
2 PA 01/02/2010 002 Pedro $100
3 IM 01/03/2010 003 Pedro $100
Que al usar la macro me copie solo las IM de columna A a la hoja1
A B C D F
1 IM 01/01/2010 001 Pedro $100
2 IM 01/03/2010 003 Pedro $100
Gracias
1 Respuesta
pueden ser las 2 opciones ya que seria como una base de datos, pero en el caso actual tiene títulos en las 2 hojas.
ponele titulo1 titulo2 ext como ref o lo que quieras es entendible luego para modificarlo.
gracias.
Bien, aquí vá con aclaraciones. Quizás debas incluir línea para limpiar la HOja1 antes de pasar nuevos datos filtrados
(Sheets("Hoja1"). Cells. Clear)
También el criterio puede ser tomado de alguna celda o a solicitud desde un InputBox.
Sub copiar_filtrado()
'x Elsamatilde
'si la tabla no tiene filtros se aplicae Autofiltro
'fila 1 tiene títulos
Range("A1").Select
If ActiveSheet.AutoFilterMode = False Then Selection.AutoFilter
ActiveSheet.Range("$A$1:$J$7").AutoFilter Field:=1, Criteria1:="IM"
Range("A2:F" & Range("A65536").End(xlUp).Row).Select
Selection.Copy
Sheets("Hoja1").Select
'se pega a partir de A2 - evaluar si hay que limpiar antes
Range("A2").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
