E
edwardpestian
The following code is returning a Compile Error: Automation type no
supported in visual basic. The underlined portion of the code is wha
is highlighted when I get the error message.
Regards,
EP
Sub Button9_Click()
Dim _Answer_As_VbMsgBoxResult_
Dim blnCopy As Boolean
If Sheets("Data").Range("Y3").Value
Sheets("Input").Range("G9").Value Then
CopyData:
********Sheets("Input").Range("G15:H29").Copy
********Sheets("Data").Range("D114").PasteSpecial Paste:=xlValues
SkipBlanks:=True
********Sheets("Input").Range("G15:H29").ClearContents
********Sheets("Input").Range("L15:M24").Copy
********Sheets("Data").Range("D130").PasteSpecial Paste:=xlValues
********Sheets("Input").Range("L15:M24").ClearContents
If blnCopy = True Then GoTo ResumeHere
**blnCopy = True
End If
If Range("C15").Value <> Range("F15").Value = False Then
********Answer = MsgBox("These dates have already been entered. Do yo
want to continue?", vbYesNo)
End If
If Answer = vbYes Then
*GoTo CopyData
ResumeHere:
ElseIf Answer = vbNo Then
** 'Do Nothing
End If
Continue:
****Application.CutCopyMode = False
End Su
supported in visual basic. The underlined portion of the code is wha
is highlighted when I get the error message.
Regards,
EP
Sub Button9_Click()
Dim _Answer_As_VbMsgBoxResult_
Dim blnCopy As Boolean
If Sheets("Data").Range("Y3").Value
Sheets("Input").Range("G9").Value Then
CopyData:
********Sheets("Input").Range("G15:H29").Copy
********Sheets("Data").Range("D114").PasteSpecial Paste:=xlValues
SkipBlanks:=True
********Sheets("Input").Range("G15:H29").ClearContents
********Sheets("Input").Range("L15:M24").Copy
********Sheets("Data").Range("D130").PasteSpecial Paste:=xlValues
********Sheets("Input").Range("L15:M24").ClearContents
If blnCopy = True Then GoTo ResumeHere
**blnCopy = True
End If
If Range("C15").Value <> Range("F15").Value = False Then
********Answer = MsgBox("These dates have already been entered. Do yo
want to continue?", vbYesNo)
End If
If Answer = vbYes Then
*GoTo CopyData
ResumeHere:
ElseIf Answer = vbNo Then
** 'Do Nothing
End If
Continue:
****Application.CutCopyMode = False
End Su