Last seen: Jun 10, 2026
Try something like this: Sub SendemailAll() Dim xOutlookObj As Object Dim xEmailObj As Object Dim tempFile As String Dim strbodymsg As String ...
The entries in your Type column have a trailing space, so you need "Single Family " as the criterion, or use TRIM on the range.
The first 13 options for AGGREGATE require a range to process and will not work with an array, which is what your IF function is returning.
You could use SCAN for the running total: rt, SCAN(0,dc,LAMBDA(a,b,a+b))
If you format the Normal cell style to use whatever font you like, that will be the default for all cells unless specified otherwise.
You're welcome. 🙂 That's exactly why I have it as a function - reusable anywhere!
Yes - what Mynda said! 🙂
Power Query is a simple option for this - see attached. You can also do it using pivot tables but it's a bit more convoluted.
Did you apply the font while a filter was in operation? If so, you can then end up with different formatting on new rows that appear due to other filt...
You've created a circular reference by putting that formula in the same column it is referring to. What are you actually trying to achieve?
You're welcome, and merry Christmas 🙂
Instead of using DATEVALUE, I'd suggest using DATE(RIGHT(tblschuiexport[Datum],4),MID(tblschuiexport[Datum],4,2),LEFT(tblschuiexport[Datum],2))
Add this function below your code: Function GetFolder() As String Dim dlg As FileDialog Set dlg = Application.FileDialog(msoFileDialogFolderPi...
You could use: =IF(B12<>"","",IFNA(VLOOKUP($G12,INDEX('Category_P&L_ CM'!$A:$A,$P$2):INDEX('Category_P&L_ CM'!$C:$C,$P$3),2,FALSE),0)...
Not simpler, but just as an option: =LET(data,A2:B507,numrows,50,numcols,ROUNDUP(ROWS(data)/numrows,0),CHOOSECOLS(HSTACK(WRAPCOLS(INDEX(data,,...