I have a basic data input sheet which users populate columns B through W with data. In hidden columns X through AS, I have a formula that returns "true" or "false" that checks the data values in each of the corresponding columns based on individual data requirements. In Column AT, I have a simple =AND( ) formula that returns a 1 if there are any false values in X through AS. I also have a formula in a named range that is used in a macro for this sheet (see below). The macro below is designed to only show the button when all the data fields meets the requirements. The button creates an XML file written to the users local drive (this part works fine).
My problem is: some users are getting the run-time error '13': type mismatch when inputting data. Others (including myself), do not. The data is simple address and payment information (like from a check register: Name, address, amount, reason for check payment, etc.). Any reason that would cause some people to get this error while others do not? Users can input data or copy/paste data.
Formula: =IF(SUM(CheckDataInput!AT:AT)=0,TRUE,FALSE)
Macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
Select Case Target.Address
Case Range("ShowMacroButton").Address
If Range("ShowMacroButton").Value = True Then
Sheets("CheckDataInput").Shapes("Button 1").Visible = True
Else
Sheets("CheckDataInput").Shapes("Button 1").Visible = False
End If
End Select
End If
End Sub
Thank you, in advance, for your consideration in helping resolve this.
My problem is: some users are getting the run-time error '13': type mismatch when inputting data. Others (including myself), do not. The data is simple address and payment information (like from a check register: Name, address, amount, reason for check payment, etc.). Any reason that would cause some people to get this error while others do not? Users can input data or copy/paste data.
Formula: =IF(SUM(CheckDataInput!AT:AT)=0,TRUE,FALSE)
Macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
Select Case Target.Address
Case Range("ShowMacroButton").Address
If Range("ShowMacroButton").Value = True Then
Sheets("CheckDataInput").Shapes("Button 1").Visible = True
Else
Sheets("CheckDataInput").Shapes("Button 1").Visible = False
End If
End Select
End If
End Sub
Thank you, in advance, for your consideration in helping resolve this.