Help Please .....

[AsifShah]

Dear Friends
In image 1 i have created a userform to save my invoice data,
Dim dcc As Long
Dim abc As Worksheet
Set abc = Worksheets
i was use this DIM commond to save my data. but now i was created a new userform Check image 2.
in New UeserForm i want to search my Product by Product Code through Combobox
For Example:
When i type Product Code "1" in Combobox1 and Qty in (TextBox1) then Only my Qty Value save in Sheet2 ColumeA7 But When
When i type Product Code "2" in Combobox1 and Qty in (TextBox1) then Only my Qty Value save in Sheet2 ColumeB7
When i type Product Code "3" in Combobox1 and Qty in (TextBox1) then Only my Qty Data save in Sheet2 ColumeC7
When i type Product Code "4" in Combobox1 and Qty in (TextBox1) then Only my Qty Data save in Sheet2 ColumeD8.....................ETC

And also save my Customer Details and Date
Please Help.....

Image 1

image2

 

[fadee2]

I had some time to spare so, I redesigned your dispatch form from

to

As I said earlier there is no need to have so many controls when all of this can be achieved with just a few.
made a few adjustments to your product names in Dispatches Detail sheet. The names from R-List sheet replaced old names.

NewTexting.xlsm
	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE
6	RGB Coke	RGB Sprite	RGB Fanta	Total	1500ML COKE	1500ML SPRITE	1500ML FANTA	Total	2250ML COKE	2250ML SPRITE	2250ML FANTA	Total	1000ML COKE	1000ML SPRITE	1000ML FANTA	Total	500ML COKE	500ML SPRITE	500ML FANTA	Total	250ML SC COKE	250ML SC SPRITE	250ML SC FANTA	Total	DASANI 1500ML	DASANI 500ML
Dispatches Detail

After this added below two codes to control buttons "OK" and "Save Data", respectively.

Private Sub CommandButton4_Click()
icount = ListBox1.ListCount

With ListBox1
   
    .AddItem
    .ColumnCount = 8
   
        .TextAlign = 2
       
        If icount = 0 Then
            .List(icount, 0) = icount + 1
        Else
            .List(icount, 0) = icount + 1
        End If
       
        .List(icount, 1) = ComboBox1.Value
        .List(icount, 2) = TextBox1.Text
        .List(icount, 3) = TextBox2.Text
        .List(icount, 4) = TextBox3.Text
        .List(icount, 5) = TextBox4.Text
        .List(icount, 6) = TextBox5.Text
        .List(icount, 7) = TextBox6.Text

         j = .List(icount, 6)
         k = .List(icount, 7)
End With

icount = ListBox1.ListCount
If icount = 0 Then
    Label162.Caption = 1
Else
    Label162.Caption = icount + 1
End If

ComboBox1.Value = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""


TextBox126.Text = Val(TextBox126.Text) + j
TextBox125.Text = Val(TextBox125.Text) + k

icount = ""
CommandButton4.Enabled = False
End Sub

Private Sub cmd_save_Click()
Dim rng As Range
Set rng = Sheets("Dispatches Detail").Range("a6:af5")

lr = Sheets("dispatches detail").Cells(Rows.Count, 1).End(xlUp).Row
lr = lr + 1

If Sheets("dispatches detail").Cells(lr - 1, 1) = "SR No" Then
    Sheets("dispatches detail").Cells(lr, 1) = 1
Else
    Sheets("dispatches detail").Cells(lr, 1) = Sheets("dispatches detail").Cells(lr - 1, 1) + 1
End If

For icount = 0 To ListBox1.ListCount - 1
    With ListBox1

        t = .List(icount, 2)
        s = rng.Find(what:=t).Column
  
        Sheets("dispatches detail").Cells(lr, s).Select
        Sheets("dispatches detail").Cells(lr, s) = .List(icount, 6)
      
    End With
Next icount

icount = ""
lr = ""
End Sub

Rename your product names as above and use above 2 codes.

hth....

 

[AsifShah]

I had some time to spare so, I redesigned your dispatch form from
View attachment 32327
to
View attachment 32329
As I said earlier there is no need to have so many controls when all of this can be achieved with just a few.
made a few adjustments to your product names in Dispatches Detail sheet. The names from R-List sheet replaced old names.

NewTexting.xlsm
	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE
6	RGB Coke	RGB Sprite	RGB Fanta	Total	1500ML COKE	1500ML SPRITE	1500ML FANTA	Total	2250ML COKE	2250ML SPRITE	2250ML FANTA	Total	1000ML COKE	1000ML SPRITE	1000ML FANTA	Total	500ML COKE	500ML SPRITE	500ML FANTA	Total	250ML SC COKE	250ML SC SPRITE	250ML SC FANTA	Total	DASANI 1500ML	DASANI 500ML
Dispatches Detail

After this added below two codes to control buttons "OK" and "Save Data", respectively.

Private Sub CommandButton4_Click()
icount = ListBox1.ListCount

With ListBox1
  
    .AddItem
    .ColumnCount = 8
  
        .TextAlign = 2
      
        If icount = 0 Then
            .List(icount, 0) = icount + 1
        Else
            .List(icount, 0) = icount + 1
        End If
      
        .List(icount, 1) = ComboBox1.Value
        .List(icount, 2) = TextBox1.Text
        .List(icount, 3) = TextBox2.Text
        .List(icount, 4) = TextBox3.Text
        .List(icount, 5) = TextBox4.Text
        .List(icount, 6) = TextBox5.Text
        .List(icount, 7) = TextBox6.Text

         j = .List(icount, 6)
         k = .List(icount, 7)
End With

icount = ListBox1.ListCount
If icount = 0 Then
    Label162.Caption = 1
Else
    Label162.Caption = icount + 1
End If

ComboBox1.Value = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""


TextBox126.Text = Val(TextBox126.Text) + j
TextBox125.Text = Val(TextBox125.Text) + k

icount = ""
CommandButton4.Enabled = False
End Sub

Private Sub cmd_save_Click()
Dim rng As Range
Set rng = Sheets("Dispatches Detail").Range("a6:af5")

lr = Sheets("dispatches detail").Cells(Rows.Count, 1).End(xlUp).Row
lr = lr + 1

If Sheets("dispatches detail").Cells(lr - 1, 1) = "SR No" Then
    Sheets("dispatches detail").Cells(lr, 1) = 1
Else
    Sheets("dispatches detail").Cells(lr, 1) = Sheets("dispatches detail").Cells(lr - 1, 1) + 1
End If

For icount = 0 To ListBox1.ListCount - 1
    With ListBox1

        t = .List(icount, 2)
        s = rng.Find(what:=t).Column
 
        Sheets("dispatches detail").Cells(lr, s).Select
        Sheets("dispatches detail").Cells(lr, s) = .List(icount, 6)
     
    End With
Next icount

icount = ""
lr = ""
End Sub

Rename your product names as above and use above 2 codes.

hth....

Fahad Bro Thanks Alottttt ... My Problem is Solved .
Bundle of Thanks

 

[fadee2]

you are welcome... and thanks for the feedback