Hi Gurus,

I have a userform whereby there is a drop down list for user to chose the data to be save at which outlet.

Currently I have 3 outlet on hand therefore the data will be store according to the option selected.

However I notice my statement doesn't work correctly for example I chose outlet "ABC" the data should store in ABC outlet but the data end up in GHI outlet
On top of that if I chose DEF outlet the data end up go to incorrect row.

I'm getting very confused with the if else statement code. You may refer the code here.

Private Sub btnSubmit_Click()

Dim DataLog As Worksheet

Set DataLog = ThisWorkbook.Sheets("Datalog")

If Me.cmbOutlet.Text = "ABC" Then
'New Row 1
nr = DataLog.Cells(Rows.Count, 5).End(xlUp).Row + 1

DataLog.Cells(nr, 2) = Me.tbDate1
DataLog.Cells(nr, 3) = "0" + Me.tbSample1
DataLog.Cells(nr, 4) = "0" + Me.tbItem1

DataLog.Cells(nr, 5) = "0" + Me.tbSample2
DataLog.Cells(nr, 6) = "0" + Me.tbItem2

DataLog.Cells(nr, 7) = "0" + Me.tbSample3
DataLog.Cells(nr, 8) = "0" + Me.tbItem3

DataLog.Cells(nr, 9) = "0" + Me.tbSample4
DataLog.Cells(nr, 10) = "0" + Me.tbItem4

DataLog.Cells(nr, 11) = "0" + Me.tbSample5
DataLog.Cells(nr, 12) = "0" + Me.tbItem5

DataLog.Cells(nr, 13) = "0" + Me.tbSample6
DataLog.Cells(nr, 14) = "0" + Me.tbItem6

DataLog.Cells(nr, 15) = "0" + Me.tbSample7
DataLog.Cells(nr, 16) = "0" + Me.tbItem7

DataLog.Cells(nr, 17) = "0" + Me.tbSample8
DataLog.Cells(nr, 18) = "0" + Me.tbItem8

DataLog.Cells(nr, 19) = "0" + Me.tbSample9
DataLog.Cells(nr, 20) = "0" + Me.tbItem9

DataLog.Cells(nr, 21) = "0" + Me.tbSample10
DataLog.Cells(nr, 22) = "0" + Me.tbItem10

DataLog.Cells(nr, 23) = "0" + Me.tbSample11
DataLog.Cells(nr, 24) = "0" + Me.tbItem11

DataLog.Cells(nr, 25) = "0" + Me.tbSample12
DataLog.Cells(nr, 26) = "0" + Me.tbItem12

'New Row 2
nr2 = DataLog.Cells(Rows.Count, 5).End(xlUp).Row + 1

DataLog.Cells(nr2, 2) = Me.tbDate2
DataLog.Cells(nr2, 3) = "0" + Me.tbSample13
DataLog.Cells(nr2, 4) = "0" + Me.tbItem13

DataLog.Cells(nr2, 5) = "0" + Me.tbSample14
DataLog.Cells(nr2, 6) = "0" + Me.tbItem14

DataLog.Cells(nr2, 7) = "0" + Me.tbSample15
DataLog.Cells(nr2, 8) = "0" + Me.tbItem15

DataLog.Cells(nr2, 9) = "0" + Me.tbSample16
DataLog.Cells(nr2, 10) = "0" + Me.tbItem16

DataLog.Cells(nr2, 11) = "0" + Me.tbSample17
DataLog.Cells(nr2, 12) = "0" + Me.tbItem17

DataLog.Cells(nr2, 13) = "0" + Me.tbSample18
DataLog.Cells(nr2, 14) = "0" + Me.tbItem18

DataLog.Cells(nr2, 15) = "0" + Me.tbSample19
DataLog.Cells(nr2, 16) = "0" + Me.tbItem19

DataLog.Cells(nr2, 17) = "0" + Me.tbSample20
DataLog.Cells(nr2, 18) = "0" + Me.tbItem20

DataLog.Cells(nr2, 19) = "0" + Me.tbSample21
DataLog.Cells(nr2, 20) = "0" + Me.tbItem21

DataLog.Cells(nr2, 21) = "0" + Me.tbSample22
DataLog.Cells(nr2, 22) = "0" + Me.tbItem22

DataLog.Cells(nr2, 23) = "0" + Me.tbSample23
DataLog.Cells(nr2, 24) = "0" + Me.tbItem23

