Help...
Ik heb een probleempje...
Ik ben bezig met een urengregistratiesysteempje op basis van een standaardinvulformulier. In sommige gevallen moeten mensen ingevulde gegevens weer op kunnen roepen. Daarvoor heb ik een knop gemaakt. Vervolgens krijg je een invulveld waarin je eerst een persoon kunt kiezen en vervolgens een een weeknummer.
Als je op OK klikt worden de gegevens uit een "database"worksheet opgehaald en teruggeplaatst in de het standaardinvulformulier.
Alleen op 1 stukje code blijft mijn systeempje hangen. Het duurt 10 tot 20 seconden voordat hij doorgaat.
Het stukje code waar volgens mij het probleem in zit is:
Deze code staat in "Module1"
Kan iemand mij helpen om de "hickup" van 10 a 20 seconden te helpen oplossen????
Ik heb een documentje met het probleempje openbaar gemaakt op:
http://docs.google.com/uc?export=do...5NGRhYTYtODQ3NS00MWE0LWExYzYtYzQ0ZjY5MTAwZDk1
Alvast bedankt,
Michiel
Ik heb een probleempje...
Ik ben bezig met een urengregistratiesysteempje op basis van een standaardinvulformulier. In sommige gevallen moeten mensen ingevulde gegevens weer op kunnen roepen. Daarvoor heb ik een knop gemaakt. Vervolgens krijg je een invulveld waarin je eerst een persoon kunt kiezen en vervolgens een een weeknummer.
Als je op OK klikt worden de gegevens uit een "database"worksheet opgehaald en teruggeplaatst in de het standaardinvulformulier.
Alleen op 1 stukje code blijft mijn systeempje hangen. Het duurt 10 tot 20 seconden voordat hij doorgaat.
Het stukje code waar volgens mij het probleem in zit is:
Code:
'kopieren naar manuren invoer
Sub verplaats_temp()
Dim lngCounter As Long
Dim bytcounter As Byte
Dim arrValues As Variant
With Sheets("temp")
arrValues = .Range("a2:s" & .UsedRange.Rows.Count)
End With
For lngCounter = 1 To UBound(arrValues)
On Error Resume Next
For bytcounter = 1 To UBound(arrValues, 2)
With Sheets("manuren invoer")
.Cells(arrValues(lngCounter, 1), bytcounter) = arrValues(lngCounter, bytcounter)
End With
Next bytcounter
Next lngCounter
End Sub
Deze code staat in "Module1"
Kan iemand mij helpen om de "hickup" van 10 a 20 seconden te helpen oplossen????
Ik heb een documentje met het probleempje openbaar gemaakt op:
http://docs.google.com/uc?export=do...5NGRhYTYtODQ3NS00MWE0LWExYzYtYzQ0ZjY5MTAwZDk1
Alvast bedankt,
Michiel
Laatst bewerkt door een moderator: