"every time new data is entered?"
how new data is enterred? by manual input in the sheet, or by running macro in the button?
Could you share the code of the button named "Click here to enter data"
???
I have attached the code below
Private Sub UserForm_Initialize()
'Empty DateTextBox
DateTextBox.Value = ""
'Empty SettingTextBox
SettingTextBox.Value = ""
'Empty GoalTextBox
GoalTextBox.Value = ""
'Empty NotesTextBox
NotesTextBox.Value = ""
'Empty TimeTextBox
TimeTextBox.Value = ""
'Empty TrialsTextBox
TrialsTextBox.Value = ""
'Empty OpportunitiesTextBox
OpportunitiesTextBox.Value = ""
'Empty RatioTextBox
RatioTextBox.Value = ""
'Empty LimitHoldTextBox
LimitHoldTextBox.Value = ""
'Empty BxTextBox1
BxTextBox1.Value = ""
'Empty BxTextBox2
BxTextBox2.Value = ""
'Empty BxTextBox3
BxTextBox3.Value = ""
'Empty BxTextBox3
BxTextBox3.Value = ""
'Empty BxTextBox4
BxTextBox4.Value = ""
'Empty BxTextBox6
BxTextBox6.Value = ""
'Empty BxTextBox9
BxTextBox9.Value = ""
'Empty InTextBox8
InTextBox8.Value = ""
'Empty InTextBox7
InTextBox7.Value = ""
'Empty InTextBox10
InTextBox10.Value = ""
'Empty InTextBox11
InTextBox11.Value = ""
'Empty InTextBox12
InTextBox12.Value = ""
'Empty InTextBox13
InTextBox13.Value = ""
'Empty DomainComboBox1
DomainComboBox1.Clear
'Empty PromptComboBox2
PromptComboBox2.Clear
'Empty ScheduleComboBox3
ScheduleComboBox3.Clear
'Fill DomainComboBox1
With DomainComboBox1
.AddItem "Echoic"
.AddItem "Group Skills"
.AddItem "Imitation"
.AddItem "Independent Play"
.AddItem "Intraverbal"
.AddItem "Listener Responding"
.AddItem "Linguistics"
.AddItem "LRFFC"
.AddItem "Mand"
.AddItem "Match to Sample"
.AddItem "Math"
.AddItem "Personal Independence"
.AddItem "Reading"
.AddItem "Social"
.AddItem "Tact"
.AddItem "Writing"
End With
'Fill PromptComboBox2
With PromptComboBox2
.AddItem "Verbal"
.AddItem "Gestural"
.AddItem "Model"
.AddItem "Partial"
.AddItem "Full"
End With
'Fill ScheduleComboBox3
With ScheduleComboBox3
.AddItem "FI"
.AddItem "FR"
.AddItem "NCR"
.AddItem "VI"
.AddItem "VR"
End With
'Uncheck NoCheckBox
NoCheckBox.Value = False
'Set Focus on DateTextBox
DateTextBox.SetFocus
End Sub
Private Sub OKButton_Click()
Dim emptyRow As Long
'Make Sheet8 active
Sheet8.Activate
'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
'Transfer information
Cells(emptyRow, 2).Value = DateTextBox.Value
Cells(emptyRow, 3).Value = SettingTextBox.Value
Cells(emptyRow, 4).Value = DomainComboBox1.Value
Cells(emptyRow, 5).Value = GoalTextBox.Value
Cells(emptyRow, 6).Value = PromptComboBox2.Value
Cells(emptyRow, 7).Value = TrialsTextBox.Value
Cells(emptyRow, 8).Value = OpportunitiesTextBox.Value
Cells(emptyRow, 10).Value = ScheduleComboBox3.Value
Cells(emptyRow, 11).Value = TimeTextBox.Value
Cells(emptyRow, 12).Value = RatioTextBox.Value
Cells(emptyRow, 13).Value = LimitHoldTextBox.Value
Cells(emptyRow, 14).Value = NotesTextBox.Value
Cells(emptyRow, 15).Value = BxTextBox1.Value
Cells(emptyRow, 16).Value = InTextBox8.Value
Cells(emptyRow, 17).Value = BxTextBox2.Value
Cells(emptyRow, 18).Value = InTextBox7.Value
Cells(emptyRow, 19).Value = BxTextBox3.Value
Cells(emptyRow, 20).Value = InTextBox10.Value
Cells(emptyRow, 21).Value = BxTextBox4.Value
Cells(emptyRow, 22).Value = InTextBox11.Value
Cells(emptyRow, 23).Value = BxTextBox6.Value
Cells(emptyRow, 24).Value = InTextBox12.Value
Cells(emptyRow, 25).Value = BxTextBox9.Value
Cells(emptyRow, 26).Value = InTextBox13.Value
If NoCheckBox.Value = True Then Cells(emptyRow, 9).Value = NoCheckBox.Caption
End Sub
Private Sub ClearButton_Click()
Call UserForm_Initialize
End Sub
Private Sub CancelButton_Click()
Unload Me
End Sub