editing a spreadsheet using a userform

[m4r4]

Hello.
Im just trying to learn VBA via forums.

I need your help in completing this userform.

I have created a userform where you can add data into a worksheet.

What I'm trying to do now is to edit the data (previously added) by autopopulating it and editing it in the userform.

The code I found on other sites are just for userforms with textboxes, however my userform has comboxes and it won't work.





Can someone help me?

Thank you in advance.

[zbor]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[zbor]

Here try this:

Please Login or Register  to view this content.

[zbor]

But you also need to use sheet where you writting data..

So instead of, for example:

Please Login or Register  to view this content.

You should have:

Please Login or Register  to view this content.

or you need to declare it on start and use it like:

Please Login or Register  to view this content.

[m4r4]

zbor,

Thanks for your help.

Im still getting an error.

Sub EditAdd()

Dim emptyRow As Long

If Punchlist.TextBox1.Value <> "" Then
flag = False
i = 0
id = Punchlist.TextBox1.Value
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

Do While Cells(i + 1, 1).Value <> ""

If Cells(i + 1, 1).Value = id Then
flag = True
For j = 2 To 14
Cells(i + 1, j).Value = Punchlist.Controls("TextBox" & j).Value
Next j
End If

i = i + 1

Loop

If flag = False Then
For j = 1 To 14
Sheets("Punchlist").Cells(emptyRow, j).Value = Punchlist.Controls("textbox" & j).Value Next j
End If

End If

If Punchlist.TextBox1.Value <> "" Then
flag = False
i = 0
id = Punchlist.TextBox1.Value
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

Do While Cells(i + 1, 1).Value <> ""

If Cells(i + 1, 1).Value = id Then
flag = True
For j = 2 To 14
Cells(i + 1, j).Value = Punchlist.Controls("textBox" & j).Value
Next j
End If

i = i + 1

Loop

If flag = False Then
For j = 1 To 14
Sheets("Punchlist").Cells(emptyRow, j).Value = Punchlist.Controls("textBox" & j).Value
Next j
End If

End If

End Sub

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)