msgbox en doorgaan afhankelijk van waarde in de kolom

[vrouw]

Zie bestand.

Het is de bedoeling dat er een mail word verzonden alleen als er in kolom H 1 of meerdere Negatieve waarden staan.
Als die er staan dan mag de vraag komen of je echt de mail wil verzenden(anders niet deze vraag) en bij nee moet de macro stoppen.

Ik kom er maar niet uit hoe

 

[VenA]

Zoiets?

Sub VenA()
For Each cl In Sheets(1).Columns(8).SpecialCells(2, 1)
    If cl < 0 Then
        If msgbox("Wil je een mail versturen voor de voorraad correctie?", vbYesNo) = vbYes Then
            mail_versturen
            Exit Sub
          Else
            Exit Sub
        End If
     End If
Next cl
End Sub

 

[vrouw]

Thanks, loopt goed in het hier geposte voorbeeld.
Echter als ik het in het basisbestand wil gebruiken loopt ie stuk op de regel:
For Each cl In Sheets(1).Columns(8).SpecialCells(2, 1)

Ik vermoed omdat het in mijn bestand naar sheet 7 moet kijken dus heb ik de regel aangepast naar:
For Each cl In Sheets(7).Columns(8).SpecialCells(2, 1)

Maar ook dan de foutmelding "no cells were found".

 

[VenA]

columns(8).SpecialCells(2, 1) zoekt naar getallen in kolom H. Als er geen getallen in kolom H staan dan krijg je inderdaad een foutmelding.

 

[vrouw]

columns(8).SpecialCells(2, 1) zoekt naar getallen in kolom H. Als er geen getallen in kolom H staan dan krijg je inderdaad een foutmelding.

Er staan wel getallen in kolom H.
Kan het niet met de sheets naam te maken hebben of sheets nummer?

 

[VenA]

Maak van Sheets(7) eens sheets("De naam van het blad") Plaats anders een representatief voorbeeld.

 

[vrouw]

Het werkelijke bestand word wel heel moeilijk gezien de openbaarheid....
Maar hierbij nogmaals het gewraakte bestand met de gegevens op een andere sheet dan de eerste keer. en bij deze loopt ie dus fout.

 

[VenA]

Sheets("test") dus met ""

 

[vrouw]

Thanks, Zooooo Blond.