Macro

Hola que tal cuates ojala alguien me pueda ayudar con esto, tengo un libro de excel que tiene varias hojas y ocupo realizar una macro que me copie el contenido de cierta hoja y lo pegue en otra y despues de hacer esto me elimine ciertas filas

ejemplo

Color largo ancho alto origen

Rojo 1_______1.6____1 __ Alemania

verde 1.5_____1.5____2 __ Boston

verde 1.5_____1.2____3 __ Jalisco

Rojo 1_______1.3____4 __ Belgica

Rojo 1.5_____1.5____7 __ Honduras




Que primero me elimine las filas que sean \"Verde\" solo hay \"Verdes y Rojas\"



Gracias por su valiosa ayuda

Mensaje editado por: EDD, el: 21/06/2007 13:45<br><br>Mensaje editado por: EDD, el: 21/06/2007 13:50

Buen día Edd, no me ha quedado muy claro qué es lo que quieres.

Deja ver si capté la idea:
Tienes un libro con varias hojas, en una de ellas tienes:

Color largo ancho alto origen

Rojo 1_______1.6____1 __ Alemania

verde 1.5_____1.5____2 __ Boston

verde 1.5_____1.2____3 __ Jalisco

Rojo 1_______1.3____4 __ Belgica

Rojo 1.5_____1.5____7 __ Honduras

Luego quieres copiar el contenido de las filas que sean \&quot;verde\&quot; y te los pase a otra hoja del mismo libro, y luego que te elimine aquellas filas q acabas de copiar, es eso lo que quieres?

Saludos.

HOLA QUE TAL CCRUX713 LO QUE QUIERO BASICAMENTE ESQUE ME COPIE TODA UNA HOJA Y ME LA PEGUE EN OTRA YA EXISTENTE, Y QUE DESPUES ELIMINE LAS FILAS QUE TENGAN EN LA PRIMER COLUMNA UNA REFERENCIA \&quot;X\&quot; EN ESTE CASO EL COLOR



O SI SE PUEDE QUE EN LUGAR DE COPIAR TODA LA HOJA Y LUEGO ELIMINAR LAS QUE NO TENGAN LA REFERENCIA \&quot;X\&quot; EN LA PRIMERA COLUMNA, PUES SOLO COPIE DE LA HOJA ORIGEN LAS QUE TENGAN DICHA REFERENCIA \&quot;X\&quot; Y LAS PEGUE EN LA OTRA HOJA

OSEA CONDICIONAR EL COPIADO Y PEGADO Y QUE COPIE EL VALOR NO EL VINCULO

GRACIAS POR AYUDARME

Hola de nuevo Edd!
Primero, te pido disculpas por la demora, pero después de varias pruebas creo que lo que quieres es lo siguiente:

Sub copySheet3()
Dim refe$, copFin$, indk$, cellIni$, cellFin$, cellDelIni$, cellDelFin$
cellIni = \&quot;$A$1\&quot;
cellDelIni = \&quot;$A$2\&quot;
indk = \&quot;0Z\&quot;
refe = InputBox(\&quot;Ingrese la referencia de filas: \&quot;, \&quot;Referencia\&quot;)
If refe = \&quot;\&quot; Then
Exit Sub
Else
ActiveWorkbook.Sheets(\&quot;Sheet1\&quot;).Activate
Range(cellIni).Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
cellFin = ActiveCell.Offset(-1, 0).Address
copFin = ActiveCell.Offset(-1, 4).Address
ActiveWorkbook.Names.Add Name:=\&quot;RanCopiado\&quot;, RefersToR1C1:=Range(cellIni, copFin)
Application.Goto reference:=\&quot;RanCopiado\&quot;
Selection.Copy
ActiveWorkbook.Sheets(\&quot;Sheet2\&quot;).Activate
Range(cellIni).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range(cellIni).Select
ActiveWorkbook.Sheets(\&quot;Sheet1\&quot;).Activate
Range(cellIni).Select
ActiveWorkbook.Names.Add Name:=\&quot;RanBusqRef\&quot;, RefersToR1C1:=Range(cellIni, cellFin)
With Worksheets(\&quot;Sheet1\&quot;).Range(cellIni, cellFin)
Set bkRef = .Find(What:=refe, LookIn:=xlValues)
If Not bkRef Is Nothing Then
Do
bkRef.Value = indk
Set bkRef = .FindNext(bkRef)
Loop While Not bkRef Is Nothing
End If
End With
Application.Goto reference:=\&quot;RanCopiado\&quot;
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range(cellDelIni).Select
Do
If ActiveCell = indk Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell &lt;&gt; indk
cellDelFin = ActiveCell.Address
Range(cellDelIni, cellDelFin).Select
Selection.EntireRow.Delete
Range(cellIni).Select
Exit Sub
End If
End Sub

Espero sea lo que buscas, a mí me funcionó a la perfección.

Saludos cordiales.

Hola CCRUX perdon por responder tan tardiamente pero habia tenido una serie de problemas personales aun no e checado del todo como funciona la macro no la entiendo del todo pero con calma la revisare para ver que tal funciona


te agradezco mucho la atencion y el tiempo invertido para dar respuesta a mi pregunta


de corazon gracias

Ok, no hay prob Edd.
Cualquier duda, estoy a tus órdenes!

Saludos