Modificar/Ingresar Datos de Listbox con selección Multiple

[nslgcl]

Buenas Tardes, 

He intentado de varias formas pero no he podido lograrlo, espero que se pueda hacer, lo que quiero es de un listbox seleccionar un grupo e ingresar la misma información simultáneamente a todos los seleccionados.

De antemano agradezco a todos y adjunto el archivo junto con una imagen que ayudara a explicar mejor.

Saludos!

 

 

Ejemplo.xlsm

[tierra_pampa]

Hola @nslgcl

Adapté el archivo a lo que, entiendo, estás solicitando.

Puedes probar y comentar?

Que tengas una buena jornada!

ae20160920ejemplo.xlsm

[Antoni]

Private Sub CommandButton1_Click()
    With ListBox1
        For x = 0 To .ListCount - 1
            If .Selected(x) = True Then
               Range("D" & x + 4) = TextBox1
               Range("E" & x + 4) = TextBox2
               Range("F" & x + 4) = TextBox3
            End If
        Next
    End With
End Sub

 

[nslgcl]

15 hours ago, tierra_pampa said:

Hola @nslgcl

Adapté el archivo a lo que, entiendo, estás solicitando.

Puedes probar y comentar?

Que tengas una buena jornada!

ae20160920ejemplo.xlsm

Muchas gracias, lo acabo de revisar, seria algo mas inverso, que al rellenar la información del textbox te agregue a los que he seleccionado en el listbox, si es que tienen información que los reescriba.

9 hours ago, Macro Antonio said:

Private Sub CommandButton1_Click()
    With ListBox1
        For x = 0 To .ListCount - 1
            If .Selected(x) = True Then
               Range("D" & x + 4) = TextBox1
               Range("E" & x + 4) = TextBox2
               Range("F" & x + 4) = TextBox3
            End If
        Next
    End With
End Sub

 

Es mas o menos así mismo, lo que no he podido solucionar es que al seleccionar algunos items en el listbox se modifiquen en grupo y no solo uno.

Por ejemplo, si selecciono los 4 primeros, al escribir en los 3 textbox (Interior, exterior, color) se ingrese la información en todos los seleccionados.

Muchas gracias a ambos, agradezco mucho la ayuda!

[nslgcl]

16 hours ago, Macro Antonio said:

Private Sub CommandButton1_Click()
    With ListBox1
        For x = 0 To .ListCount - 1
            If .Selected(x) = True Then
               Range("D" & x + 4) = TextBox1
               Range("E" & x + 4) = TextBox2
               Range("F" & x + 4) = TextBox3
            End If
        Next
    End With
End Sub

 

Ya encontré el problema pero no la solución, no me funciona porque es una tabla, por lo cual solo me ingresa uno.

intente lo siguiente y no me resulto:

Quote

Private Sub CommandButton1_Click()
With ListBox1
        For x = 0 To .ListCount - 1
            If .Selected(x) = True Then
               Range("Tabla1[Exterior]" & x + 4) = TextBox1
               Range("Tabla1[Interior]" & x + 4) = TextBox2
               Range("Tabla1[C0lor]" & x + 4) = TextBox3
            End If
        Next
    End With
End Sub

 

 

También intente como "Tabla1['Exterior]" y  "=Tabla1[Exterior]" ninguna con buenos resultados.

Gracias!, Saludos

(Puse [C0lor] porque si lo escribía correctamente desaparecía aquí en el foro.