Previous Topic Next Topic

Transfer data from userform to sheet with the same format of table

Closed
abdelfatah_0230 Posts 73 Registration date Thursday 18 July 2019 Status Member Last seen 23 July 2022 - 28 Aug 2019 à 11:34
 Blocked Profile - 28 Aug 2019 à 14:28
hi, experts
i have userform contains 3 textbox and sheet1 contains table i designed from 3 columns i would every time when fill data in userform automatically insert row the same format which before it (the same color ,bold...etc)
this is my code : 
Private Sub CommandButton1_Click()
On Error Resume Next
Dim My_sh As Worksheet
Set My_sh = Worksheets("sheet1")
Dim lastrow As Integer
Dim i%
With My_sh
lastrow = .Cells(Rows.Count, 1).End(3).Row + 1
For i = 1 To 3
.Cells(lastrow, i).Value = Me.Controls("TextBox" & i)
Me.Controls("TextBox" & i) = ""
 Next
MsgBox "done"
End With
End Sub

2 responses

Réponse 1 / 2
Blocked Profile
28 Aug 2019 à 11:51
Do you have a question?
abdelfatah_0230 Posts 73 Registration date Thursday 18 July 2019 Status Member Last seen 23 July 2022
28 Aug 2019 à 12:06
i would code transfer data from user form to sheet with the same format of the designed table in sheet1 every time i fill data in userform my code is above
Blocked Profile
28 Aug 2019 à 12:07
Ok, so what is the issue? What are you asking? Are asking will my code work?
abdelfatah_0230 Posts 73 Registration date Thursday 18 July 2019 Status Member Last seen 23 July 2022
Updated on Aug 28, 2019 at 12:18 PM
my code does work but, what i need add adjusting to become the same format my table
for instance the data begin from row3 and contain blue color and the line is 14 size and bold here when i transfer data every time i would automatically insert the same format row
abdelfatah_0230 Posts 73 Registration date Thursday 18 July 2019 Status Member Last seen 23 July 2022
28 Aug 2019 à 14:09
unfortinatlly you don't understand the result what i would in the second image

when i transfer data it give me this



and what i would this



you can note the color in the item 2
i need adjusting the code above but i no know how
Blocked Profile
Updated on Aug 28, 2019 at 02:40 PM
You test the row above, and load the result into a variable as in:

Thefontsize=cells (x,1).font.size
Cells (x + 1,1).font.size = Thefontsize

If you need to test for bold, it would be a true false.

So, a bold font would be
Isitbold = cells (x,1).font.bold
Cells (x+1,1).font.bold = Isitbold

Similar discussions

Userform to export data to another sheet
redbaby -
redbaby -

4 responses
Auto generate serial number in excel based on Column
Raj_1562 -
TrowaD -

4 responses
Copy data in one worksheet to another VBA
JohnMcLaughlin -
ac3mark -

14 responses
Creating search and update command buttons in a userform
janb -
ShezzyWiggle -

19 responses
Automatically transfer data from one sheet to another
sunny49er -
TrowaD -

22 responses
Macro to copy data from pivot table
Excel Learner -
rizvisa1 -

1 response