Copiar celdas y pasar a la siguiente de modo automático

Espero se encuentren bien, en esta ocasión con otra pregunta, ya les explico...

Tengo este formulario (ver Imagen), lo primero que hice, fue grabar una macro con lo siguiente, para agregarlo al Botón "ENTER":

Sub COPIAR()
' COPIAR Macro

Range("B10:N10").Select
Selection.Copy
Range("B16:N16").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B10:N10").Select
Selection.ClearContents
Range("B10:C10").Select
End Sub

Pero esto solo me copia una y otra vez en una solo fila. O sea que elimina lo que ya estaba anteriormente.

¿Qué es lo que quiero hacer? Que se copien los datos en el cuatro de celdas pero una información contigua de la otra, de esta manera

'

Cuento con ustedes chicos

De antemano, gracias por su antencion

Nota: (esta es una tabla dinámica que estoy desarrollando, para el registro, tracking o seguimiento de ordenes internacionales, pueden sugir más preguntas durante su desarrollo).

Respuesta
1

Te anexo la macro actualizada

Sub COPIAR()
' COPIAR Datos
    i = 16
    Do While Cells(i, "B") <> ""
        i = i + 1
    Loop
    Range("B10:N10").Copy Range("B" & i)
    Range("B10:N10").ClearContents
    Range("B10").Select
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

¡Gracias!

Gracias Dante, funciono a la perfección

Quería conversar contigo, para exponerte una idea que quiero fomentar en una tabla de excel, algo que voy usar en mi área de trabajo y se que va a servir de mucho. Nunca esta de más recibir una segunda opinión y más de un experto. Además estoy trabajando también en esta tabla de seguimiento, que a medida que la vaya desarrollando van a ir surgiendo más preguntas.

Aquí mi correo, mediante el mismo te puedo explicar en que consiste mi idea.

[email protected]

Saludos Dante y gracias por el apoyo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas