Regel If Range inkorten

[fwalraven]

Hallo,

Is het mogelijk om de regel: If Range........... in tekorten?
Msgbox mag alleen verschijnen als in alle benoemde cellen alleen X aanwezig is.

Staat er bv in 1 cel of meerdere cellen een waarde dan mag de msgbox niet verschijnen.
zie bijlage.

Frans

 

[edmoor]

In je huidige code staat dat de MsgBox verschijnt als 1 van de cellen leeg is.
Dus, wat wil je precies?
Wat je hier zegt of wat in de huidige code staat?
Maar ik denk dat dit je wel een idee geeft:

Sub Macro2()
    For Each cell In Range("J2:J58")
        Select Case cell.Value
            Case "X", "Meldingsverslag"
            Case Else
                MsgBox "VUL EERST AFNAME_ID IN!", , cell.Address(0,0)
                Exit Sub
                Exit For
        End Select
    Next
End Sub

 

[sylvester-ponte]

WorksheetFunction.Count([J1:J58])

telt alleen aantal getallen in jouw range

 

[snb]

Als je nog niet bekend bent met de schrijfwijze Range("J2:J58") kun je beter eerst een basiscursus Excel volgen.
De rest komt dan wel later.

 

[fwalraven]

@Edmoor

Dit is het idee.
Maar deze code werkt precies verkeerd om.
De melding nu verschijnt als als bv in J5 een willekeurig getal is geplaatst.

De bedoeling is dat als alle cellen "X" of "Meldingsverslag" zijn, dat dan de melding verschijnt.

Frans

Sub Macro2()
    For Each cell In Range("J2:J58")
        Select Case cell.Value
            Case "X", "Meldingsverslag"
            Case Else
                MsgBox "VUL EERST AFNAME_ID IN!", , cell.Address(0,0)
                Exit Sub
                Exit For
        End Select
    Next
End Sub

 

[edmoor]

Zo dan?

Sub Macro2()
    m = WorksheetFunction.CountIf(Range("J1:J58"), "Meldingsverslag")
    x = WorksheetFunction.CountIf(Range("J1:J58"), "X")
    If x = 58 - m Then MsgBox "VUL EERST AFNAME_ID IN!"
End Sub

 

[sylvester-ponte]

of:

sub macro2()
     if WorksheetFunction.Count([J1:J58])>0 then MsgBox "VUL EERST AFNAME_ID IN!"
end sub

 

[fwalraven]

@Edmoor,

Code verandert in:

x = WorksheetFunction.CountIf(Range("J1:J58"), "X")
    If x > 50 Then MsgBox "VUL EERST AFNAME_ID IN!"

Werkt ook, want alleen als het aantal "X" groter is dan 50, dan is er niets ingevuld.


@silvester-ponte

> teken verandert in =, werkt dan goed.
Anders precies anders om

If WorksheetFunction.Count([J1:J58]) = 0 Then MsgBox "VUL EERST AFNAME_ID IN!"

Beiden bedankt voor jullie info.

Frans

 

[snb]

VBA-benadering:

Sub M_snb()
  if range("J1:J58").specialcells(2).count<>range("J1:J58").cells.count then msgbox "onvolledig"
End Sub

 

[fwalraven]

@snb,

Code doet niets.

Frans

 

[fwalraven]

Opgelost

Zie#8