Saltar al contenido

Copiar valor de celda a la ultima celda vacía de un rango

publicado

Buenos días,

Tengo el siguiente código:

Sub Copiar_NCAGT() 'MODULO11copia ndagt
Application.ScreenUpdating = False
 Range("S2").Copy
Windows("Caja Jesus 2016.xlsm").Activate
      Sheets("BOLETOS").Select
Range("AA2").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Range("AA2").Select
    Range("AA2").Copy
    Range("AA3:AA" & Range("I" & Rows.Count).End(xlUp).Row).Select
    ActiveSheet.Paste
    'ActiveSheet.PasteSpecial xlPasteAll
    Application.CutCopyMode = False
End Sub

Bueno este código lo tengo en mi libro NOTAS DE COBRANZA y lo que hace es copiar de mi hoja ND celda S2 el valor a mi otro libro Caja Jesus 2016 a la celda AA2 y el mismo valor lo copia a todo la columna filtrada, pero lo que necesito es que ya no copie a toda la columna filtrada, solo que copie el valor que esta en la celda AA2 a la ultima celda vacía de lo que esta filtrado

Adjunto imagen de como quisiera el resultado.

Muchas gracias

Jesús

Celda filtro.jpg

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.