jensen363 Seniormester
03. marts 2021 - 11:19 Der er 1 løsning

Hjælp til makro

Jeg har overtaget et regneark med en makro, som en tidligere kollega har udviklet ..... jeg har lidt udfordringer med dele af dette regneark.

En makro som skal åbne et andet regneark, og generere en pivottabel på baggrund af data heri fejler   

Så vidt jeg kan tolke beståe fejlen af det Range ( Range("$A$1:$C$34754") ) der er defineret i koden.

Selve floorplan.xlsx regnearket hvor øvelsen skal foregå indeholder flere rækker end der er defineret i det angivne range og vil ændre sig fra dag til dag, så jeg skal have defineret et dynabisk range i stedet.

Det hjælper ikke at ændre  Range("$A$1:$C$34754") i koden så det matcher den nye fil, den laver efter hvad jeg kan se fortsat kun pivottabellen på baggrung af det  oprindeligt definerede :-(

Nogen idé til hvad problemet er ????

Filename:="W:\iShare\LF101\LONE_TotalStatus_21102020_LD101\floorplan.xlsx"
       
        Sheets("Sheet1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$C$34754"), , xlYes).Name _
        = "DataRange"
    Range("DataRange[#All]").Select

    Sheets.Add

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "DataRange", Version:=6).CreatePivotTable TableDestination:="Sheet2!R3C1", _
        TableName:="PivotTable1", DefaultVersion:=6
    Sheets("Sheet2").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Country")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("<ID>"), "Count of <ID>", xlCount
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("floorplan Asset Reference ID"), _
        "Count of floorplan Asset Reference ID", xlCount
jensen363 Seniormester
03. marts 2021 - 11:56 #1
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A:$C"), , xlYes).Name = "DataRange"
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Microsoft opgiver milliardkøb af gamer-chatplatform med tusindvis af danske brugere
I marts forlød det, at Microsoft var svært interesseret i at købe chatplatformen Discord for over 10 milliarder dollar. Men planen er tilsyneladende gået i vasken.
Computerworld
Nu er de her: Efter flere års rygter lancerer Apple Airtags
Langt om længe kan du købe Apples Airtags. De kan modstå støv og vand, og samtidig gør de det muligt for millioner af iPhone-brugere at hjælpe dig med at finde dine nøgler.
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
"Vi var nødt til at sige til dem, at I er nødt til at sende ham hjem nu, for han begynder at knække"
"Vi var nødt til at sige til dem, at I er nødt til at sende ham hjem nu, for han begynder at knække"
White paper
17 punkter med plads til forbedring: Sådan øger du din lønsomhed
Mange projektorienterede virksomheder hæmmes af ikke-optimale løsninger og besværlige, manuelle processer, som forringer effektivitet, overblik og lønsomhed. Her præsenterer vi 17 typiske udfordringer – og bud på, hvordan du kan afhjælpe situationen.