Advice for Could Not Find The Specific Object message

ipbr21054

Well-known Member
Joined
Nov 16, 2010
Messages
5,843
Office Version
  1. 2007
Platform
  1. Windows
The code is shown below.
I complete the Textboxes & select from Comboboes but when i try to send values to worksheet i see the following RTE.

EaseUS_2025_01_12_11_54_17.jpg
When i debug the following line is in Red.
Please advise what this means.


Rich (BB code):
Private Sub CommandButton1_Click()
      If OptionButton1.Value = True And OptionButton7.Value = False And OptionButton8.Value = False _
      And OptionButton9.Value = False And OptionButton10.Value = False And OptionButton11.Value = False Then
     
     MsgBox "You Must Select A Lead Type", vbCritical, "Lead Type Selection Error Message"
Else
    
    Dim i As Long, x As Long
    Dim ControlsArr(1 To 8) As Variant, ns As Variant
    
    Application.ScreenUpdating = False
    For i = 1 To 8
      ControlsArr(i) = Controls(IIf(i > 2, "ComboBox", "TextBox") & i).Value
    Next i
    
    With ThisWorkbook.Worksheets("MCLIST")
      .Range("A8").EntireRow.Insert Shift:=xlDown
      .Range("A8:K8").Borders.Weight = xlThin
      .Cells(8, 1).Resize(, UBound(ControlsArr)).Value = ControlsArr
      
      If ComboBox3.Value = "HONDA" Then
      .Cells(8, 2).Characters(Start:=10, Length:=1).Font.Color = vbRed
      .Cells(8, 9).Font.Color = vbRed
      Else
      .Cells(8, 2).Characters(Start:=10, Length:=1).Font.Color = vbBlack
      .Cells(8, 9).Font.Color = vbBlack
      End If
      
      If Me.ComboBox5.Value = "HISS CABLE ONLY" Or Me.ComboBox5.Value = "CLONE CHIP ONLY" Then
      .Cells(8, 8).Value = "N/A"
               
      End If
          
      If OptionButton1.Value Then .Cells(8, 10).Value = "YES"
      If OptionButton2.Value Then .Cells(8, 10).Value = "NO"
      If OptionButton2.Value Then .Cells(8, 11).Value = "N/A"
      If OptionButton7.Value Then .Cells(8, 11).Value = "BUNDLE"
      If OptionButton8.Value Then .Cells(8, 11).Value = "GREY"
      If OptionButton9.Value Then .Cells(8, 11).Value = "RED"
      If OptionButton10.Value Then .Cells(8, 11).Value = "BLACK"
      If OptionButton11.Value Then .Cells(8, 11).Value = "CLEAR"
      
      If ComboBox3.Value = "HONDA" Then
      ns = Array("X", "Y", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", _
                 "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "P", "R", "S")
      For i = 0 To UBound(ns)
        If Mid(Range("B8").Value, 10, 1) = ns(i) Then
          Range("I8").Value = "" & 2000 + i
          Exit For
        End If
      Next
      End If
      
      Application.EnableEvents = False
      If .AutoFilterMode Then .AutoFilterMode = False
      x = .Cells(.Rows.Count, 1).End(xlUp).Row
      .Range("A7:K" & x).Sort Key1:=.Range("A8"), Order1:=xlAscending, Header:=xlGuess
      .Range("A:A").Find(TextBox1.Value, , xlValues, xlWhole).Select
      Application.Goto Selection, True
    End With
    ActiveWorkbook.Save
    MsgBox "DATABASE HAS NOW BEEN UPDATED", vbInformation, "SUCCESSFUL MESSAGE"
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Unload McListForm
  
  End If
  
    Select Case ComboBox3.Value
        Case "APRILIA", "KAWASAKI", "PIAGGIO", "SUZUKI", "YAMAHA"
            MsgBox "DONT FORGET TO ADD YEAR", vbInformation, "MOTORCYCLE YEAR MESSAGE"
            Range("A:A").Find(TextBox1.Value, , xlValues, xlWhole).Offset(, 8).Select
    End Select
    
End Sub
 
Using the original TextBox & Combobox i renamed ComboBo9 to Combobox2

So i now have TextBox1 & ComboBox 2,3,4,5,6,7,8

But i am getting that same error message even when i have 1 To 8
 

Attachments

  • EaseUS_2025_01_12_11_54_17.jpg
    EaseUS_2025_01_12_11_54_17.jpg
    14.3 KB · Views: 1
Upvote 0

Excel Facts

Excel motto
Not everything I do at work revolves around Excel. Only the fun parts.
I added TextBox 2 the values are sent to the sheet with no errors.
I didnt put a value in the new Textbox.

But i did notice that the value from ComboBox9 wasnt entered in the worksheet cell but i did enter a value on the userform

I get no errors at all
VBA Code:
    Dim i As Long, x As Long
    Dim ControlsArr(1 To 9) As Variant, ns As Variant
    
    For i = 1 To 9
        ControlsArr(i) = Controls(IIf(i > 2, "ComboBox", "TextBox") & i).Value
        Debug.Print i, ControlsArr(i)
    Next i
    
    Application.ScreenUpdating = False
   
    ' Rest of your code
 
Upvote 0
Removing Combobox 9 & replacing it with Textbox2 & using the code from my original post fixed the issue.
All now works.
The only value in Combibox 9 can be lived without. Thanks for the replies.
 
Upvote 0

Forum statistics

Threads
1,225,626
Messages
6,186,094
Members
453,337
Latest member
fiaz ahmad

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top