hello,
I get a type mismatch whenever I start my spreadsheet.
MODULE1
Public OldPoolValue562
Public NextColumnAvailable562 As Long
THIS WORKBOOK
Private Sub Workbook_Open()
OldPoolValue562 = Sheet1.Range("C3")
NextColumnAvailable562 = 4
OldPoolValue563 = Sheet2.Range("C3")
NextColumnAvailable563 = 4
OldPoolValue564 = Sheet3.Range("C3")
NextColumnAvailable564 = 4
End Sub
SHEET1
Sub Worksheet_Calculate()
Dim NewPoolValue562
NewPoolValue562 = Range("C3").Value
If NewPoolValue562 > OldPoolValue562 Then
'**debug highlights above for mismatch
OldPoolValue562 = NewPoolValue562
Range(Cells(5, NextColumnAvailable562), Cells(29, NextColumnAvailable562)).Value = _
Range(Cells(5, 3), Cells(29, 3)).Value
NextColumnAvailable562 = NextColumnAvailable562 + 1
Else
Exit Sub
End If
End Sub
Cell C3 = "#N/A" before external data kicks in and updates with normal numbers.
Can you please help?
I get a type mismatch whenever I start my spreadsheet.
MODULE1
Public OldPoolValue562
Public NextColumnAvailable562 As Long
THIS WORKBOOK
Private Sub Workbook_Open()
OldPoolValue562 = Sheet1.Range("C3")
NextColumnAvailable562 = 4
OldPoolValue563 = Sheet2.Range("C3")
NextColumnAvailable563 = 4
OldPoolValue564 = Sheet3.Range("C3")
NextColumnAvailable564 = 4
End Sub
SHEET1
Sub Worksheet_Calculate()
Dim NewPoolValue562
NewPoolValue562 = Range("C3").Value
If NewPoolValue562 > OldPoolValue562 Then
'**debug highlights above for mismatch
OldPoolValue562 = NewPoolValue562
Range(Cells(5, NextColumnAvailable562), Cells(29, NextColumnAvailable562)).Value = _
Range(Cells(5, 3), Cells(29, 3)).Value
NextColumnAvailable562 = NextColumnAvailable562 + 1
Else
Exit Sub
End If
End Sub
Cell C3 = "#N/A" before external data kicks in and updates with normal numbers.
Can you please help?