Macro en excel

hola, Max !

segun los datos que expones, prueba con una macro +/- como la siguiente:
deberas adaptar/corregir/modificar/... donde los datos 'reales' sean diferentes de cualquier supuesto :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codigo 'general' ==Sub Traspasa_datos()
Application.ScreenUpdating = False
With Worksheets("hoja1")
If .AutoFilterMode Then .Cells.AutoFilter
.[a1].AutoFilter Field:=1, Criteria1:="a"
With .AutoFilter.Range
With .Offset(1).Resize(.Rows.Count - 1)
.Copy Worksheets("hoja2").[a65536].End(xlUp).Offset(1)
.EntireRow.Delete
End With
End With
.[a1].AutoFilter
.UsedRange
End With
End Sub

__ la consulta original __

No se como trasladar automaticamente de una hoja a otra, ciertas filas que cumplan con la condicion
de que la primera celda de izquierda a derecha sea igual a "A". Es decir:
Hoja1
A Camisa
A Pantalon
B Reloj
C Zapatos
A Lentes
Despues del proceso ejecutado por la macro...
Hoja1
B Reloj
C Zapatos
Hoja2
A Camisa
A Pantalon
A Lentes
... lo debo procesar cada dia, y los datos deberan ser continuos... deberan entrar en la fila inferior al ultimo dato de la hoja2...

Hector tengo un problema, cuando ya no hay mas datos en la hoja con criterio
"a", traslada los datos que no tienen "a", y si no hay mas datos muestra la
ventana para depurar.

"Héctor Miguel" escribió:

hola, Max !

segun los datos que expones, prueba con una macro +/- como la siguiente:
deberas adaptar/corregir/modificar/... donde los datos 'reales' sean diferentes de cualquier supuesto :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codigo 'general' ==> Sub Traspasa_datos()
Application.ScreenUpdating = False
With Worksheets("hoja1")
If .AutoFilterMode Then .Cells.AutoFilter
.[a1].AutoFilter Field:=1, Criteria1:="a"
With .AutoFilter.Range
With .Offset(1).Resize(.Rows.Count - 1)
.Copy Worksheets("hoja2").[a65536].End(xlUp).Offset(1)
.EntireRow.Delete
End With
End With
.[a1].AutoFilter
.UsedRange
End With
End Sub

__ la consulta original __
> No se como trasladar automaticamente de una hoja a otra, ciertas filas que cumplan con la condicion
> de que la primera celda de izquierda a derecha sea igual a "A". Es decir:
> Hoja1
> A Camisa
> A Pantalon
> B Reloj
> C Zapatos
> A Lentes
> Despues del proceso ejecutado por la macro...
> Hoja1
> B Reloj
> C Zapatos
> Hoja2
> A Camisa
> A Pantalon
> A Lentes
> ... lo debo procesar cada dia, y los datos deberan ser continuos... deberan entrar en la fila inferior al ultimo dato de la hoja2...