रनटाइम त्रुटि 91- एक्सेल VBA


0

मैं 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एक संपत्ति है, एक विधि नहीं है। इसके बाद कोष्ठक निकालें।
अकिना

धन्यवाद @ अकिना मैंने आपकी सिफारिश की कोशिश की लेकिन अभी भी वही त्रुटि संदेश मिल रहा है।
पी होप

जवाबों:


0

मुझे आपके बूलियन के बारे में निश्चित नहीं है, लेकिन आपको कुछ भी नहीं है, उदाहरण के लिए मैच का उदाहरण नहीं मिलता है

Private Sub Worksheet_Change(ByVal Target As Range)
    Static mailSent As Boolean
    Dim found As Range
    Set found = Range("G10:G250").Find("YES", MatchCase:=False)
    If found Is Nothing Then Exit Sub
    If Not mailSent And found.Count > 0 Then
        SendMail
        mailSent = True
    End If
End Sub
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.