Crear macro pegar especial valores en ultima celda

Le informo que grabe una macro (Macro 1) que solo me pegue especial valores, sin embargo necesito que cuando pego lo que he seleccionado lo haga en la ultima columna, continuación le muestro lo que hace:
Range("D15"). Select    (aqui necesito indicarle q valla a la última column, siempre en la fila 15)  ¿Qué comando debo ingresar?
' Lo demás esta correcto ya que cumple con lo que necesitaba
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

1 Respuesta

Respuesta
1
Si hay valores continuos a partir de la col DE (es decir sin celdas en blanco entremedio) utilizá esta instrucción:
Range("D15").End(xltoRight).Select
En mi página de macros encontrarás otras instrucciones para selección de celdas
Sdos
Elsa
http://aplicaexcel.galeon.com/index.htm
PD) Te sugiero dejar tus consultas sobre Excel en esa categoría (la reviso con más frecuencia ;)
http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/preguntas
Para la próxima lo haré por esa modalidad... con respecto a la solución, lo hice como informa y como resultado me pego en la última columna... no era lo que esperaba, lo que necesito es que lo pegue al ladito en la celda vaciá continua... (OJO no hay celdas vacías entremedio), si ve el ejemplo necesito que pegue a partir de la celda "D15" pero en la celda vacía siguiente (E15)manteniendo la fila, y así sucesivamente(F15, G15), ahora en la macro empieza en "D15" Y ESE ES EL PROBLEMA POR QUE ORGINALMENTE SIEMPRE LO PISABA
         D E F G
15 olla
16 silla
17
18
19
20
Espero se entienda..
Gracias.
Saludos
Entonces utilizá esta para la fila 5:
Range("IV5").End(xlToLeft).Offset(0, 1).Select
con End te encuentra la última ocupada y con Offset se coloca en la de al lado, vacía.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para pegar una fila en la Primera Fila Libre

Que tal utilizo esta Macro que encontré buscando en la red, para pegar una fila en la fila siguiente Sub Copia_y_Pega() Set MiRango = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8)) MiRango.Copy Destination:=Range(MiRango.Offset(1, 0),...
1 respuesta

Pegar datos en última columna vacía

Estoy liado con una plantilla en la que quiero hacer lo siguiente. Necesito mediante una macro buscar una celda con un valor determinado en una columna:Cuando lo encuentre debería recorrer esa fila hasta encontrar la primera columna vacía de esa fila...
1 respuesta

Criterio macro analizar ultima fila activa y a partir de allí borrar filas en blanco hacia abajo

Tengo el siguiente macro en excel: Sub Cargar_Asiento() Dim NRO_ASIENTO ' CONSISTENCIA DE LA CARGA If Range("H50") = "Asiento Correcto" Then ' COPIANDO CARGA DE DATOS DE ASIENTO Range("A10:H47").Select Selection.Copy ' UBICARSE AL FINAL DE LA BASE DE...
1 respuesta

Macro para copiar en la ultima fila libre

Tengo en una hoja un listado de precios, que en realidad es una macro que hace un listado de todas las hojas del libro. Ahora bien, el listado aparece en la columna B, en las columnas C a J, hay fórmulas asociadas a lo que aparece en la B. ¿Lo qué...
1 respuesta

Macro para guardar registros

Fíjate que tengo un pequeño problema, espero me puedas ayudar. No se si recuerdes que me ayudaste con un código para copiar y pegar registros de un archivo a otro (prueba nadin), funciona muy bien, y ya le metí ciertas cosas para que los datos los...
1 respuesta

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Macro para copiar y pegar última fila

Quisiera elaborar un macro que al ser ejecutado me copie la última fila de la hoja con datos (la última por abajo) del rango A:AX y me la pegue en la fila siguiente; y que tras ésto haga un pegado de valores (sin fórmulas, sólo los valores) en esa...
1 respuesta

Macro para traspasar datos de un archivo excel a otro

Estoy trabajando en una macro que no logro solucionar. Os explico. Tengo un archivo "listado" donde, en la hoja "listado productos" tengo cierta información sobre productos. Cada fila (desde la fila 5 hasta la última fila con datos) se corresponde...
1 respuesta

Necesito crear una macro excel que haga lo siguiente:

Sumar cantidades de celdas variables de una columna, hacia abajo, hasta llegar a una celda vacía. Ahí colocar el subtotal (la suma de las celdas hasta la vacía) en la celda contigua a la derecha de la vacía, en la columna contigua a la derecha que...
1 respuesta

Copiar rango de celdas de una hoja a otra de acuerdo a condicional

A ver si pueden brindarme una ayuda. He desarrollado una macro que inserta un rango de celdas desde una hoja (01) a otra (02) Asi: Sub CopiarRangoActual() Sheets("01").Select Range("A1").CurrentRegion.Copy Sheets("02").Select...
2 respuestas