Cargar informacion con macro

[mauricioc]

Buenas tardes,

estoy tratando de hacer una planilla para gestionar el stock de insumos. Intento realizar mediante una macro (la cual está asignada a un botón) la carga de información de ingresos y salidas de insumos a la base de datos. La macro consiste en copiar y pegar en otra parte de la planilla. El problema surge de que siempre me vuelve a copiar la información en la misma celda inicial, sustituyendo la información anterior, y lo que yo pretendo es que se valla completando hacia abajo dicha base de datos.

Espero haber sido claro con la explicación del problema.

Saludos a todos,

Mauricio

Gestion de insumos.rar

[supervoro]

Hola mauricioc.... sustituye en tu codigo la linea :

Range("A18").Select

... por esta otra....:

[A65536].End(xlUp).Offset(1, 0).Select

[eugesadir]

Hola tengo el mismo problema, funciona bien pero al sustituir la linea que decis copia los datos en forma vertical y no horizontal, me explico?

[supervoro]

Hola eugesadir.... por que no mandas tu archivo... asi sera mas facil poder localizar la averia ¿ no te parece...??

Un saludo

[eugesadir]

Hola! aqui te paso el ejemplo.

Necesito agregar datos en la hoja Ventas desde A4:J4 y que al pulsar el boton agregar se ubiquen consecutivamente en una posicion mas abajo de la misma hoja, por ejemplo desde A10:j10.

saludos

CONTROL.rar

[supervoro]

Hola eugesadir.... no se si he entendido bien lo que quieres,... uniendo un poco de los dos comentarios que haces.... creo que esto te puede servir...

Copia el rango ("A4:J4") y lo coloca en la siguiente fila libre que quede en la misma hoja.....

Sub Agregar_venta()

ActiveSheet.Unprotect

Range("A4:J4").Copy [A65536].End(xlUp).Offset(1, 0)

Range("A4:J4").ClearContents

ActiveSheet.Protect

End Sub

[eugesadir]

se demoraron tanto para responder q ya soluciones sola el problema, gracias