Actividad 5: Presentación de datos de facturas. ¿Cómo podemos presentar diversos datos en diferentes formas?

Desarrollo de la práctica:

Instrucciones:

Preparación para la actividad colaborativa (de forma individual)

1. Importa una Base de datos contenida en un archivo texto “Presentación de datos de Facturas”; para descargarlo da clic aquí. 
   Los datos los deberás copiar en una hoja llamada “Facturas”, en el archivo que creaste en la actividad 3 (Calculando las ventas y sueldos de un grupo de vendedores, ¿cómo lo logro con Excel?).nos fuimos a datos, importar datos externos y dimos clic en desde texto.
2. Crea una macro que copie en una hoja nueva los datos y los acomode de filas a columnas.
3. Verifica que no existan datos duplicados, de lo contrario, elimina las filas duplicadas con la función de Excel correspondiente.
4. Crea una macro que genere cada una de las facturas en una hoja nueva con un formato predefinido. 
   
   Te puedes guiar con el siguiente ejemplo:
   Tenemos una hoja de datos llamada “notas”, en la cual se encuentran las calificaciones de 3 alumnos:[pic 2]

1. Creamos una macro con el siguiente código:

Sub crearHoja(nombres As String)
    Set hojaNueva = Sheets.Add(After:=Sheets(Sheets.Count))
    hojaNueva.Name = nombre
    copiarNombres
    hojaNueva.Activate
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("notas").Activate
    Set origen = ActivateSheet.Rows(5).Find(nombre)
    If Not origen Is Nothing Then
    Range(orige, origen.End(xlDown)).Copy
    hojaNueva.Activate
    Range("B3").Select
    ActiveSheet.Paste
End If

End Sub

Sub alumnos()
Dim area As Range
Dim celda As Range
Dim hojaNueva As Worksheet

    Set area = Range("A6:" 
& Range("A6").End(xlDown).Address).Cells
    For Each celda In area
        Set hojaNueva = 
Sheets.Add(After:=Sheets(Sheets.Count))
         hojaNueva.Name = celda.Value
         ThisWorkbook.Activate
         hojaNueva.Cells(1, 1).Value = celda.Value
         hojaNueva.Cells(3, 6).Value = "matematicas"
         hojaNueva.Cells(3, 7).Value = celda.Offset(0, 1)
         hojaNueva.Cells(5, 6).Value = "quimica"
         hojaNueva.Cells(5, 7).Value = celda.Offset(0, 2)
         hojaNueva.Cells(7, 6).Value = "fisica"
         hojaNueva.Cells(5, 7).Value = celda.Offset(0, 3)
    Next
End Sub

...