Ayuda con macro copiar y pegar en otra hoja

lito · el 21 de febrero

muy buen foro busco ayuda con macro que copie y pegue de una hoja a otra.

ya tengo un macro pero quiero que justamente copie abajo de donde copie lo anterior y no se borre lo anterior y así sucesivamente.

es un archivo como de 20 columnas y unas 600 filas.. pero cuando copio se pega nada mas como hasta el numero 220 y lo demás ya no lo copia de antemano gracias y espero haberme explicado..subo archivo de mi macro gracias

macro copia pega a otra hoja.txt

el 21 de febrero

Hola lito

Sube el archivo si no va a ser mas dificil que te ayuden.

Leete las normas el punto 5

https://www.ayudaexcel.com/foro/threads/reglas-del-foro.12516/

Un Saludo

FernandoML

bigpetroman · el 21 de febrero

Saludos [uSER=159494]@FernandoML[/uSER], amigo [uSER=195792]@lito[/uSER] con una mínima modificación a tu macro ya pega los datos al final de los datos

suerte

Sub CopiarCeldas()


'Definir objetos a utilizar

Dim wsOrigen As Excel.Worksheet, _

    wsDestino As Excel.Worksheet, _

    rngOrigen As Excel.Range, _

    rngDestino As Excel.Range

Dim nFilaFinal As Double


'Indicar las hojas de origen y destino

Set wsOrigen = Worksheets("Master")

Set wsDestino = Worksheets("Hoja2")


'Obtenemos la fila donde se copiará la información

nFilaFinal = wsDestino.Range("A" & Rows.Count).End(xlUp).Row + 1


'Indicar la celda de origen y destino

Const celdaOrigen = "A6"

Const celdaDestino = "A6"


'Inicializar los rangos de origen y destino

Set rngOrigen = wsOrigen.Range(celdaOrigen)

Set rngDestino = wsDestino.Range(celdaDestino)


'Seleccionar rango de celdas origen

rngOrigen.Select

Range(Selection, Selection.End(xlDown)).Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.Copy


'Pegar datos en celda destino

'rngDestino.PasteSpecial xlPasteValues

wsDestino.Range("A" & nFilaFinal).PasteSpecial xlPasteValues

Application.CutCopyMode = False


End Sub[/CODE]