#28
|
|||
|
|||
Variable for Date not working
Wanted you to see my final code:
HTML Code:
Function PrjByMonth(strField As String, pMonth As Date) Dim sht As Worksheet, i As Long, j As Integer 'Application.Volatile PrjByMonth = 0 For Each sht In ActiveWorkbook.Sheets If Mid(sht.Name, 1, 2) = "FY" Then For j = 3 To 14 'The row of dates. Starts at C1 to N1 If sht.Cells(1, j) = pMonth Then 'This says ROW 1,COLUMNS C THRU N For i = 2 To 30 'This says ROWS 2 THRU 30 If sht.Cells(i, 2) = strField Then ' This is ROWS 2 THRU 30, COLUMN B PrjByMonth = PrjByMonth + sht.Cells(i, j) GoTo nxtSht End If Next i End If Next j End If nxtSht: Next End Function Public Sub ViewPrjByMth() Application.ScreenUpdating = False Sheets("PrjByMth").Range("B2:BI50").Clear With Sheets("PrjByMth").Range("B2:BI50") .FormulaR1C1 = "=IF(ISBLANK(RC1),0,IF(ISBLANK(R1C),0,prjbymonth(RC1,R1C)))" .Value = .Value .NumberFormat = "_($* #,##0_);_($* (#,##0);_($* ""-""_);_(@_)" End With BoldHighHours Application.ScreenUpdating = True End Sub Sub BoldHighHours() Application.ScreenUpdating = False Dim c As Range For Each c In Range("B2:BI50") If c.Value >= 10 Then c.Font.Bold = True c.Interior.ColorIndex = 3 Else c.Font.Bold = False c.Interior.ColorIndex = False End If Next Application.ScreenUpdating = True End Sub |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
I want to create a bar chart of multiple variable. Then I need to draw trend lin of those variable | shimulsiddiquee | Excel | 1 | 05-16-2017 07:39 AM |
Run Time Error '91': Object variable or With block variable not set using Catalogue Mailmerge | Berryblue | Mail Merge | 1 | 11-13-2014 05:36 PM |
Run-time error 91 object variable or with block variable not set | JUST ME | Word VBA | 4 | 03-25-2014 06:56 AM |
Run-time error '91': Object variable or With block variable not set | tinfanide | Excel Programming | 2 | 06-10-2012 10:17 AM |
30+ days Variable Day Date Calculations via Fields | ztag | Word | 2 | 01-06-2012 11:12 AM |