Problem updating cell values using Listbox ListIndex

[sharky12345]

I'm trying to update a worksheet using the ListIndex of a Listbox, like this;

Row = ListBox1.ListIndex + 2
With Sheets("Contacts List")
Range("A" & Row).Value = TextName.Value
Range("B" & Row).Value = ComboType.Value
Range("C" & Row).Value = TextRelationship.Value
Range("D" & Row).Value = TextReligion.Value
Range("E" & Row).Value = TextTelephone.Value
Range("F" & Row).Value = TextEmail.Value
Range("G" & Row).Value = TextAddress.Value
End With
Call MsgBox("Contact updated successfully", vbInformation, "Success")

The code runs fine, gives no errors and produces the message at the end, however, the values are not being populated to the relevant cells on the worksheet.

Can anyone spot where this may be going wrong?

 

[My Aswer Is This]

You said:
"the values are not being populated to the relevant cells on the worksheet."

Are they being added to a cell but just the wrong cell?

Are they off by 1 or two cells?

 

[sharky12345]

Not being added at all - the relevant cells are blank

 

[My Aswer Is This]

Try:

Row = ListBox1.ListIndex + 1

 

[My Aswer Is This]

It works for me.

I assume your using Activex controls
And the Activex controls are on sheet named "Contacts List"
And you have values in all those controls.

 

[sharky12345]

Interestingly, that works, but the first row is a header so using + 1 updates the header cell but only if I try to update the first item in the Listbox, any other item does not get updated. This is weird.....

 

[sharky12345]

Just read your next post - no, this is using a userform

 

[sharky12345]

I think I may have found the issue, possibly - I'm using this to populate the Textboxes using a Listbox Click event;

TextName.Value = ListBox1.Column(0)
ComboType.Value = ListBox1.Column(1)
TextRelationship.Value = ListBox1.Column(2)
TextReligion.Value = ListBox1.Column(3)
TextTelephone.Value = ListBox1.Column(4)
TextEmail.Value = ListBox1.Column(5)
TextAddress.Value = ListBox1.Column(6)

Watching what happens when I click the commandbutton to populate the cells after updating the textboxes, it appears that the textboxes are reverting back to their original values - just got to work out how now!

 

[My Aswer Is This]

The first item in a listbox is considered as 0
Second item is considered as 1

Normally when we use:

With

it would be like:

With Sheets("Contacts List")
.Range("A" & Row).Value = TextName.Value
.Range("B" & Row).Value = ComboType.Value
.Range("C" & Row).Value = TextRelationship.Value
.Range("D" & Row).Value = TextReligion.Value
.Range("E" & Row).Value = TextTelephone.Value
.Range("F" & Row).Value = TextEmail.Value
.Range("G" & Row).Value = TextAddress.Value
End With

 

[sharky12345]

I'll give that a try - thank you!