Hi, VBA experts:

Can anyone inform me if VBA has a function that tells if a coumn in a
worksheet is empty?

I wrote the following code, but it does not work. I could write some
code to check each row of the column, but I believe VBA must have a
function to take care of this. Please help. Thanks.


Cells(3, 6).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

If Selection.Value = " " Then

noData = True

Esle

Selection.Copy

End If


Thank you very much.

KHW

Maybe...

if application.counta(range("F:F")) 0 then
'there's something in column F
else
'all of F is empty
end if



HelpEachOther wrote:

Hi, VBA experts:

Can anyone inform me if VBA has a function that tells if a coumn in a
worksheet is empty?

I wrote the following code, but it does not work. I could write some
code to check each row of the column, but I believe VBA must have a
function to take care of this. Please help. Thanks.

Cells(3, 6).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

If Selection.Value = " " Then

noData = True

Esle

Selection.Copy

End If


Thank you very much.

KHW

--

Dave Peterson

Dave:

Thank you very much for your quick response. I have tried your
suggestion and it works!!

Thank you!!!

KHW


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

Give this a try...

Sub test()
MsgBox EmptyColumn("A")
MsgBox EmptyColumn("B")
MsgBox EmptyColumn("C")

End Sub

Public Function EmptyColumn(ByVal ColumnReference As String) As Boolean
Columns(ColumnReference).Select
If Application.WorksheetFunction.CountA(Columns(Colum nReference)) 0 Then
EmptyColumn = False
Else
EmptyColumn = True
End If
End Function

--
HTH...

Jim Thomlinson


"HelpEachOther" wrote:

Hi, VBA experts:

Can anyone inform me if VBA has a function that tells if a coumn in a
worksheet is empty?

I wrote the following code, but it does not work. I could write some
code to check each row of the column, but I believe VBA must have a
function to take care of this. Please help. Thanks.


Cells(3, 6).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

If Selection.Value = " " Then

noData = True

Esle

Selection.Copy

End If


Thank you very much.

KHW

Dim LastRow As Long

LastRow = 65536
If IsEmpty(Cells(LastRow, "A")) Then
LastRow = Cells(LastRow, "A").End(xlUp).Row
If LastRow = 1 And IsEmpty(Cells(LastRow, "A")) Then LastRow = 0
End If

Returns the last row in a column with something in it. Returns zero if the
entire column is empty

"HelpEachOther" wrote:

Hi, VBA experts:

Can anyone inform me if VBA has a function that tells if a coumn in a
worksheet is empty?

I wrote the following code, but it does not work. I could write some
code to check each row of the column, but I believe VBA must have a
function to take care of this. Please help. Thanks.


Cells(3, 6).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

If Selection.Value = " " Then

noData = True

Esle

Selection.Copy

End If


Thank you very much.

KHW