Kør makro når pivot ændres

Nu skulle den blive aktiveret hvis du ændrer værdierne, i en celle i kolonne B
det var hvad jeg kunne oversætte din kode til.

Men du skal fysisk rette i cellen, hvis du gør det med formel eller kode, kører makroen ikke.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Then Call Formpivot
End Sub

Det virker Perfekt, 1000 tak for hjælpen. Skulle lige slette 1 x then, men det var jo til at finde ud af (c;.
Smid et svar, så får du dine point.

nåå,undskyld, det var en fejl 40 ;-))


og et svar

tak for point

velbekomme og tak for hjælpen

kabbak:

Det virkede ude fysiske ændring på Office 2003 og XP, men ikke Office 2000. Problemet er at det kun er Pivoten som ændre sig, så man skriver ikke noget manuelt i nogen celle.

Kan man få den til at køre hvis en pivot ændre sig?

Hvilken handling gør, at pivotabellen ændrer sig ?
I xl2000 er det nok nødvendig at kende denne handling og lægge opdateringen der..
En pivottabel opdaterer normalt ikke sig selv.

Den opdaterer ikke. Jeg har lavet en lille makro som ligger baggrundsfarve på hver anden række i pivotdata. Så når page fields eller column fields ændres, så skal den køre denne makro automatisk.

her er koden jeg bruger

Sub farvrow()

Cells.Select
Selection.FormatConditions.Delete

Range("B17").Select
    Selection.CurrentRegion.Select

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MOD(ROW();2)=0"
    Selection.FormatConditions(1).Interior.ColorIndex = 45
    Range("C16").Select

End Sub

Kan godt se at der i dette tilfælde er forskel på xl2000 og xp.
worksheet_change bliver ikke aktiveret ved et skift i pagefields / columnfields i 2000.

hvis arket ikke har for mange indtastningsfelter mv kan du nok bruge Worksheets_Calculate i stedet. Den virker.


Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    farvrow
    Application.EnableEvents = True
End Sub

Sub farvrow()
    Cells.FormatConditions.Delete
    With Range("B17").CurrentRegion
        .FormatConditions.Add Type:=xlExpression, Formula1:="=rest(række();2)=0"
        .FormatConditions(1).Interior.ColorIndex = 45
    End With
End Sub

ups, brugte en dk-version. I en eng version skal det være

.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(ROW();2)=0"

Hej Bak

Undskyld jeg ikke har vendt tilbage før, men jeg har ikke haft tid til at se om det virker. Jeg skriver når jeg har tjekket det.

Hej Bak

Det virker perfekt, jeg har lavet et nyt spørgsmål så du kan få lidt point. Smid et svar i det spørgsmål http://www.eksperten.dk/spm/582799

Hvad kalder man Worksheet_Calculate og Worksheet_Change for? Hvad skal man søge på i hjælpen for at finde de forskellige muligheder?

1000 tak for hjælpen kabak og bak

De kaldes for Events og søgning på dem i hjælpen er ikke helt enkelt....