Reeks cellen controleren

[corvdh]

Met een macro controleer ik of er nog iets in een cel staat.
Als dat zo is verschijnt er een melding of ik door wil gaan, is de cel leeg dan verschijnt er geen melding.

intTotaal = ActiveSheet.Range("A1").Value
    If intTotaal = "" Then
    GoTo 4
    Else
    GoTo 3
    End If

Nu wil ik op deze manier gekijktijdig de cellen A1 t/m F3 laten controleren, ik heb de code aangepast van

("A1")

naar

("A1:F3")

maar dit werkt niet.
Ik krijg dan de foutmelding 13, Typenkomen niet met elkaar overeen.

Is het mogelijk om meerdere cellen gelijktijdig te controleren op inhoud of moet ik dit 18 keer afzonderlijk doen, het word dan wel een lange macro op deze manier.

 

[HSV]

Zet in het bereik A1:F3 eens wat onzin, en test deze code eens in een testbestandje.

Sub HSV()
Dim cl As Range
 For Each cl In Range("A1:F3")
  If cl > 0 Then
   If MsgBox("wil je cel " & cl.Address & "leegmaken ? ", vbYesNo) = vbYes Then cl.ClearContents
  End If
 Next cl
End Sub

 

[corvdh]

Bedankt voor je antwoord, maar kan het ook nog op een andere manier?
De code werkt als losse macro op zich goed maar als ik de code in een bestaande macro wil toevoegen werkt hij niet meer goed.

Wat ik wil is dat bij het uitvoeren van de macro word gecontroleerd of er iets in de cellen A1 t/m F3 staat.
Als er iets word gevonden wil ik dat er een melding komt zoals hier onder:

lngAntwoord = MsgBox("Cellen wissen en doorgaan?", vbExclamation + vbYesNo + vbDefaultButton2, "Mededeling")
    If lngAntwoord = vbYes Then
    GoTo 4
    Else
    GoTo 5
    End If

Bij antwoord Ja: macro verder uitvoeren. (vanaf regel 4)
Bij antwoord Nee: naar einde macro (= regel 5) gaan.
Als de cellen A1 t/m F3 allemaal leeg zijn: De vraag niet stellen en de macro verder uitvoeren.

 

[HSV]

Helemaal begrijpen doe ik het niet Cor.

Ik heb er maar iets van gemaakt.
Twee codes in module1; werken beide hetzelfde.
Ik verneem het wel.

 

[corvdh]

Ik heb de 2 macro's uit het bestand geprobeerd, ik heb uiteindelijk de eerste genomen.
Werkt perfect, precies wat ik zocht.
Bedankt.:thumb: