• 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.

Excel file afsluiten

Status
Niet open voor verdere reacties.

Hoornvan

Terugkerende gebruiker
Lid geworden
10 feb 2002
Berichten
3.333
Hallo excellers,
Ik zit met een klein probleempje.
Ik heb in excel file twee knoppen staan, 1 knop start de macro om de invoer van een gegeven te verwerken.
De andere knop slaat de gegevens op en sluit het programma af.
De macro om af te sluiten heb ik opgenomen en daar staat in;
sub afsluiten()
ActiveWorkbook.Save
ActiveWorkbook.Close
end sub
Als ik de knop afsluiten test dan werkt het prima.
Als ik eerst de knop voor de invoer gebruikt en dan op de knop afsluiten klikt dan geeft hij een fout melding.
Als ik opslaan doe en dan menu afsluiten gaat het wel goed.
Weet iemand wat ik dan fout doe?

Groetjes Hoornvan
 
Probeer het eens met onderstaande code. Om het voor een ieder wat duidelijker te maken zou je misschien ook de code voor het invoeren even kunnen plaatsen.

Application.DisplayAlerts=False
ThisWorkbook.Close SaveChanges=True
 
Hallo Huijb,
Ik heb jouw code gebruikt, hij vraagt dan of de macro moet worden ingeschakeld.
Klik ik op ja dan gebeurd er niets, kijk ik dan naar Extra/Macro, zijn alle macro's weg en er is niet afgesloten.
Als hij met mijn code de fout melding geeft zijn ook de macro's weg en moet ik opnieuw opstarten om ze weer te zien.
Hier onder de code die onder de knop invoer zit, deze is gemaakt door JZEEDIJK
Ik heb in de menubalk een knop gemaakt om de file optestarten.

Private Sub CommandButton1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub CommandButton1_Click()
INR = InputBox("Wat is de INR waarde")
Range("D6") = INR
Datum = Range("O4"): If Date - Datum < 7 Then Range("B8") = "U heeft al een waarde ingevoerd": Exit Sub
Range("B8") = ""
INR = Range("D6"): Stap = Range("M4"): Rij = Worksheets(3).Range("A3")
Maandag = Range("D11"): Dinsdag = Range("E11"): Woensdag = Range("F11")
Donderdag = Range("G11"): Vrijdag = Range("H11"): Zaterdag = Range("I11"): Zondag = Range("J11")
If INR < 2 Then
Range("B8") = "Neem contact op met het lab"
Range("O4") = Date
Worksheets(3).Cells(Rij, 1) = Date
Worksheets(3).Cells(Rij, 2) = INR
Worksheets(3).Range("A3") = Rij + 1
Exit Sub
End If

If INR < 2.3 Then
Stap = Stap + 2
Range("M4") = Stap
Range("N4") = 2
Range("O4") = Date
Worksheets(3).Cells(Rij, 1) = Date
Worksheets(3).Cells(Rij, 2) = INR
Worksheets(3).Cells(Rij, 3) = Stap
For i = 1 To 7: Worksheets(3).Cells(Rij, 3 + i) = Cells(11, 3 + i): Next i
Worksheets(3).Range("A3") = Rij + 1
Exit Sub
End If

If INR < 2.5 Then
Stap = Stap + 1
Range("M4") = Stap
Range("N4") = 1
Range("O4") = Date
Worksheets(3).Cells(Rij, 1) = Date
Worksheets(3).Cells(Rij, 2) = INR
Worksheets(3).Cells(Rij, 3) = Stap
For i = 1 To 7: Worksheets(3).Cells(Rij, 3 + i) = Cells(11, 3 + i): Next i
Worksheets(3).Range("A3") = Rij + 1
Exit Sub
End If

If INR < 3.6 Then
Stap = Stap
Range("M4") = Stap
'Range("N4") = 0
Range("O4") = Date
Worksheets(3).Cells(Rij, 1) = Date
Worksheets(3).Cells(Rij, 2) = INR
Worksheets(3).Cells(Rij, 3) = Stap
For i = 1 To 7: Worksheets(3).Cells(Rij, 3 + i) = Cells(11, 3 + i): Next i
Worksheets(3).Range("A3") = Rij + 1
Exit Sub
End If

If INR < 4 Then
Stap = Stap - 1
Range("M4") = Stap
Range("N4") = -1
Range("O4") = Date
Worksheets(3).Cells(Rij, 1) = Date
Worksheets(3).Cells(Rij, 2) = INR
Worksheets(3).Cells(Rij, 3) = Stap
For i = 1 To 7: Worksheets(3).Cells(Rij, 3 + i) = Cells(11, 3 + i): Next i
Worksheets(3).Range("A3") = Rij + 1
Exit Sub
End If

If INR < 5 Then
Stap = Stap - 2
Range("M4") = Stap
Range("N4") = -2
Range("O4") = Date
Worksheets(3).Cells(Rij, 1) = Date
Worksheets(3).Cells(Rij, 2) = INR
Worksheets(3).Cells(Rij, 3) = Stap
For i = 1 To 7: Worksheets(3).Cells(Rij, 3 + i) = Cells(11, 3 + i): Next i
Worksheets(3).Range("A3") = Rij + 1
Exit Sub
End If

If INR > 5 Then
Range("B8") = "Neem contact op met het lab"
Range("O4") = Date
Worksheets(3).Cells(Rij, 1) = Date
Worksheets(3).Cells(Rij, 2) = INR
Worksheets(3).Range("A3") = Rij + 1
Exit Sub
End If

'Range("B8") = "Neem contact op met het lab": Range("O4") = Date
Exit Sub

End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Private Sub CommandButton1_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)

End Sub

Private Sub CommandButton1_GotFocus()

End Sub


Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

End Sub


Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub


Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub
Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub


Private Sub Worksheet_Calculate()

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_Deactivate()

End Sub


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Groetjes Hoornvan
 
Is het mogelijk om het bestand hier te plaatsen of is dat een probleem i.v.m. privacy?
 
Hallo Huijb,
Ik heb de persoonlijke gegevens weggehaald en zal proberen om het bij te voegen.

Groetjes Hoornvan
 

Bijlagen

In een module heb ik een macro geplaatst met enige uitleg. Alleen als ik een INR waarde wilde invullen kreeg ik de melding "Er is al een INR waarde ingevuld"
Maar volgens mij werkt het nu wel.
 
Laatst bewerkt:
Hallo Huijb,
Ik heb je macro uitgeprobeerd, als ik nu op de knop afsluiten klikt sluit hij heel excel af.
Doe ik die andere regel activeren ( de andere dus met ') dan geeft hij ook een fout melding.
Heeft een fout gemaakt in excel.exe
Excel wordt nu gesloten
De macro's zijn dan weg en moet ik opnieuw opstarten wil ik ze weer kunnen zien.
Dat hij zegt er is al een waarde ingevuld komt doordat je binnen de 7 dagen zit.
De datum moet even een week terug gezet worden in de file.

Groetjes Hoornvan
 
Je wilt dus niet dat Excel in z'n geheel wordt afgesloten?
Ik zal even de datum terugzetten en ga nog even verder spelen. :)
 
Even een knop toegevoegd aan je sheet nu werkt het zoals je wil.......hoop ik. Bij mij in ieder geval wel.
 
Laatst bewerkt:
Hallo Huijb,
Inderdaad het werkt nu zoals ik bedoeld.
Hartelijk bedankt.

Fijne feestdagen

Groetjes Hoornvan
 
Graag gedaan. En voor jou ook fijne feestdagen :thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan