Is there a function in VBA to find out if entire column is empty?
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 |
Is there a function in VBA to find out if entire column is empty?
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 |
Is there a function in VBA to find out if entire column is empty?
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 *** |
Is there a function in VBA to find out if entire column is empty?
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 |
Is there a function in VBA to find out if entire column is empty?
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 |
All times are GMT +1. The time now is 04:53 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com