VBA : Check if Range Empty or Not Empty

[muhammad susanto]

hi all..

i want to check if range blank or not blank fro m range D2:BU1000
this code not work properly how to fix it

Sub CheckIfCellIsEmpty()
Dim isMyCellEmpty As Boolean
isMyCellEmpty = IsEmpty(Range("D2:BU1000"))
If isMyCellEmpty = False Then
MsgBox "NOT EMPTY"
Else
MsgBox "EMPTY"
End If
End Sub

thanks in advance

susanto

 

[JEC]

You may check with application.counta(range(….))

 

[muhammad susanto]

hi ..how to make complete code?

 

[muhammad susanto]

hi...
i want to show or add code message box like this:

Set rngSourceRange = Application.InputBox(prompt:="Select range", Title:="Range", Default:="", Type:=8)

how to combine it?

 

[bebo021999]

One way (range with space or "" is considered as NOT empty)

Sub CheckIfCellIsEmpty()
    If Application.InputBox(prompt:="Select range", Title:="Range", Default:="", Type:=8).Find("*") Is Nothing Then
        MsgBox "EMPTY"
    Else
        MsgBox "NOT EMPTY"
    End If
End Sub

If range with space or "" is considered as empty

Sub CheckIfCellIsEmpty()
    For Each cell In Application.InputBox(prompt:="Select range", Title:="Range", Default:="", Type:=8)
        If Len(cell) > 0 Then
            MsgBox "NOT EMPTY"
            Exit Sub
        End If
    Next
    MsgBox "EMPTY"
End Sub

 

[muhammad susanto]

hi bebo021999...working well!!
i give you 5 start

 

[bebo021999]

hi bebo021999...working well!!
i give you 5 start

Start, start, start, start and start again!
BTW, nice to hear it works.

 

[muhammad susanto]

ups..sorry bebo, i mean STAR not start