Sub TestffC()
Dim NextCol As Long
NextCol = ffC(shData)
Debug.Print NextCol
End Sub'*************************************
'Return first free column in sheet sh
'*************************************
Function ffC(sh As Worksheet) As Long
ffC = sh.Range("A1").CurrentRegion.Columns.Count + 1
End FunctionThe function ffC is part of My Common Library: My Common Library (1438 downloads )
Beware this is an unfinished project – and you are free to finish it. If you are looking for a out of the box invoice program, don’t download it – it’s not fully quality tested. If you are a VBA-developer, feel free and share your modifications with me. No, sorry, it doesn’t work on MAC…
Excel consultant Ketil Øyesvold Melhus I am a psychotherapist and system developer – where the common denominator for the two professions is diagnostics.
Usage example Video sample Function code The function fR is part of My Common Library: My Common Library (1 download)
When I want to add a new record to a table, I use the function CurrentRegion.Rows.Count and add 1 to the result to find the first empty row.CurrentRegion returns the contiguous range from a spesific cell. The contiguous range is the range from A1 in the case below – with no empty rows. Selecting CurrentRegion…
If you work from 20:15 to 02:30 on a Saturday, how many hours are in the interval 15:30 to 00:00, and what should you be paid? The function HoursInInterval() can give you the answer and calculate your wage correct depending on it’s a weekday, weekend or a holiday. You can download the workbook at the…
Find content in column1 with header xx, return value from same row in column2 with header yy. Note The function returns 0 (Zero) when value isn’t found, so you will not be able to distinguish between a found zero value, and value not found. So do not use if you have zero values in your…