Copiar datos seleccionados de una hoja a otra

Tengo una duda sobre un trabajo, y no puedo resolverlo, tal ves ustedes puedan ayudarme.

Tengo una hoja1 y en la columna B tengo varios nombres (b6, b7, b8...) y lo que trato de hacer es que en otra hoja2. (Presionado un botón). Me aparezca todos los nombres de la hoja 1 columna B, e ir seleccionado los que quiero y se vayan copiando a la hoja2.

2 Respuestas

Respuesta

¿Algo así?, en la hoja 3 selecciono los que quiero copiar y al presionar el botón se copian a la hoja 2, al volver a seleccionar hace la copia abajo de los que anteriormente se copiaron

y esta es la macro

Sub copiar()
Set h2 = Worksheets("hoja2")
Set destino = h2.Range("b1").CurrentRegion
r = destino.CurrentRegion.Rows.Count
Selection.Copy: destino.Rows(r + 1).PasteSpecial
Set destino = Nothing
End Sub
Respuesta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas