Duda: macro para cargar datos de una hoja a otra en Excel 2003
Estuve buscando en muchos lados pero no encontré algo parecido para solucionar una tarea repetitiva que hay que hacer en las planillas. Les comento:
- Cuento con dos hojas en Excel 2003, la 1ra. Llamada "Carga" y la 2da. "BBDD".
- Los datos se ingresan en la hoja "Carga" en las celdas A7, C7, G7
- Estos datos necesito se agreguen en la hoja "BBDD" a partir de la fila 2 en las columnas A, B, C. Y que en los próximos datos que ingrese en "Carga" se agreguen en la fila 3, en la fila 4, (y así sucesivamente) en la hoja "BBDD"...
- Necesito asignar esta macro a un botón, que lo voy a colocar en la hoja "Carga", y que al hacer click en él me arroje un cartel para verificar si realmente quiero cargar esos datos (debería decir el cartel algo así como "¿Está seguro que desea cargar estos datos?") y tenga las opciones "SI" y "NO" disponibles.
1 Respuesta
Esta sería la macro:
Sub pase_BBDD()
'x Elsamatilde
'pasa celdas de hoja Carga a BBDD
Dim sino, hbb
Dim filx As Long
sino = MsgBox("¿Seguro que deseas guardar estos datos?", vbQuestion + vbYesNo, "CONFIRMAR")
If sino <> vbYes Then Exit Sub
'confirmado
'primer fila libre de hoja BBDD
Set hbb = Sheets("BBDD")
filx = hbb.Range("A" & Rows.Count).End(xlUp).Row + 1
'pase de datos
hbb.Range("A" & filx) = Range("A7")
hbb.Range("B" & filx) = Range("C7")
hbb.Range("C" & filx) = Range("G7")
End Sub
Te estoy enviando el libro con el botón .
Sdos.
