Ayuda con macro copiar y pegar en otra hoja

[lito]

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

[Invitado FernandoML]

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]

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]

[lito]

saludos Fernando, bigpetroman ya intente con la modificación que le hiciste al macro y sigue haciendo lo mismo ..

voy a subir el archivo y te explico que es lo que deseo hacer. gracias espero y puedas ayudarme

peso 205kb mi archivo ya comprimido y no me deja subirlo te lo pongo en un link de descarga?

[bigpetroman]

amigo definitivamente debes leer las normas, alli te explica que hacer, suerte

[bigpetroman]

amigo NO pases mensajes por privado, sigue tu tema aquí, en el archivo que me dejaste NO hay ninguna macro

[lito]

por eso t explique ese enlace me llega el archivo original y explicarte lo que deseo hacerle con el macro

[lito]

son varias cosas no nomas copiar y pegar a otra hoja

[lito]

[uSER=159494]@FernandoML[/uSER], y [uSER=133908]@bigpetroman[/uSER]. Archivo original

https://www.dropbox.com/s/22x8bjuy2xfix6j/ARCHIV%20ORIGINAL.xlsx?dl=0

1 eliminar las columnas que están en color rojo.

2 la columna color naranja donde dice atención el encabezado cambiarlo a subdelegación con mayúsculas.

3. la columna E de color naranja hacer un filtro que solo deje todo lo que termine con PE

4. en la columna donde dice RESHAB que se haga un buscarv en base a columna donde dice ADSCRI y poner la ciudad que corresponda.

archivo ya modificado por mi ya con algunas macros pero hasta ahí pude hacerlo.

https://www.dropbox.com/s/vnoikftvq7rgmqp/OPCION 1Mortalidad Enero 2015.xlsm?dl=0

saludos y espero puedan ayudarme