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 (1508 downloads )
RunCopyUsedRangeValues will copy the values from the sheet with codename shSource to shDestination. It is extremely fast, and very useful when I don’t need formatting or formulas. You can download the Excel workbook at the bottom of the article Usage example The source and destination sheets can be in the same or in separate workbooks…
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…
Usage example Video sample Function code The function fR is part of My Common Library: My Common Library (1 download)
This was a fun exercise. How to place a random number of dots on a circles circumference with exact the same distance between them? The need arose building a program for automated seating. Rectangular tables were no big deal, but what about the round tables? You can download the workbook at the bottom of this…
The Nextworkday(date, optional holidays) function returns the date for the next workday. The first parameter is the starting date you set manually.The second parameter is optional and points to a range with dates you want to exclude from the workdays list, like easter or your vacation.If you omit the second parameter, only Saturdays and Sundays…