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

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

Range("A18").Select

... por esta otra....:

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

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?

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

Un saludo

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

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

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