Secuencia de Columnas Celdas y Relaciones entre si

Buena Noche Sr. Dante disculpe podría apoyarme con este caso:

Necesito me apoye realizando una macro en donde el ultimo valor de una columna A es CI00000030 de la hoja1, y se necesita que para la hoja2 en la columna "A" inicie con el siguiente valor CI00000031 realizando la secuencia dado el numero de celdas de otra columna B espero me pueda apoyar nuevamente, Saludos.

1 respuesta

Respuesta
1

Esta es la macro. La nueva secuencia la pone en la hoja2 empezando en la celda A2.

Sub otrasecuencia()
'Por.DAM
u = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Hoja1").Range("A" & u).AutoFill _
Destination:=Sheets("Hoja1").Range("A" & u & ":A" & u + 1)
Sheets("Hoja2").Range("A2") = Sheets("Hoja1").Range("A" & u + 1)
Sheets("Hoja2").Range("A2").AutoFill _
Destination:=Sheets("Hoja2").Range("A2:A" & Sheets("Hoja2").Range("B" & Rows.Count).End(xlUp).Row)
Sheets("Hoja1").Range("A" & u + 1).ClearContents
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas