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

1 post / 0 nuevos
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Copiar valor de celda a la ultima celda vacía de un rango

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 por su atención.

Jesús

AdjuntoTamaño
Image icon celda_filtro.jpg67.71 KB

Etiquetas: