insert Textbox value in Certain row

[Omer_K]

Hello everyone,
I have a table that the first column is the column of a subscription number and all other columns are currently empty,
I have defined that if I double click on one subscriber number, a form will open
Then fill in all the data of the same subscription number (eg first name, family, date of birth, etc.)
the poblem that I would like to know how if I press Finish then all the details from the text boxes will be copied directly to the same line of the same subscription number that I chose


Thank you very much for your help!

 

[My Aswer Is This]

We always need specific details.

1. What column do you plan to double click on. Provide a number like 1 or 5
2. What is the name of the userform form you plan to open
3. What are the names of the textbox's you plan to fill in
4.It's best to name your textboxs the same as their default name.
Like textbox1 textbox2 etc

Then we can loop through their names

So Textbox1 data goes in column 2 textbox2 data goes in column 3 etc.

If you already have some code written then show us your code.

Please be sure and double check and be sure to answer all my questions.

 

[Omer_K]

Hey,
This is the Code that i copy form the Internet:



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Load SellsPage
With SellsPage
.textbox1.Value = Cells(Target.Row, 1).Value
End With
SellsPage.Show


End Sub

The column that I plan to double click is the coulmn A (Range: A1:A200).
The name of my Userforme is SellsPage

When I double click on cell A3 for example (cell A3 will be subscription number 5478)
the Userform Sellspage will open and the textbox 1 is already fill with 5478.
In the textbox 2, I will fill the full name
In the textbox 3 I will fill an address
Textbox 4 phone number.
And when I click the finish button (called finish)
Automatic cell B3 will be with the full name
Cell C3 will be with the address
And in cell D3 will be the phone.



Thank You so much...

 

[My Aswer Is This]

You need to create a Module script like this:

Option Explicit
Public r As Long '~~> at the very top of the module outside any sub
Public Sub Anysub()
r = ActiveCell.Row
End Sub

Then put this script in your sheet:

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Cancel = True
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Call Anysub
Sellspage.Show modeless
Sellspage.TextBox1.Value = Cells(Target.Row, 1).Value
End If
End Sub

Then put this script in your userform:

Private Sub finish_Click()
Dim i As Long
    For i = 2 To 4
        Cells(r, i).Value = Controls("Textbox" & i).Value
    Next
End Sub

 

[Omer_K]

It works perfect !!

Thank you very much!!

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

It works perfect !!

Thank you very much!!