Ayuda con este codigo.

12/10/2006 - 18:29 por Alejandro Garcia | Informe spam

Este codigo lo puso KL como respuesta a una persona de este foro hace
unos días, yo habia puesto un post un tanto parecido y pense que podria
adecuarlo a mis necesidades pero no he podido, ¿alguien me podria
colaborar un poco?. Mi problema, eliminar fila de la hoja Activos
dependiendo de una condicion, que en la columna H tenga X, estos
registros deben pasar a otra hoja del mismo libro llamada Retirados,
esta nueva fila(en retirados) puede ir al final de la hoja(la hoja ya
existe). ¿Sera esto posible?, Gracias de antemano.

El codigo:
Sub Creating_New_Sheet()
Application.ScreenUpdating = False
Sheets(ActiveSheet.Name).Copy After:=ActiveSheet
With ActiveSheet.Range("H:H")
On Error Resume Next
Do
.Find _
(What:="A", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext).EntireRow.Delete
Loop Until Err.Number <> 0
End With
End Sub

Esta Macro lo que hace es crear una nueva hoja y pasar las filas que
tengan X a esa nueva hoja, yo ya tengo creada la hoja y lo que deseo es
anexar dichas filas al final de esa hoja.

Siga el debate

9 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 J.P.

13/10/2006 - 00:04 | Informe spam

Buenas
Inteses con este

Sub EliminarRetirados()
Dim rango As Range
Dim celda As Range

Sheets("Activos").Select
For Each celda In Range("H:H")
If celda.Value = "X" Then
Selection.EntireRow.Cut
Sheets("Retirados").Select
Range("A65536").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
End If
Next
End Sub

Espero te sirva, y sino espero cualquyier observación

Alejandro Garcia wrote:

Este codigo lo puso KL como respuesta a una persona de este foro hace
unos días, yo habia puesto un post un tanto parecido y pense que podria
adecuarlo a mis necesidades pero no he podido, ¿alguien me podria
colaborar un poco?. Mi problema, eliminar fila de la hoja Activos
dependiendo de una condicion, que en la columna H tenga X, estos
registros deben pasar a otra hoja del mismo libro llamada Retirados,
esta nueva fila(en retirados) puede ir al final de la hoja(la hoja ya
existe). ¿Sera esto posible?, Gracias de antemano.

El codigo:
Sub Creating_New_Sheet()
Application.ScreenUpdating = False
Sheets(ActiveSheet.Name).Copy After:=ActiveSheet
With ActiveSheet.Range("H:H")
On Error Resume Next
Do
.Find _
(What:="A", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext).EntireRow.Delete
Loop Until Err.Number <> 0
End With
End Sub

Esta Macro lo que hace es crear una nueva hoja y pasar las filas que
tengan X a esa nueva hoja, yo ya tengo creada la hoja y lo que deseo es
anexar dichas filas al final de esa hoja.

Responder a este mensaje

#2 J.P.

13/10/2006 - 00:05 | Informe spam

Buenas
Intesta con este codigo.

Sub EliminarRetirados()
Dim rango As Range
Dim celda As Range

Sheets("Activos").Select
For Each celda In Range("H:H")
If celda.Value = "X" Then
Selection.EntireRow.Cut
Sheets("Retirados").Select
Range("A65536").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste

End If
Next

End Sub

Espero te sirva
Alejandro Garcia wrote:

Este codigo lo puso KL como respuesta a una persona de este foro hace
unos días, yo habia puesto un post un tanto parecido y pense que podria
adecuarlo a mis necesidades pero no he podido, ¿alguien me podria
colaborar un poco?. Mi problema, eliminar fila de la hoja Activos
dependiendo de una condicion, que en la columna H tenga X, estos
registros deben pasar a otra hoja del mismo libro llamada Retirados,
esta nueva fila(en retirados) puede ir al final de la hoja(la hoja ya
existe). ¿Sera esto posible?, Gracias de antemano.

El codigo:
Sub Creating_New_Sheet()
Application.ScreenUpdating = False
Sheets(ActiveSheet.Name).Copy After:=ActiveSheet
With ActiveSheet.Range("H:H")
On Error Resume Next
Do
.Find _
(What:="A", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext).EntireRow.Delete
Loop Until Err.Number <> 0
End With
End Sub

Esta Macro lo que hace es crear una nueva hoja y pasar las filas que
tengan X a esa nueva hoja, yo ya tengo creada la hoja y lo que deseo es
anexar dichas filas al final de esa hoja.

Responder a este mensaje

#3 Alejandro Garcia

13/10/2006 - 15:56 | Informe spam

Excelente!!!, me da resultados, gracias.

Pero te puedo preguntar algo, cuando lo ejecuto, queda la fila en
blanco, ¿se podria que al pasar la fila borrada, se corrieran las otras
filas hacia arriba para no dejar ese espacio en blanco?

De todas formas mil y mil gracias el codigo este genial.

Responder a este mensaje

#4 Alejandro Garcia

15/10/2006 - 19:05 | Informe spam

Vuelvo a reierarte mis agrdecimientos, es exacto a lo que estaba
necestiando funcina muy bien tu codigo. GRACIAS por esta invaluable
colaboracion.

Responder a este mensaje

#5 Gavillas

15/10/2006 - 21:48 | Informe spam

Hola grupo:
La idea de Alejandro me parece estupenda para aplicaciones del tipo "Altas y
Bajas".
He probado el codigo expuesto por KL hace tiempo y funciona muy bien, pero
lo que
interesa a Alejandro (y a mi) es el resultado opuesto, que al parecer ha
resuelto J.P.
pero yo no consigo que me funcione.
Los datos son los mismos que para la macro de KL, hoja Activos, hoja
Retirados,
algunas celdas de la columna H con "X" y tal..., pero no me funciona.
Seguire intentandolo a ver en que me he equivocado, pero si hubiera algo que
me
podais contar os lo agradecería.

Atentamente, Gavillas.

"J.P." escribió en el mensaje
news:
Buenas
Intesta con este codigo.

Sub EliminarRetirados()
Dim rango As Range
Dim celda As Range

Sheets("Activos").Select
For Each celda In Range("H:H")
If celda.Value = "X" Then
Selection.EntireRow.Cut
Sheets("Retirados").Select
Range("A65536").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste

End If
Next

End Sub

Espero te sirva
Alejandro Garcia wrote:

Este codigo lo puso KL como respuesta a una persona de este foro hace
unos días, yo habia puesto un post un tanto parecido y pense que podria
adecuarlo a mis necesidades pero no he podido, ¿alguien me podria
colaborar un poco?. Mi problema, eliminar fila de la hoja Activos
dependiendo de una condicion, que en la columna H tenga X, estos
registros deben pasar a otra hoja del mismo libro llamada Retirados,
esta nueva fila(en retirados) puede ir al final de la hoja(la hoja ya
existe). ¿Sera esto posible?, Gracias de antemano.

El codigo:
Sub Creating_New_Sheet()
Application.ScreenUpdating = False
Sheets(ActiveSheet.Name).Copy After:=ActiveSheet
With ActiveSheet.Range("H:H")
On Error Resume Next
Do
.Find _
(What:="A", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext).EntireRow.Delete
Loop Until Err.Number <> 0
End With
End Sub

Esta Macro lo que hace es crear una nueva hoja y pasar las filas que
tengan X a esa nueva hoja, yo ya tengo creada la hoja y lo que deseo es
anexar dichas filas al final de esa hoja.

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida