VLOOKUP सटीक मैचों के लिए ELSE मान लौटा रहा है?

Question

मैं VBA में नया हूं और मुझे यह पता नहीं लग सकता है कि मेरा कोड काम क्यों नहीं कर रहा है।

मैं यह देखने के VLOOKUPलिए Zकॉलम में मानों की कोशिश कर रहा हूं कि क्या कोई "NO" या "NOT SURE" मान हैं और BBयदि कोई मेल है तो कॉलम में "N" जैसे मान लौटाएं ।

Sub comp()
Dim sRange As String
Dim result As String
sRange = "z:z"

If sRange = "NO" Or sRange = "NOT SURE" Then
   result = "N"
Else
   result = "Y"
End If
Range("bb2").Value = result
End Sub

मेरे पास कोई सुराग नहीं है कि यह "NO" और "NOT SURE" प्रविष्टियों के लिए "N" क्यों नहीं लौटा रहा है। सभी मानों को "Y" के रूप में लौटाया जाता है।

अग्रिम में धन्यवाद।

Comments

आप एक पंक्ति जोड़ सकते हैं या उसमें संशोधन कर सकते हैं ताकि यह आपको sRange के मूल्य को दिखा सके .. मैं ज्यादा एक्सेल vba नहीं जानता, लेकिन शायद पसंद है result = "Y"+sRange याRange("....").Value=sRange

— barlop

भी (मैं पूरी तरह से अनुमान लगा रहा हूं) लेकिन शायद यह रेखा sRange = "z:z"गलत हो सकती है .. शायद आप इसे शाब्दिक स्ट्रिंग प्रदान कर रहे हैं .. और फिर शायद आप गलती से शाब्दिक स्ट्रिंग के लिए एक सीमा का परीक्षण कर रहे हैं। आपका मुद्दा संभवतः इस तरह की चीजों से संबंधित है

— बार्लॉप

@barlop बिलकुल सही है। और तुम भी एक स्ट्रिंग के रूप में sRange की घोषणा कर रहे हैं।

— रॉन रोसेनफेल्ड

Answer 1

आपका कोड N के स्थान पर Y वापस आ रहा है, क्योंकि sRangeचर के लिए आपने पूरे Z कॉलम को असाइन किया है, ऐसे में आपको पूरे Z कॉलम को NO या NOT SURE से भरना होगा। और मुझे यकीन है कि आपने ऐसा नहीं किया होगा।

मैं आपको संशोधित संस्करण का सुझाव दे रहा हूं जिसमें Z कॉलम में केवल कुछ पंक्तियाँ हैं और इस मामले में VB कोड N को लौटाता है।

Sub comp()

Dim c As Range

    For Each c In Range("Z1:Z10")

        If (c.Value = "NO") Or (c.Value = "NOT SURE") Then

            Range("b2").Value = "N"
            Else
            Range("b2").Value = "Y"

        End If

    Next c

End Sub

नीचे स्क्रीन शॉट की जाँच करें:

ध्यान दें, आवश्यकतानुसार डेटा श्रेणी समायोजित करें।