Private Sub Capitulos_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Set cat = Worksheets("tablas")
    t = Me.Capitulos.ListIndex + 1
    r = 6
    Do While cat.Cells(r, 3) <> ""
        If cat.Cells(r, 2) = t Then
            nc = cat.Cells(r, 3)
            Exit Do
        End If
        r = r + 1
    Loop
    
    nomarea = InputBox("Cambio de Nombre a : " & nc, "Modificaciones: Areas de Seguimiento")
    If nomarea = vbNullString Then
        MsgBox "Cancel"
    Else
        'Aqui me manda error
        Me.Capitulos.List(t - 1, 0) = nomarea
        MsgBox "Acepto"
    End If
        
    l = Len(nomarea)
End Sub

Quiero renombrar el Item del List Box y me manda este mensaje

Estará mal la instrucción que puse?

Gracias por su ayuda

Adjunto archivo

Formulario Nuevo.xlsm

 

Es un  error conceptual, no se puede modificar/añadir/eliminar un elemento de un listbox/combobox si lo has llenado con RowSource, debes hacerlo directamente en en el rango de la hoja, prueba modificando esta parte del código:

    nomarea = InputBox("Cambio de Nombre a : " & nc, "Modificaciones: Areas de Seguimiento")
    If nomarea = vbNullString Then
        MsgBox "Cancel"
    Else
        Range("Tabla1")(t) = nomarea '<---------------
        MsgBox "Acepto"
    End If

 

Ok. Antoni, probaré, y me anticipo:

Me voy a ver en la necesidad de 2 situaciones mas:

- Eliminar del ListBox y agregar a ListBox

Que sintaxis deberé aplicar.

Gracias de antemano.

 

 

Excelente, si funciona.

Pregunta. Cuando invoco el InputBox quise poner el texto de lo que iba a cambiar y no pude, el Input me lo pone vacio, es decir,

Si quiero cambiar "Clientes" que aparezca en el input y solo adciona "Clientes Activos" por ejemplo.

Me expliqué. Gracias.

 

Perdón, esta seria otro tema o de una vez lo incluyo.

Existe la forma de poner los Labels con fondo Transparente para evitar Código?

Hace 17 minutos , Janlui dijo:

Perdón, esta seria otro tema o de una vez lo incluyo.

Existe la forma de poner los Labels con fondo Transparente para evitar Código?

Con la propiedad BackStyle.

Ok. gracias (BackStyle)