how to check the array have value

X

x taol

Sub xx()
Dim an_x() As Long
k = 0
For i = 1 To 3
If k = 1 Then
ReDim Preserve an_x(1 To i)
an_x(i) = i + 6
End If
Next
'check whether an_x is empty or not empty.
'how can i know that the array is emptyed.

ubound or isarray or isempty or ismissing....
no ,no,no ???
End Sub


*** Sent via Developersdex http://www.developersdex.com ***
 
N

Norman Jones

Hi X Taol,

Try:
'===========>>
Sub xx()
Dim an_x() As Long
Dim k As Long, i As Long
Dim v As Variant

k = 0
For i = 1 To 3
If k = 1 Then
ReDim Preserve an_x(1 To i)
an_x(i) = i + 6
End If
Next

On Error Resume Next
v = UBound(an_x)
On Error GoTo 0

If IsEmpty(v) Then MsgBox "an_x is empty"

End Sub
'<<===========
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top