Opgelost bevestigingsvraag stellen en kopie van het oude bestand maken

[Cartucci]

Zie bijgaand voorbeeldbestand.

Wanneer ik bereik B2:C4 wil wissen m.b.v. een macro, zou ik graag een vraag/melding gesteld zien in de trend van:

“Je staat op het punt alle ingevoerde gegevens te wissen. Weet je dit zeker”

Daarna moet actief op ja of nee worden geklikt.

en,

Is het mogelijk om dezelfde macro een kopie van het bestand te laten maken in de vorm voordat het wissen heeft plaatsgevonden?

Samengevat:

In geval van ja:
1. Macro uitvoeren
2. Vraag wordt gesteld - ja of nee optie wordt weergegeven
3. Bij ja: Kopie van bestand wordt gemaakt en opgeslagen
4. Gegevens worden gewist
5. Macro voltooid

In geval van nee:
1. Macro uitvoeren
2. Vraag wordt gesteld - ja of nee optie wordt weergegeven
3. Bij nee: Keer terug naar de situatie voor het aanroepen van de macro
4. Macro voltooid


Alvast hartelijk dank voor de hulp.

 

[VenA]

Sub VenA()
  If MsgBox("Je staat op het punt alle ingevoerde gegevens te wissen. Weet je dit zeker", vbYesNo) = vbYes Then
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\Kopie_" & Format(Now, "yyyy-mm-dd_hhmmss") & ".xlsm"
    Sheets("Blad1").Range("B2:C4").ClearContents
  End If
End Sub

 

[Cartucci]

Dit werkt fantastisch! Bedankt!

Nog 1 vraag: Is het mogelijk het tekstscherm opvallender te maken. Bijv. een gekleurde achtergrond, zodat het meer opvalt wanneer het getoond wordt?

 

[edmoor]

Dat kan met zoiets:
Bekijk bijlage Cartucci.xlsm

Vul iets in in het bereik B2:C4 en verlaat de cel.
Klik weer op die cel en maak hem leeg middels de Del knop.
Het uiterlijk heb ik wat overdreven, maar kan je van maken wat je maar wil.

 

[Cartucci]

Dankjewel, hier kom ik mee verder!