Pivottabel med dataark

1: En userform med 5 felter - knapperne: Gem (lagre felter i ark - næste ledige række samt sletter felter i formen) & Clear (sletter felter i formen) & Afslut (lukker formular)
2: udføres ved Gem
3: ?? - men vel ikke umuligt

Lyder lige præcis som jeg vil have det..

Er der nogen som kan lave koden til dette og en forklaring på hvordan jeg skal gøre ?

I første omgang skal jeg konstruere en Userform til Excel m/de nævnte faciliteter - altså punkt 1 & 2. OK?

Det vil være en meget stor hjælp... tusind tak

Hvis det villevære det nemmeste for dig - så senden mail til: pb@supertekst-it.dk så sender jeg hele filen - ellers er kodningen her:

I regnearket - ThisWorkbook:
Sub workbook_activate()
    Load UserForm1
    UserForm1.Show
End Sub

I formularen (opbygget som tidligere nævnt):
Dim rækIArk

Private Sub f_afslut_Click()
    ClearFelter
    Unload UserForm1
End Sub
Private Sub f_clear_Click()
    ClearFelter
End Sub
Private Sub f_gem_Click()
Rem test om alle felter er udfyldt
    If Me.f_medarbejdernr.Value <> "" And _
        Me.f_timer.Value <> "" And _
            Me.f_timesats.Value <> "" And _
                Me.f_alder.Value <> "" Then
                OpdaterIArk
    Else
        MsgBox ("Visse felter ej udfyldt")
        Me.f_medarbejdernr.SetFocus
    End If
End Sub
Private Sub UserForm_activate()
    ActiveWorkbook.Sheets(1).Select
   
    ClearFelter
    Me.f_medarbejdernr.SetFocus
End Sub
Private Sub ClearFelter()
    Me.f_medarbejdernr.Value = ""
    Me.f_timer.Value = ""
    Me.f_timesats.Value = ""
    Me.f_alder.Value = ""
   
    Me.f_medarbejdernr.SetFocus
End Sub
Private Sub OpdaterIArk()
    rækIArk = findFørsteLedigeRække
   
    Cells(rækIArk, 1) = Me.f_medarbejdernr.Value
    Cells(rækIArk, 2) = Me.f_timer.Value
    Cells(rækIArk, 3) = Me.f_timesats.Value
    Cells(rækIArk, 4) = Me.f_alder.Value
   
    ClearFelter
End Sub
Private Function findFørsteLedigeRække()
Dim r
    For r = 1 To 65000
        If Cells(r, 1) = "" Then
            findFørsteLedigeRække = r
            Exit Function
        End If
    Next r
End Function

Det virker perfekt.

Jeg har umiddelbart løst punkt 3 med denne formel som indsættes som et navngivet område:

=FORSKYDNING(Ark1!$A$1;0;0;TÆLV(Ark1!$A:$A);TÆLV(Ark1!$1:$1))

Derved bliver mit dataområde altid navngivet og jeg skal bare referere til dette i min pivottabel.

Det eneste jeg så bare gerne ville have var at min pivottabel som ligger i sit eget ark, bliver opdateret automatisk når man klikker på arket e.l.

Kom med et svar supertekst så får du point og tak for hjælpen.

Selv tak - Svaret er så her...

Vedr. dit ønske vedr. opdat. af pivottabellen - så skal jeg se på det.. Ligger Pivot i ark2?

Jeg har selv løst den automatiske opdatering af pivottabelen

Ellers tak for tilbuddet

En lille tanke fra min side er.

Hvis du har en god ide/løsning til, hvordan man kan slette/rette information fra ark1 skal den være velkommen.

Altså så man ikke manuelt skal ind og slette i rækkerne/kolonnerne.

Kan man lave en makro som tager al informationen fra ark1 og viser i f.eks. en boks og så kan man rette det der...

Bare hvis du lige har tid og løst og har en god ide.

Ok - vedr. sidste indlæg:
Det samme har jeg selv tænkt på - det kan godt lade sig gøre. Vender tilbage herom - evt. ført mandag.