मैं VBA में नया हूं और नीचे दिए गए कोड के साथ एक समस्या है, हर बार किसी भी सेल (कॉलम जी में एक से अधिक) को निम्नलिखित त्रुटि दिखाई देती है;
"रनटाइम त्रुटि 91 - ऑब्जेक्ट परिवर्तनीय या ब्लॉक वेरिबल सेट नहीं है"
Private Sub Worksheet_Change(ByVal Target As Range)
Static mailSent As Boolean
If Not mailSent And Range("G10:G250").Find("YES", MatchCase:=False).Count() > 0 Then
SendMail
mailSent = True
End If
End Sub
Private Sub SendMail()
With CreateObject("Outlook.Application").createitem(0)
.To = "helpdesk171@***.com"
.Subject = "*** Facility Manager Update"
.Body = "Hi Property Services, " & vbNewLine & vbNewLine & "Update made by Facility Manager which requires your attention." & vbNewLine & vbNewLine & "Click Here <\\Internal_Gold Facility Inspection Action Tracker.xlsx>" & vbNewLine & vbNewLine & "Please amend the drop down in Column G accordingly (received/complete)" & vbNewLine & vbNewLine & " Kind regards "
.Send
End With
End Sub
जब मैं डीबग पर क्लिक करता हूं तो यह लाइन को हाइलाइट करता है - "इफ नॉट मेलसेंट एंड रेंज (" जी 10: जी 250 ")। फाइंड (" यस ", मैचकैस: = गलत) .काउंट ()> 0 फिर"
किसी भी विचार जो इस त्रुटि को रोकने के लिए परिवर्तन की आवश्यकता है?
अग्रिम में धन्यवाद :)
धन्यवाद @ अकिना मैंने आपकी सिफारिश की कोशिश की लेकिन अभी भी वही त्रुटि संदेश मिल रहा है।
—
पी होप
Count
एक संपत्ति है, एक विधि नहीं है। इसके बाद कोष्ठक निकालें।