Formules verdwijnen ??

[DZP]

Weet iemand hoe het zou kunnen dat formules zomaar verdwijnen uit een (ander) werkblad.
Helaas zijn deze formules ook weer doorgekoppeld naar andere cellen.
Als ik het bestand bewerk blijven ze staan maar zo gauw ik het bestand sluit en daarna weer open
staan de waardes er nog wel in maar de formules (koppelingen) zijn verdwenen!
(En ook weer niet allemaal - Heel duister).

 

[Cobbe]

Post de VBA code eens die er achter hangt.

 

[DZP]

De formules (koppelingen) staan in het werkblad gegevens en buiten de range van onderstaande VBA.
Die koppelingen blijven in stand maar die worden gelinkt naar een ander tabblad en daar verdwijnen ze.
Daar wordt geen VBA op uitgevoerd (volgens mij!!).

Private Sub Workbook_BeforeClose(Cancel As Boolean)

        'Afsluiten van het werkboek met het kruisje rechtsboven
     
             Aplication.ScreenUpdating = False
                        'Popup met de tekst die jezelf hierin kan zetten
    
             MsgBox "Boek wordt afgesloten", vbOK
     
                        'Voor het Werkbook wordt afgesloten worden alle meters nog op volgorde van nummer onder elkaar gezet.
    
            Sheets("Gegevens").Select
            Range("D15:AY999").Select
            Selection.AutoFilter
            Selection.Sort Key1:=Range("S15"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
            Range("A1").Select
            Selection.AutoFilter
            Range("A1").Select
            
                        'Ook nog even 4 dropdown menu's op het werkblad Gegevens plaatsen (Ploeg)
      
            Range("J15:J999").Select
   With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=Standaard!$M$4:$M$16"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
   End With
            Range("A1").Select
     
                       'Nog 3 dropdown menu's op het werkblad Gegevens plaatsen (Lokatie)

 

[DZP]

Hoi mensen,
Daar ben ik wederom en ik heb het versimpeld en iets duidelijker gemaakt (hoop ik).
Tijdje met andere dingen bezig geweest !!!

Maar dan nu::d
Hoe kan de formule in F6 wegvallen als ik in de tweede rij (van F7:F26) xx plaats of weghaal?
Het gevolg is dat het in het Userform1 (Textbox1) dus ook niet meer goed werkt --> die kijkt naar cel F6

Kan ik de formule sterker of anders maken zodat hij wel blijft staan en naar de juiste range kijkt.
Ik heb dit diverse malen in mijn originele bestand en het is daar ook zo.

P.s.: Formule heb ik dubbel gemaakt (2 cellen er boven) en die blijft wel staan, maar ook om te kopieren.

Zie bijlage.

 

[Cobbe]

Ik heb niet kunnen achterhalen wat de oorzaak is maar als je de cel met die formule verwijdert en daar na de cel met de goede formule daar plakt, werkt het weer.

 

[DZP]

Dat begrijp ik en dat staat er ook boven, maar daarna ben ik hem ook weer kwijt als ik weer een XX plaats of verwijder en het userform heb geopend en gesloten.
Het heeft blijkbaar met het UserForm Openen en/of sluiten te maken (of textbox1) want de Formule in de cel waar TekstBox1 niet naar kijkt blijft wel actief.
Misschien iemand anders nog een idee!

 

[DZP]

Aangepast: En het lijkt er nu beter uit te zien !!!:d
Controlsource uit de eigenschappen leeggemaakt.
TextBox1 kijkt nu via VBA naar de waarde uit (cel F6).
Ik zet hem nog niet op Groen --> ik ga eerst even oefenen.
Gr. Henk en zie bijlage.:thumb:

 

[DZP]

'T werkt zo te zien naar behoren dus hij gaat op groen
Gr. Henk