DataLog.Cells(nr2, 25) = "0" + Me.tbSample24
DataLog.Cells(nr2, 26) = "0" + Me.tbItem24

ElseIf Me.cmbOutlet.Text = "DEF" Then

'New Row 3
nr3 = DataLog.Cells(Rows.Count, 74).End(xlUp).Row + 1

DataLog.Cells(nr3, 2) = Me.tbDate1
DataLog.Cells(nr3, 3) = "0" + Me.tbSample1
DataLog.Cells(nr3, 4) = "0" + Me.tbItem1

DataLog.Cells(nr3, 5) = "0" + Me.tbSample2
DataLog.Cells(nr3, 6) = "0" + Me.tbItem2

DataLog.Cells(nr3, 7) = "0" + Me.tbSample3
DataLog.Cells(nr3, 8) = "0" + Me.tbItem3

DataLog.Cells(nr3, 9) = "0" + Me.tbSample4
DataLog.Cells(nr3, 10) = "0" + Me.tbItem4

DataLog.Cells(nr3, 11) = "0" + Me.tbSample5
DataLog.Cells(nr3, 12) = "0" + Me.tbItem5

DataLog.Cells(nr3, 13) = "0" + Me.tbSample6
DataLog.Cells(nr3, 14) = "0" + Me.tbItem6

DataLog.Cells(nr3, 15) = "0" + Me.tbSample7
DataLog.Cells(nr3, 16) = "0" + Me.tbItem7

DataLog.Cells(nr3, 17) = "0" + Me.tbSample8
DataLog.Cells(nr3, 18) = "0" + Me.tbItem8

DataLog.Cells(nr3, 19) = "0" + Me.tbSample9
DataLog.Cells(nr3, 20) = "0" + Me.tbItem9

DataLog.Cells(nr3, 21) = "0" + Me.tbSample10
DataLog.Cells(nr3, 22) = "0" + Me.tbItem10

DataLog.Cells(nr3, 23) = "0" + Me.tbSample11
DataLog.Cells(nr3, 24) = "0" + Me.tbItem11

DataLog.Cells(nr3, 25) = "0" + Me.tbSample12
DataLog.Cells(nr3, 26) = "0" + Me.tbItem12

'New Row 4
nr4 = DataLog.Cells(Rows.Count, 74).End(xlUp).Row + 1

DataLog.Cells(nr4, 2) = Me.tbDate2
DataLog.Cells(nr4, 3) = "0" + Me.tbSample13
DataLog.Cells(nr4, 4) = "0" + Me.tbItem13

DataLog.Cells(nr4, 5) = "0" + Me.tbSample14
DataLog.Cells(nr4, 6) = "0" + Me.tbItem14

DataLog.Cells(nr4, 7) = "0" + Me.tbSample15
DataLog.Cells(nr4, 8) = "0" + Me.tbItem15

DataLog.Cells(nr4, 9) = "0" + Me.tbSample16
DataLog.Cells(nr4, 10) = "0" + Me.tbItem16

DataLog.Cells(nr4, 11) = "0" + Me.tbSample17
DataLog.Cells(nr4, 12) = "0" + Me.tbItem17

DataLog.Cells(nr4, 13) = "0" + Me.tbSample18
DataLog.Cells(nr4, 14) = "0" + Me.tbItem18

DataLog.Cells(nr4, 15) = "0" + Me.tbSample19
DataLog.Cells(nr4, 16) = "0" + Me.tbItem19

DataLog.Cells(nr4, 17) = "0" + Me.tbSample20
DataLog.Cells(nr4, 18) = "0" + Me.tbItem20

DataLog.Cells(nr4, 19) = "0" + Me.tbSample21
DataLog.Cells(nr4, 20) = "0" + Me.tbItem21

DataLog.Cells(nr4, 21) = "0" + Me.tbSample22
DataLog.Cells(nr4, 22) = "0" + Me.tbItem22

DataLog.Cells(nr4, 23) = "0" + Me.tbSample23
DataLog.Cells(nr4, 24) = "0" + Me.tbItem23

DataLog.Cells(nr4, 25) = "0" + Me.tbSample24
DataLog.Cells(nr4, 26) = "0" + Me.tbItem24


ElseIf Me.cmbOutlet.Text = "GHI" Then

'New Row 5
nr5 = DataLog.Cells(Rows.Count, 143).End(xlUp).Row + 1

DataLog.Cells(nr5, 2) = Me.tbDate1
DataLog.Cells(nr5, 3) = "0" + Me.tbSample1
DataLog.Cells(nr5, 4) = "0" + Me.tbItem1

