modificare dati da listbox

Question

Ciao a tutti e buone feste

come da titolo devo modificare dei dati di un Foglio caricati in un listbox dove selezionando la riga da modificare carico i vari Texbox dove posso modificare.

Quello che non riesco e creare è il codice che sostituisca la riga selezionata con quello scritto nei Texbox

praticamente vorrei fare una cosa simile a "GestioneFoglioDaUserForm" se non ricordo male l'avevo visto su  maurogsc.eu

---

grazie

Ermanno

Answer 1

ciao Norman,

come lo hai fatto tu  mi carica la colonna intestazioni nel posto giusto

l'unico problema e che mi carica i dati del foglio attivo e non quelli del foglio "record"

penso che la funzione  With Me.ListBox1

vada integrata nella funzione With sh

o qualcosa di simile

Ermanno

Ciao Ermano,

Nella procedura m, sostituisci:

.RowSource = rng.Address

con

.RowSource = rng.Address**(External:=True)**

===

Regards,

Norman

Answer 2

domanda specifica quindi hai capito bene il mio problema

questi sono i codici richiesti

nell'Userform ci sono  altri codici ma  non sono influenti

Option Explicit

Private rng As Range

Private sh As Worksheet

Private Sub UserForm_Initialize()

SetWindowLong FindWindow( _

vbNullString, Me.Caption), _

-16, -2067791744

Call m

End Sub

Private Sub m()

Set sh = ThisWorkbook.Worksheets("Record")

With sh

Set rng = .Range("A2").CurrentRegion

End With

With Me.ListBox1

.ColumnHeads = True

.ColumnCount = rng.Columns.Count

.Clear

.List = rng.Value

End With

End Sub

Private Sub ListBox1_Click()

Call mPopolaTextBox

End Sub

Public Sub mPopolaTextBox()

With Me

.ComboBox1.Text = .ListBox1.List(.ListBox1.ListIndex, 0)

.ComboBox2.Text = .ListBox1.List(.ListBox1.ListIndex, 1)

.ComboBox3.Text = .ListBox1.List(.ListBox1.ListIndex, 2)

.TextBox1.Text = .ListBox1.List(.ListBox1.ListIndex, 3)

.ComboBox4.Text = .ListBox1.List(.ListBox1.ListIndex, 4)

.TextBox2.Text = .ListBox1.List(.ListBox1.ListIndex, 5)

.TextBox3.Text = .ListBox1.List(.ListBox1.ListIndex, 6)

End With

End Sub

Answer 3

grazie Norman x la risposta

ma il tuo codice mi modifica solo il ListBox e io dovrei modificare i dati di un Foglio caricati in un ListBox quindi la modifica deve essere nel Foglio

Poi specifico visto che non l ho fatto prima il ListBox e composto da 7 colonne

e selezionando la riga da modificare carico 4 ComboBox e 3 TextBox

spero di essere stato più chiaro

ermanno

Ciao Ermanno,

Potresti gentilmente condividere il codice della tua routine UserForm_Initialize() e/o il codice per caricare il ListBox?

In effetti, vorrei sapere quale delle proprietà di RowSource, List e Column hai utilizzato per caricare il ListBox. Vorrei anche sapere quali ComboBox e TextBox corrispondono a quali colonne del ListBox

===

Regards,

Norman

Answer 4

grazie Norman x la risposta

ma il tuo codice mi modifica solo il ListBox e io dovrei modificare i dati di un Foglio caricati in un ListBox quindi la modifica deve essere nel Foglio

Poi specifico visto che non l ho fatto prima il ListBox e composto da 7 colonne

e selezionando la riga da modificare carico 4 ComboBox e 3 TextBox

spero di essere stato più chiaro

ermanno

Answer 5

Ciao a tutti e buone feste

come da titolo devo modificare dei dati di un Foglio caricati in un listbox dove selezionando la riga da modificare carico i vari Texbox dove posso modificare.

Quello che non riesco e creare è il codice che sostituisca la riga selezionata con quello scritto nei Texbox

praticamente vorrei fare una cosa simile a "GestioneFoglioDaUserForm" se non ricordo male l'avevo visto su  maurogsc.eu

---

grazie

Ermanno

Ciao Ermanno,

Prova qualcosa del genere:

'=============>>

Private Sub CommandButton1_Click()

Dim TBox As MSForms.TextBox

Dim Ctrl As MSForms.Control

Dim i As Long

Dim iCtr As Long

With Me.ListBox1

i = .ListIndex

If i <> -1 Then

For Each Ctrl In Me.Controls

If TypeOf Ctrl Is MSForms.TextBox Then

Set TBox = Ctrl

.List(i, iCtr) = TBox.Value

iCtr = iCtr + 1

End If

Next Ctrl

.Selected(i) = False

Else

MsgBox Prompt:="Non hai selezionato una riga del Listbox", _

Title:="Errore!", _

Buttons:=vbCritical

End If

End With

End Sub

'<<=============

Sostituisci CommandButton1 con il nome del CommandButton interessato oppure potresti utilizzare l'evento click del ListBox stesso.

===

Regards,

Norman