Bajar una celda en VBA (principiante)
blackpearl35
-
Bidouilleu_R Mensajes publicados 1209 Estado Miembro -
Bidouilleu_R Mensajes publicados 1209 Estado Miembro -
Hola a todos,
Entonces, quiero utilizar macros, para que cuando lo desee, tenga una serie de celdas que se peguen debajo de otra tabla.
Pero tengo un problema porque puedo ir al final de la tabla con (xldown) pero no logro decirle que vaya a la siguiente fila, sí, es lógico porque si pega mis datos al final de la tabla, va a eliminar los datos que ya están al final... así que debería ir una fila más abajo.
Aquí está mi macro (simple) actual:
Range("I121:L121").Select
Selection.Copy
Sheets("Données").Select
Range("B1").Select
Selection.End(xlDown).Select
En mi opinión, es aquí donde debo agregar algo...
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False (sí, es un pegado especial pero no cambia nada)
Si hay expertos que pueden ayudarme, sería genial :D
¡Gracias de antemano!
Julien
Configuración: Windows Vista / Internet Explorer 8.0
Entonces, quiero utilizar macros, para que cuando lo desee, tenga una serie de celdas que se peguen debajo de otra tabla.
Pero tengo un problema porque puedo ir al final de la tabla con (xldown) pero no logro decirle que vaya a la siguiente fila, sí, es lógico porque si pega mis datos al final de la tabla, va a eliminar los datos que ya están al final... así que debería ir una fila más abajo.
Aquí está mi macro (simple) actual:
Range("I121:L121").Select
Selection.Copy
Sheets("Données").Select
Range("B1").Select
Selection.End(xlDown).Select
En mi opinión, es aquí donde debo agregar algo...
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False (sí, es un pegado especial pero no cambia nada)
Si hay expertos que pueden ayudarme, sería genial :D
¡Gracias de antemano!
Julien
Configuración: Windows Vista / Internet Explorer 8.0
1 respuesta
-
Range("B1").Select
Selection.End(xlDown).Offset(1,0).select
buena suerte con lo que sigue-
solo para agradecerte por tu respuesta.
Encontré otra solución así que no probé la tuya.
Creé una variable al principio, algo que había olvidado hacer y luego todo se hizo solo :) :
Dim NOligne As Byte
Sheets("Donnés").Select
NOligne = Range("B1").End(xlDown).Row + 1
y luego copié las celdas.
¡gracias! -
-
