Textbox input goes to 2 sheets in same wbk

B

Bakar

Hi experts
Can i have an idea how to send this ifn fo in 2 sheets with thw sam
button click
I am using this part for textbox entry
I want to this info goes to sheet 6 also
that is same information in sheet 4 and 6
Code......then
RowCount = Worksheets("Sheet4").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Sheet4").Range("A1")
.Offset(RowCount, 0).Value = UserForm1.TextBox1.Value
.Offset(RowCount, 1).Value = UserForm1.TextBox2.Value
.Offset(RowCount, 2).Value = UserForm1.TextBox3.Value
.Offset(RowCount, 3).Value = UserForm1.TextBox4.Value
.Offset(RowCount, 4).Value = UserForm1.ComboBox1.Value
.Offset(RowCount, 6).Value = UserForm1.TextBox6.Value
.Offset(RowCount, 7).Value = UserForm1.TextBox7.Value
.Offset(RowCount, 8).Value = UserForm1.ComboBox2.Value
.Offset(RowCount, 9).Value = UserForm1.ComboBox4.Value
.Offset(RowCount, 19).Value = UserForm1.ComboBox3.Value
.Offset(RowCount, 21).Value = UserForm1.ComboBox5.Value



End With

For Each ctl In UserForm1.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
ctl.Value = ""

End If
Next ctl


End Sub


Help please

Baka
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Data written to wrong cells 2
adding date from user form with calendar to next row 1
ComboBox search for variable... 2
Why wont my code populate Textbox ? 9
Same Value in ALL Sheets in a workbook, based on sheet1 Cell Value + Code Strange Behaviour 2
Border around Data Entered in Variable Rows 2
date format problem 8
Re-assign LinkedCell in VBA 0

Top