Update userform

[shaun.burke]

userform.jpg

So, I've created a userform to add products to our product spreadsheet. I am using the following code to update the spreadsheet but I am getting a compile error: For without Next

Private Sub CMDupdate_Click()

Dim SLNO As String
SLNO = Trim(TXTSLNO.Text)
lastrow = Worksheets("apparel").Cells(Row.Count, 1).End(xlUp).Row
For i = 2 To lastrow
If Worksheets("apparel").Cells(i, 1).Value = SLNO Then
Worksheets("apparel").cels(i, 1).Value = Txtproduct.Text
Worksheets("apparel").Cells(i, 3).Value = TxtDesign.Text
Worksheets("apparel").Cells(i, 5).Value = TxtFeatures.Text
Worksheets("apparel").Cells(i, 7).Value = cmbkeyupdate.Text
Worksheets("apparel").Cells(i, 8).Value = TxtUpdate.Text
Worksheets("apparel").Cells(i, 10).Value = TxtContinued.Text
Worksheets("apparel").Cells(i, 12).Value = CMBGender.Text
Worksheets("apparel").Cells(i, 13).Value = TXTMenHTML.Text
Worksheets("apparel").Cells(i, 14).Value = TxtWomenHTML.Text
Worksheets("apparel").Cells(i, 15).Value = CMBType.Text
Worksheets("apparel").Cells(i, 16).Value = CMBSeason.Text
Worksheets("apparel").Cells(i, 17).Value = TxtYear.Text
End If

End Sub

Any thoughts?

[MikeVol]

Hi. Before the row with End If insert one more row then write Next i. Like that:

Please Login or Register  to view this content.

[jolivanes]

explain where you want the data to go.
If you use a loop like you suggest with your "For i = 2 to LastRow", you need "Next i" between End If and End Sub.
Do you need the data entered in rows 2 to 14 and columns A to Q? (2 To LastRow and 13 entries might not jive either)

I suggest you explain in detail where everything needs to go

[shaun.burke]

All of it goes in the "Apparel" sheet

Txtproduct.Text goes to Column B
TxtDesign.Text --- Colum C
TxtFeatures.Text--- E
cmbkeyupdate.Text-----G
TxtUpdate.Text---H
TxtContinued.Text---J
CMBGender.Text --- L
TXTMenHTML.Text --- M
TxtWomenHTML.Text ---N
CMBType.Text---o
CMBSeason.Text----p
TxtYear.Text----Q

[MikeVol]

Hi! Try it:

Please Login or Register  to view this content.

[shaun.burke]

Thank you. That's helpful. As you can imagine, I'm not great at VBA. The code you did makes sense. It's still not allowing for the rows to be updated. I'm wondering if some of the VBA I've used to add the other CMD buttons is interfering. or perhaps some I did in the initializing?

[MikeVol]

Attach your sample file in order to see and understand the essence of your problem. Perhaps you have some other macros in the book, we do not see it. We are waiting for an example file from you to resolve your issue as soon as possible.
MikeVol.

[shaun.burke]

I've taken out all of the data, but the VBA and tabs should all still be there

[MikeVol]

Hi! Try it.
Made some changes to your file, have a look.

[shaun.burke]

that's perfect! Thank you

[MikeVol]

Thank you

Please! If your issue is resolved then you can close this thread.