VBA waarschuwing

[Chris15]

Ik heb een knop gemaakt met de volgende code in VBA:

Sub Clearcells()
Range("A8", "A999").Clear
Range("B8", "B999").Clear
Range("J8", "L19").Clear
End Sub

Kan ik hier ook een waarschuwing in geven om wel of niet door te gaan?
Bijvoorbeeld: Doorgaan? ja of nee.

 

[Haije]

Ja dat kan als volgt:

Sub Clearcells()
antw = MsgBox("Doorgaan?", vbYesNo)
If antw = vbYes Then
    Range("A8", "A999").Clear
    Range("B8", "B999").Clear
    Range("J8", "L19").Clear
End If
End Sub

 

[Chris15]

Dank je! Nog een vraagje:

Ik wil de inhoud wissen, dan moet ik niet clear maar iets anders gebruiken?

 

[edmoor]

Of:

Sub Clearcells()
  If MsgBox("Doorgaan?", vbYesNo) = vbYes Then Range("A8:B999,J8:L19").ClearContents
End Sub

 

[snb]

les 1 Excel

Range("A8:A999")

Les 1 VBA

gebruik geen VBA termen zoals misschien 'clearcells', maar bijv. 'M_schoon'

 

[Chris15]

Ik wilde inhoud wissen maar niet verwijderen, welke code gebruik je dan in Les1?

 

[edmoor]

En wat bedoel je precies met "wissen maar niet verwijderen"?

 

[Chris15]

Als je op een cel gaat staan, dan kan je met je rechter muisknop verwijderen of inhoud wissen.

Met clear gaat ook de opmaak van de cel weg. Maar de opmaak wil ik houden.

Dus ik dacht dat je dan clear moet veranderen voor...... ?

 

[edmoor]

Heb je al in #4 gekeken?

 

[snb]

Les 2 Excel:

Range("A8:B999,J8:L19").ClearContents

 

[edmoor]

Helemaal terecht.
Aangepast in #4.

 

[Chris15]

Dank jullie! Even voor de zekerheid:

Sub Clearcells()
antw = MsgBox("Doorgaan?", vbYesNo)
If antw = vbYes Then
    Range("A8:B999,J8:L19").ClearContents
End If
End Sub

 

[edmoor]

Dat mag je zo schrijven, wat ik al liet zien:

Sub Clearcells()
    If MsgBox("Doorgaan?", vbYesNo) = vbYes Then Range("A8:B999,J8:L19").ClearContents
End Sub

 

[Chris15]

Dank je!

 

[snb]

De naamgeving van de macro kan nog verbeterd worden (om verrassingen te voorkomen).
Voor je het weet introduceert MS in VBA een methode die 'clearcells' heet.
De code can ook appplicatie-onafhankelijk worden geschreven (robuustheid)

Sub M_schoon()
  If MsgBox("Doorgaan?", 4) = 6 Then Range("A8:B999,J8:L19").ClearContents
End Sub

 

[Chris15]

Dank je! Ik ga het veranderen

 

[snb]

Je hebt in deze draad 7 nieuwe dingen geleerd.
Kun jij ze nog even recapituleren ?

 

[Chris15]

Hoi snb, ik heb deze pagina bij mijn favorieten gezet, en lees jou lessen vaker over!