Nedir buhata:Can't Exit Design Mode because Control "HtmlSelect1' con not be created

[hsayar]

Nedir buhata:Can't Exit Design Mode because Control "HtmlSelect1' con not be created

Nedir buhata:Can't Exit Design Mode because Control "HtmlSelect1' con not be created

Arkadaşlar sayfada bı kodlar var

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H2:H65536,r2:r65536]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub

If Target.Column = 8 Then
'MsgBox "Mahalleler Dağıtılacaktır"

   sonsatır = [O65536].End(3).Row + 1
    'MsgBox sonsatır
    cumledeki_degerler = Split(Target.Value, "/")
    For i = 0 To UBound(cumledeki_degerler)
        Cells(sonsatır + i, "J") = Cells(Target.Row, "A")
        Cells(sonsatır + i, "K") = Cells(Target.Row, "B")
        Cells(sonsatır + i, "L") = Cells(Target.Row, "C")
        Cells(sonsatır + i, "M") = Cells(Target.Row, "D")
        Cells(sonsatır + i, "N") = Cells(Target.Row, "E")
        Cells(sonsatır + i, "O") = cumledeki_degerler(i)
    Next
'End If
    
'18
ElseIf Target.Column = 18 Then
'MsgBox "Sokaklar Dağıtılacaktır"
   sonsatır = [Z65536].End(3).Row + 1
    'MsgBox sonsatır
    cumledeki_degerler = Split(Target.Value, "/")
    For i = 0 To UBound(cumledeki_degerler)
        Cells(sonsatır + i, "T") = Cells(Target.Row, "J")
        Cells(sonsatır + i, "U") = Cells(Target.Row, "K")
        Cells(sonsatır + i, "V") = Cells(Target.Row, "L")
        Cells(sonsatır + i, "W") = Cells(Target.Row, "M")
        Cells(sonsatır + i, "X") = Cells(Target.Row, "N")
        Cells(sonsatır + i, "Y") = Cells(Target.Row, "O")
        Cells(sonsatır + i, "Z") = cumledeki_degerler(i)

    Next
End If
End Sub

h satırlarına aşağıdaki gibi verileri kopyaldığpımda düzenlemeye yarıyordu ama şimdi bu hatayı veriyo

GÖLKAVAK/KOYUNLU/ORTA/SANAYİ/YENİ/ŞAHİNPAŞA

nasıl düzelir veya düğmeyle yapılabilirmi