Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Rango de Celdas

30/07/2010 - 23:57 por DR | Informe spam
Un saludo
Como puedo seleccionar un rango de celdas, copiarlo
y luego pegarlo en otra hoja usando una macro
Ej:
1
1
1
2
2
2
3
3
3
Seleccionar las celdas que contengan el numero 2, copiarlo
y luego pegarlos en otra hoja
De antemano Gracias por su ayuda
 

Leer las respuestas

#1 CachoR
01/08/2010 - 02:57 | Informe spam
Hola! DR. Intenta con:
_____________________

Sub Macro340()
Dim C As Range
Const myNum As Double = 2

With [a:a]
Set C = .Find(What:=myNum, LookIn:=xlValues, LookAt:=xlWhole,
SearchDirection:=xlNext)
If C Is Nothing Then Exit Sub
C.Resize(WorksheetFunction.CountIf(.Cells, myNum)).Copy
Sheets("OtraHoja").Cells(Rows.Count, "C").End(xlUp).Offset(1)
End With

End Sub
_____________________

.) Aquí el número a buscar lo pongo como constante: tú puedes tornarlo
variable
.) El código busca "myNum" en la columna A de la hoja activa.
Si lo encuentra, lo copia en la columna C de la hoja "OtraHoja"

Espero te sea de utilidad.
Saludos, Cacho.

Preguntas similares