DataLog.Cells(nr5, 5) = "0" + Me.tbSample2
DataLog.Cells(nr5, 6) = "0" + Me.tbItem2

DataLog.Cells(nr5, 7) = "0" + Me.tbSample3
DataLog.Cells(nr5, 8) = "0" + Me.tbItem3

DataLog.Cells(nr5, 9) = "0" + Me.tbSample4
DataLog.Cells(nr5, 10) = "0" + Me.tbItem4

DataLog.Cells(nr5, 11) = "0" + Me.tbSample5
DataLog.Cells(nr5, 12) = "0" + Me.tbItem5

DataLog.Cells(nr5, 13) = "0" + Me.tbSample6
DataLog.Cells(nr5, 14) = "0" + Me.tbItem6

DataLog.Cells(nr5, 15) = "0" + Me.tbSample7
DataLog.Cells(nr5, 16) = "0" + Me.tbItem7

DataLog.Cells(nr5, 17) = "0" + Me.tbSample8
DataLog.Cells(nr5, 18) = "0" + Me.tbItem8

DataLog.Cells(nr5, 19) = "0" + Me.tbSample9
DataLog.Cells(nr5, 20) = "0" + Me.tbItem9

DataLog.Cells(nr5, 21) = "0" + Me.tbSample10
DataLog.Cells(nr5, 22) = "0" + Me.tbItem10

DataLog.Cells(nr5, 23) = "0" + Me.tbSample11
DataLog.Cells(nr5, 24) = "0" + Me.tbItem11

DataLog.Cells(nr5, 25) = "0" + Me.tbSample12
DataLog.Cells(nr5, 26) = "0" + Me.tbItem12

'New Row 6
nr6 = DataLog.Cells(Rows.Count, 143).End(xlUp).Row + 1

DataLog.Cells(nr6, 2) = Me.tbDate2
DataLog.Cells(nr6, 3) = "0" + Me.tbSample13
DataLog.Cells(nr6, 4) = "0" + Me.tbItem13

DataLog.Cells(nr6, 5) = "0" + Me.tbSample14
DataLog.Cells(nr6, 6) = "0" + Me.tbItem14

DataLog.Cells(nr6, 7) = "0" + Me.tbSample15
DataLog.Cells(nr6, 8) = "0" + Me.tbItem15

DataLog.Cells(nr6, 9) = "0" + Me.tbSample16
DataLog.Cells(nr6, 10) = "0" + Me.tbItem16

DataLog.Cells(nr6, 11) = "0" + Me.tbSample17
DataLog.Cells(nr6, 12) = "0" + Me.tbItem17

DataLog.Cells(nr6, 13) = "0" + Me.tbSample18
DataLog.Cells(nr6, 14) = "0" + Me.tbItem18

DataLog.Cells(nr6, 15) = "0" + Me.tbSample19
DataLog.Cells(nr6, 16) = "0" + Me.tbItem19

DataLog.Cells(nr6, 17) = "0" + Me.tbSample20
DataLog.Cells(nr6, 18) = "0" + Me.tbItem20

DataLog.Cells(nr6, 19) = "0" + Me.tbSample21
DataLog.Cells(nr6, 20) = "0" + Me.tbItem21

DataLog.Cells(nr6, 21) = "0" + Me.tbSample22
DataLog.Cells(nr6, 22) = "0" + Me.tbItem22

DataLog.Cells(nr6, 23) = "0" + Me.tbSample23
DataLog.Cells(nr6, 24) = "0" + Me.tbItem23

DataLog.Cells(nr6, 25) = "0" + Me.tbSample24
DataLog.Cells(nr6, 26) = "0" + Me.tbItem24

Else
'Do Nothing

End If


'Unload Form
Unload DataLogForm

End Sub

Private Sub btnGoTo_Click()

'Go to Summary Worksheet and Unload Form
Unload Me

End Sub

Private Sub UserForm_Initialize()

Me.tbDate1 = Me.tbWeekBox + Format(DateAdd("D", -Weekday(Date), Date), "dd-mmm-yy")
Me.tbDate2 = Me.tbWeekBox + Format(DateAdd("D", -Weekday(Date) + 1, Date), "dd-mmm-yy")

For Each blah In[List2]
    Me.cmbOutlet.AddItem blah
Next blah

End Sub
To make you easy understand what problem I'm Facing, I attached the duplicate file together.

Thank you.

Report-Test.xlsm