I think this is what you need:
Public Function IsColumnBlank(argTitleRows As Long, argColNum As Long)
As Boolean
Application.Volatile
LastDataRow = Cells(Rows.Count, argColNum).End(xlUp).Row
If LastDataRow = argTitleRows Then
IsColumnBlank = True
End If
End Function
Regards,
Per
On 22 Jul., 16:19, xp <x...@discussions.microsoft.com> wrote:
> Using Office 2007;
>
> I need a function that would select the used range of a column below a
> specified number of title rows and return true if this area is blank (i.e. no
> entries of any kind apart from the title row(s).)
>
> For example:
>
> Public Function IsColumnBlank(argTitleRows as Long, argColNum as Long)
> 'select area below title rows specified
> 'determine if this area is blank
> 'return true if blank; false if not blank
> End Function
>
> Thanks for any help you may provide.
|