रनटाइम त्रुटि 1004: आवेदन परिभाषित या वस्तु परिभाषित त्रुटि

-1

त्रुटि जारी है Wdest.Cells(dcodecount,4).Value = dloc मुझे समझ नहीं आता कि यह काम क्यों नहीं करता है। क्या कोई मुझे स्पष्टीकरण देने में मदद कर सकता है कि यह काम क्यों नहीं करता है? धन्यवाद

Sub Filterdtag()
Dim address As String
Dim dcodecount As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set Wsource = Worksheets("Sheet1")
Set Wdest = Worksheets("Sheet2")
address = InputBox("Type in address that you want to filter")

Wsource.Select
Range("A1").Select
Do While ActiveCell.Value <> Empty

For Each rcell In Wsource.Range("A1:A10000")
    If InStr(1, rcell, "Dcode", 1) Then
    stringdcode = InStr(rcell, ":")
    dcode = Mid(rcell, stringdcode + 1, 10)
    dcodecount = 1
    dcodecount = dcodecount + 1

    Wdest.Select
     Wdest.Cells(Rows.Count, "A").End(xlUp).Offset(1) = dcode
    Wsource.Select

    ElseIf InStr(1, rcell, "Ddesc", 1) Then
    stringddesc = InStr(rcell, ":")
    ddesc = Mid(rcell, stringdcode + 1, 50)

    Wdest.Select
     Wdest.Cells(Rows.Count, "B").End(xlUp).Offset(1) = ddesc
    Wsource.Select

    ElseIf InStr(1, rcell, address, 1) Then
    stringdloc = InStr(rcell, ":")
    dloc = Mid(rcell, stringdloc + 1, 50)

    Wdest.Select
    Wdest.Cells(Rows.Count, "C").End(xlUp).Offset(1) = dloc
    Wsource.Select

    Else
    stringdloc = InStr(rcell, ":")
    dloc = Mid(rcell, stringdloc + 1, 50)
    Wdest.Select
    If Wdest.Cells(dcodecount, 4).Value = "" Then
    Wdest.Cells(dcodecount,4).Value = dloc ==>error on this line
    ElseIf Wdest.Cells(dcodecount, 5).Value = "" Then
    Wdest.Cells(dcodecount, 5).Value = dloc
    ElseIf Wdest.Cells(dcodecount, 6).Value = "" Then
    Wdest.Cells(dcodecount, 6).Value = dloc
    ElseIf Wdest.Cells(dcodecount, 7).Value = "" Then
    Wdest.Cells(dcodecount, 7).Value = dloc
    ElseIf Wdest.Cells(dcodecount, 8).Value = "" Then
    Wdest.Cells(dcodecount, 8).Value = dloc
    ElseIf Wdest.Cells(dcodecount, 9).Value = "" Then
    Wdest.Cells(dcodecount, 9).Value = dloc
    ElseIf Wdest.Cells(dcodecount, 10).Value = "" Then
    Wdest.Cells(dcodecount, 10).Value = dloc
    Wsource.Select
    End If
   End If

Next
Loop

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

vba

— aramie yu
स्रोत

क्या आपने मूल्य की जाँच की है dloc?

— PeterT

हाँ, dloc पर एक मान है। dloc एक स्ट्रिंग मान है, यह एक पता है, उदाहरण के लिए: == p1 = p1s + p1 / 18

— aramie yu

यदि आप कोई सूत्र दर्ज करने का प्रयास कर रहे हैं, तो आप उस स्ट्रिंग को सेट नहीं कर सकते .Value, तुम्हें अवश्य उपयोग करना चाहिए Wdest.Cells(dcodecount,4).Formula = dloc।

— PeterT