Modificar datos en una hoja y guarde en otra
Tengo en hoja Resultados información que trae de la hoja Basedatos. ¿Cómo sería la macro para que los datos que modifico en Resultados impacte y quede grabado en Basedatos al presionar un botón?
Respuesta de Dante Amor
2
Te puede interesar:
https://m.youtube.com/watch?v=kvjmJF-5Tf0&t=6s
https://m.youtube.com/watch?v=bmCJzc59K3I&t=265s
https://m.youtube.com/watch?v=FRvI9loM7ns&t=2s
Sal u dos
Dante Amor
1 respuesta más de otro experto
Respuesta de Rafael Vera
2
Te dejo un ejemplo:
Sub ActualizarBasedatos()
Dim wb As Workbook
Dim wsResultados As Worksheet
Dim wsBasedatos As Worksheet
Dim rngResultados As Range
Dim rngBasedatos As Range
Dim cellResultados As Range
Dim cellBasedatos As Range
' Establecer referencias a las hojas necesarias
Set wb = ThisWorkbook
Set wsResultados = wb.Worksheets("Resultados")
Set wsBasedatos = wb.Worksheets("Basedatos")
' Establecer el rango de datos a copiar
Set rngResultados = wsResultados.Range("A1:C10") ' Cambia el rango según tus necesidades
' Establecer el rango de destino en Basedatos
Set rngBasedatos = wsBasedatos.Range("A1:C10") ' Cambia el rango según tus necesidades
' Copiar los datos modificados de Resultados a Basedatos
For Each cellResultados In rngResultados
Set cellBasedatos = rngBasedatos.Cells(cellResultados.Row, cellResultados.Column)
cellBasedatos.Value = cellResultados.Value
Next cellResultados
' Guardar el libro
wb.Save
' Opcional: Mostrar un mensaje de confirmación
MsgBox "Los datos se han actualizado en Basedatos.", vbInformation
End Sub