Tæl sideskift/sider

koden (hentet fra XL-hjælp) indsætes i arkets kodemodul
opdater med et dobbeltklik

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For Each pb In ActiveSheet.HPageBreaks
  If pb.Extent = xlPageBreakFull Then
    cFull = cFull + 1
  Else
    cPartial = cPartial + 1
  End If
Next
Range("A1") = cFull
End Sub

Et dobbeltklik hvor ?

Det skal helst fungerer så makroen hele tiden kører i baggrunden og opdaterer celle A1, man skal ikke dobbeltklikke e.l.

Kan det lade sig gøre ?

Det blir nok for langsomt at arbejde med - prøv:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each pb In ActiveSheet.HPageBreaks
  If pb.Extent = xlPageBreakFull Then cFull = cFull + 1
Next
Range("A1") = cFull
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = ActiveSheet.HPageBreaks.Count
End Sub

det var en nedkogning af excelent's kode

Kabbak

Men denne kode opdateres ikke hele tiden vel ?

Den skal fungerer så jeg ikke skal trykke på en knap e.l. eventuelt skal den aktiveres når man forlader arket ?

Meningen er at jeg vil lave en indholdsfortegnelse på baggrund af værdi i celle A1 og dermed kan den jo selv tælle siderne.

Jeg kan se at det kræver at man klikker på siden for at den opdateres.

Desuden synes jeg ikke at den tæller rigtig ?

hvad mener du med rigtig, hvis du ikke har en side fuld, er der ingen sat ind endnu, derfor skal du  plusse med 1, hvis du vil vide antal sider.

sådan


Range("A1") = ActiveSheet.HPageBreaks.Count + 1

Den tæller stadig ikke rigtig...

Jeg har sider uden sideskift (altså 1 side) som den viser er 3 sider
og jeg har sider med 1 sideskift som den viser er 4 sider
og jeg har sider med 1 sideskift som den rigtigt viser er 2 sider

Jeg har angivet udskriftsområde, så der er ikke noget skjult eller lignende.

Jeg mener ikke den kan se kun i udskriftområdet, men kikker på hele arket.

Det virker i hvert fald ikke... desværre

Prøv denne:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim iLodretBreak As Integer, iVandretBreak As Integer
    Dim iTotalantalSider As Integer
   
    iLodretBreak = ActiveSheet.HPageBreaks.Count + 1
    iVandretBreak = ActiveSheet.VPageBreaks.Count + 1
   
    iTotalantalSider = iLodretBreak * iVandretBreak
   
    Range("A1") = iTotalantalSider
End Sub

Det vil jeg gøre... er desværre ikke muligt før jeg kommer hjem fra arbejde idag...

Det virker desværre heller ikke

Denne her virker vist

Sub PrintedPages()
    MsgBox ExecuteExcel4Macro("Get.Document(50)")
End Sub

Men hvordan får jeg den til at skrive værdien i f.eks. celle a1 og derudover skal den eksekvere makroen hver gang man går ud af arket...

Kan man det ?

Sub PrintedPages()
    cells(1,1)=ExecuteExcel4Macro("Get.Document(50)")
End Sub

og følgende sub indsættes i arkets kodemodul:

Private Sub Worksheet_Deactivate()
Call PrintedPages
End Sub

Til excelent...

Hvad er dit bedste råd når jeg nu skal bruge funktionen til at generere en indholdsfortegnelse.

Skal ovenstående funktion køre hver gang man går ud af de forskellige ark eller sænker det Excel væsentligt og i stedet skal man måske lave en knap som på en gang finder alle sideskift på alle ark og genererer indholdsfortegnelsen ?

Jeg har indsat: Sub PrintedPages()
    cells(1,1)=ExecuteExcel4Macro("Get.Document(50)")
End Sub

i ThisWorkBook

og: Private Sub Worksheet_Deactivate()
Call PrintedPages
End Sub

i det enkelte ark i Worksheet


Men jeg synes ikke deet virker ???

Nu har jeg bare placeret:

Private Sub Worksheet_Activate()
Cells(1, 1) = ExecuteExcel4Macro("Get.Document(50)")
End Sub

Private Sub Worksheet_Deactivate()
Cells(1, 1) = ExecuteExcel4Macro("Get.Document(50)")
End Sub

På hvert enkelt ark

Men jeg har det problem at når man går væk fra arket så kan den ikke huske værdien i celle A1 mere...

Dvs. når jeg står på min indholdsfortegnelse og vil hente værdien i celle A1 på f.eks. arket "Noter" så kan den ikke finde den rigtige værdi i celle A1 på arket "Noter", kun nå jeg står på selv arket skriver den det rigtige antal sideskift

Jeg kan se at det er denne som laver fejlen:

Private Sub Worksheet_Deactivate()
Cells(1, 1) = ExecuteExcel4Macro("Get.Document(50)")
End Sub

De opdaterer den side man forlader....men med værdien fra det ark men klikker på...

Hvordan får man den til det ?

prøv:

Private Sub Worksheet_Deactivate()
sheets("dit arknavn").Cells(1, 1) = ExecuteExcel4Macro("Get.Document(50)")
End Sub

Har selv lige løst det ved at sætte funktionen ind i en anden makro jeg havde som jeg kører på alle sider.

Tak for hjælpen alle.

Excelent får point da det var denne funktion der virkede...

ok