मैं सभी कार्यपुस्तिकाओं को खोजने के लिए कोड की कोशिश कर रहा हूं और यदि यह पता चलता है कि क्या खोजा जा रहा है तो यह पूरी पंक्ति को एक उपयोगकर्ता-सूची में एक सूची बॉक्स में चिपका देता है।
हम बहुत सारे भागों का आदेश देते हैं और हम यह देखना चाहते हैं कि जब भाग अंतिम आदेश दिया गया था, तो हम उसे खोजना चाहते हैं। यह खोज उस जानकारी को खींच लेगी।
नीचे दिया गया कोड मुझे एक त्रुटि संदेश दे रहा है और मैं इसका पता नहीं लगा सकता। OBJECT DOESN’T SUPPORT THIS PROPERTY OR METHODकोड को चलाने पर बोल्ड में भाग को हाइलाइट किया जा रहा है।
किसी को भी इस के साथ मदद कर सकता है?
Option Explicit
Private Sub CommandButton1_Click()
Dim wb1 As Workbook, wb2 As Workbook
Set wb1 = ThisWorkbook
Dim ws As Worksheet
Dim sPath As String
Dim sfile As String
Dim C As Range
sPath = "\\192.168.1.4\ET_Documents\Shared Documents\Inventory Transactions\TRANSACTIONS AS OF 11-3-2017\"
sfile = Dir(sPath & "*.xls*")
Application.ScreenUpdating = False
Set ws = Sheet1
ListBox1 = 0
Do While sfile <> ""
Set wb2 = Workbooks.Open(sPath & sfile)
With ListBox1
For Each C In wb2.Columns("b8:b15") ' THIS IS THE HIGHLIGHTED LINE
If C = TextBox1.Value Then
With C.EntireRow
ListBox1.AddItem
End With
End If
Next
End With
wb2.Close False
sfile = Dir()
Loop
Application.ScreenUpdating = True
End Sub