Insertar celdas en una fila llena; lograr que el dato en la última celda pase a la primera celda de la siguiente fila.

Aunque parezca extraño, intento desarrollar una aplicación donde las filas sucesivas se comporten como una fila continua.

Ejemplo: Tengo un dato en la celda XFD1, inserto una celda con datos en A1, el dato en XFD1 debe pasar a A2.

Si lo hago sobre las columnas, debería poder pasar un dato en A1048576 a B1, si inserto una celda nueva en A1.

¿Es esto posible?

Si uso el parámetro cells (cells(16384). Cut destination:= cells(16385)) puedo hacerlo, si se trata de una sola celda; pero si tengo muchos datos dispersos en la fila 1 e inserto una o varias celdas en A1 (o en cualquier otra celda de la fila 1 con shift:=xlright ) quisiera poder trasladar los datos como en una fila continua mas alla de 16384.

Gracias de antemano por la atención que puedan prestar a esta consulta.

Tomás Xordan

1 respuesta

Respuesta

Segun lo que lei y entendi el dato de XFD1 pasarlo a A1 y que cuando vallas hacer la

y el dato da a1 pase a a2 y el de a a2 a a3 ....

para inserta una nueva fila yo uso esta sentencia

Hoja1.Range("XFD1").Copy Destination:=Hoja1.Range("b1")
Hoja1.Range("a1").EntireRow.Insert

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas