Capurar datos y guardarlos en una TABLA de Excel | Usando VBA y macros
Todos hablan sobre las ventajas de usar Tablas en Excel. Y tienen razón. Son una herramienta muy útil.
Pero qué si te digo que también existen ventajas de trabajarlas con macros en Excel?
En este video te enseño cómo capturar datos en un Formulario y luego pasar los valores a una Tabla. UN TIP IMPERDIBLE.
Ver video Insertar fila nueva con datos en Tabla de Excel
Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.
Cómo lo hacemos
Tenemos un Formulario en una hoja de Excel.Vamos a capturar datos en dicho formulario y deseamos pasar los datos a un Tabla, es decir, un rango convertido en Tabla.
Figura 1. Formulario en Excel.
Los datos capturados en ese Formulario, al presionar un botón, insertarán una nueva fila en nuestra Tabla, además de agregar los valores de cada uno de los campos.
Figura 2. Tabla de Excel.
Código VBA de la macro
Este código debe insertarse en un módulo normal.
<style>pre{font-family:Courier New; font-size:10.0pt;}</style>
<pre>Option Explicit
'EXCELeINFO
'MVP Sergio Alejandro Campos
'http://www.exceleinfo.com
'https://www.youtube.com/user/sergioacamposh
Sub AltaEnTabla()
Dim HojaDatos As Worksheet
Dim Tabla As ListObject
Dim NuevaFila As ListRow
Dim Pregunta As Byte
Set HojaDatos = ThisWorkbook.Sheets("Datos")
Set Tabla = HojaDatos.ListObjects("TablaDatos")
Set NuevaFila = Tabla.ListRows.Add
With NuevaFila
.Range(1) = Hoja1.Range("D6").Value
.Range(2) = Hoja1.Range("D8").Value
.Range(3) = Hoja1.Range("D10").Value
.Range(4) = Hoja1.Range("G6").Value
.Range(5) = Hoja1.Range("G8").Value
.Range(6) = Hoja1.Range("G10").Value
End With
MsgBox "Se guardaron los datos en Tabla", vbInformation
Pregunta = MsgBox("Deseas limpiar el Formulario?", vbYesNo + vbQuestion)
If Pregunta = vbNo Then Exit Sub
'Borramos campos del Formulario
Hoja1.Range("D6").ClearContents
Hoja1.Range("D8").ClearContents
Hoja1.Range("D10").ClearContents
Hoja1.Range("G6").ClearContents
Hoja1.Range("G8").ClearContents
Hoja1.Range("G10").ClearContents
End Sub
</pre>
Tal vez te interese
5 poderosas ventajas de usar Tablas en Excel
Descarga el archivo de ejemplo
Guardar datos en Tabla usando VBA y macros – EXCELeINFO..zip
Si te gustó este tutorial, por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.
