Ejercicio 8: Crear una tabla en Excel usando VBA

Ejercicio 8: Crear una tabla en Excel usando VBA

Escribe una macro que cree una tabla con encabezados en la hoja activa y llene algunas filas con datos.

1. Iniciar macro
2. Escribir encabezados en la fila 1
3. Llenar filas con datos
4. Formatear rango como tabla
5. Terminar macro

Sub CrearTabla()
  ' Escribir encabezados
  Range("A1").Value = "Producto"
  Range("B1").Value = "Cantidad"
  Range("C1").Value = "Precio"

  ' Llenar algunas filas
  Range("A2").Value = "Teclado"
  Range("B2").Value = 10
  Range("C2").Value = 25

  Range("A3").Value = "Mouse"
  Range("B3").Value = 15
  Range("C3").Value = 15

  ' Convertir rango en tabla
  Dim tblRange As Range
  Set tblRange = Range("A1:C3")
  ActiveSheet.ListObjects.Add(xlSrcRange, tblRange, , xlYes).Name = "TablaProductos"
End Sub