Het volgende probleem :
In een uitslagen scoreworkbook met meerdere weeksheets moet een lid worden tussen gevoegd.
In een userform wordt een lidnummer opgegeven (en gecontroleerd op aanwezigheid)
In een macro wordt in in de weeksheets in kolom C naar het eerst volgende lidnummer gezocht.
Als deze gevonden is wordt de regel gekopieerd en het lidnummer van de gekopieerde regel vervangen door het opgegeven lidnummer.
Probleem ;
op het moment dat het lidnummer wordt geplaatst komt er een popup :
in de kop : Update values : Ledenlijst.xlsm
Alleen de mogelijkheid is er om een Cancel knop aan te klikken. Het programma gaat dan gewoon verder.
Het Update values is niet gewenst (er is niets te updaten)
Wat is de reden van deze popup en is er een mogelijkheid om deze bewerking binnen de macro op te lossen door bv een cancel key stroke in de macro op te nemen,
Ook zou display van de popup voorkomen moeten worden.
Als indicatie een klein stukje van de macro :
wIE KAN MIJ HELPEN
In een uitslagen scoreworkbook met meerdere weeksheets moet een lid worden tussen gevoegd.
In een userform wordt een lidnummer opgegeven (en gecontroleerd op aanwezigheid)
In een macro wordt in in de weeksheets in kolom C naar het eerst volgende lidnummer gezocht.
Als deze gevonden is wordt de regel gekopieerd en het lidnummer van de gekopieerde regel vervangen door het opgegeven lidnummer.
Probleem ;
op het moment dat het lidnummer wordt geplaatst komt er een popup :
in de kop : Update values : Ledenlijst.xlsm
Alleen de mogelijkheid is er om een Cancel knop aan te klikken. Het programma gaat dan gewoon verder.
Het Update values is niet gewenst (er is niets te updaten)
Wat is de reden van deze popup en is er een mogelijkheid om deze bewerking binnen de macro op te lossen door bv een cancel key stroke in de macro op te nemen,
Ook zou display van de popup voorkomen moeten worden.
Als indicatie een klein stukje van de macro :
Code:
ActiveSheet.Paste
Lastline = NextRow - 1 'naar de vorige regel
Rows(Lastline & ":" & Lastline).Select 'selecteer de regel
Selection.Copy 'kopieer de regel
Range("A" & NextRow).Select
ActiveSheet.Paste
' ************** OP DIT PUNT GEBEURT HET
Range("C" & NextRow).Value = lidnr
wIE KAN MIJ HELPEN
Laatst bewerkt door een moderator: