none
Novato necesita ayuda¡¡¡ RRS feed

  • Pregunta

  • Bueno muchas por aceptarme en este foro y a su vez pedir de su ayuda soy muy nuevo y si estoy equivocado espero me puedan ayudar

    trabajo en una base de datos de mi empresa (estoy en el area de estadistica) y hay unas tareas que son muy repetitivas y por lo regular yo hago tablas pivot (tabla Dinamica) para hacer mas facil mis actividades saque la forma de visual de crear mi rutina pero ahora no se que hacer yo diario actualizo la base de datos pero para poder hacer nuevmanete la tabla tengo que poner los rangos manualmente y lo peor es que me crea otra tabla hay manera de que todo sea en una sola hoja??? dejo mi pobre aportacion y espero me puedan ayudar

     

    por sus atenciones gracias

     

     Range("A1:J1").Select
        Range(Selection, Selection.End(xlDown)).Select
             ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
            "Sheet1!R1C1:R683C10").CreatePivotTable TableDestination:="", TableName:= _
            "PivotTable"
                
        ActiveSheet.Cells(3, 1).Select
        ActiveSheet.PivotTables("PivotTable").SmallGrid = False
        ActiveSheet.PivotTables("PivotTable").AddFields RowFields:=Array("Juliano", _
            "Data"), ColumnFields:="Carac. Inspec."
        With ActiveSheet.PivotTables("PivotTable").PivotFields("Juliano")
            .Orientation = xlDataField
            .Caption = "Count of Juliano"
            .Position = 1
            .Function = xlCount
        End With
        ActiveSheet.PivotTables("PivotTable").PivotFields("Carac. Inspec."). _
            Orientation = xlDataField
            ActiveSheet.PivotTables("PivotTable").PivotFields("Count of Carac. Inspec."). _
            Orientation = xlHidden
        Range("A3:E56").Select
        Range("E5").Activate
        Selection.Sort Key1:="R5C5", Order1:=xlDescending, Type:=xlSortValues, _
            OrderCustom:=1, Orientation:=xlTopToBottom
        Range("a1").Select
       
    End Sub

    • Cambiado Enrique M. Montejo lunes, 2 de mayo de 2011 12:03 programación con VBA (De:Lenguaje VB.NET)
    miércoles, 3 de enero de 2007 21:56