Insertar dato con macro, de celda seleccionada a otra hoja en forma consecutiva debajo de la anterior
Necesito una macro que cuando seleccione una celda de la hoja 1 y presione
Botón agregar cotización me ingrese el dato a la hoja 2, pero
una debajo de la anterior cada vez que selecciono y presiono botón,
Según imagen adjunto para mayor aclaración.
2 Respuestas
Para lo hoja1 no hay problema cada que actives la macro tomara el valor de la celda ue escojas, pero para la hoja dos como no dices en que celda comienzan tus datos la macro la predefiní para que empezara a leer datos en la celda b2 a partir de hay contara filas y colocara el dato una fila después de la ultima, solo cambia en la macro el nombre de la hoja por la hoja que estés usando y el rango b2 de la hoja2 igual por el rango que estés usando.
Sub copiar_dato()
Set H2 = Worksheets("HOJA2")
ORIGEN = ActiveCell.Value
FILAS = H2.Range("B2").CurrentRegion.Rows.Count
H2.Range("B2").CurrentRegion.Cells(FILAS + 1, 1) = ORIGEN
End Sub
Estos ejemplos insertan datos fíjate
Visita http://programarexcel.com encontrarás cientos de ejemplos que puedes descargar gratis.
Suscribe a https://www.youtube.com/channel/UCTKYXi9ljxxOAXXKgwWDDpQ y recibirás en tu mail los ejemplos de macros que se publiquen.