• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Foutmelding onvoldoende stackruimte

Status
Niet open voor verdere reacties.
N

nvzetten

Nieuwe gebruiker
Lid geworden
24 mei 2020
Berichten
3
Hallo ik heb een bestand dat gekoppeld is aan een applicatie. Dit excel document haalt live data op in sheet van betangel .Een marco zorgt er dan verder voor dat data wordt gekopierd naar tabblad data op in gestelde periode. Als ik aanvink tick to record en ga naar een ander tabblad bijv sheet3 en plaats daar mijn muis omdat ik een bewerking wil doen graag ik de melding onvoldoende stack ruimte.

VBA ben ik eigenlijk echt noob in kan iemand mij helpen bestand is bijgevoegd.

Alvast heeeel erg bedankt.
 

Bijlagen

  • BetAngel_Record_datav2.xls
    80 KB · Weergaven: 28
Stack Overflow heeft meestal met het geheugen van doen.

Dit stukje code....
Code: 
Sub Record_data()
 With Sheets("data")
      .Range("c7:gd7") = .Range("c5:gd5").Value
      .Rows(7).Insert
 End With
End Sub

...doet net zoveel als.
Code: 
Sub Record_data()


 Record_data Macro


Sheets("Data").Select
    Sheets("Data").Rows("5:5").Select
    Sheets("Data").Range("B5").Activate
    Selection.Copy
    Sheets("Data").Rows("7:7").Select
    Sheets("Data").Range("B7").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data").Rows("7:7").Select
    Sheets("Data").Range("B7").Activate
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

En omdat het aan een knop hangt die op hetzelfde werkblad staat kan het ook nog zo.
Code: 
Sub Record_data()
      Range("c7:gd7") = Range("c5:gd5").Value
      Rows(7).Insert
End Sub
 
Thanks heb het veranderd maar blijft hetzelfde probleem.

Er wordt gezegd dat het door deze regel komt If Range("A4") = "TICK" And Range("A6") = 0 And Range("A1") = True Then Call TICK
 
Dat probleem gaat daar inderdaad niet mee weg, maar test dit eens.

Code: 
Private Sub Worksheet_Calculate()
[COLOR=#ff0000] Application.EnableEvents = False[/COLOR]
If Range("A4") = "TICK" And Range("A6") = 0 And Range("A1") = True Then Call TICK


If Range("A4") = "TOCK" And Range("A6") = 1 And Range("A1") = True Then Call TOCK
[COLOR=#ff0000] Application.EnableEvents = True[/COLOR]
End Sub
 
Volgens mij doet dat de truc. Nog wat andere problemen maar daar ga ik verder zelf eerst naar kijken. Bedankt zeg!!!
 
Je calculate_event blijft maar triggeren en stopt dan met stackruimte tekort.

Je roept de code als het ware oneindig aan.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan