Excel vba help required

[kapil007]

Dear All

I have a work book contain 5 sheets

i.e., Hojo1,Hojo2, Hojo3, Hojo4 and Hojo5.

Hojo1 contains a command button and the
other 4 sheets contains data(inventory stock data) and
when we click on commond button a user form appers with a combo box with following coding it will select the supplier

Private Sub ComboBox1_Enter()
Dim i As Double
Dim final As Double
Dim tareas As String

ComboBox1.BackColor = &H80000005
For i = 1 To ComboBox1.ListCount
'Remove an item from the ListBox.
ComboBox1.RemoveItem 0
Next i
For i = 2 To 1000
If Hoja2.Cells(i, 4) = "" Then
final = i - 1
Exit For
End If
Next

'If ComboBox1.ListCount < 1 Then
'ComboBox1.AddItem "-"
For i = 2 To final
tareas = Hoja2.Cells(i, 4)
ComboBox1.AddItem (tareas)
Next
'End If
End Sub


and followed by the command button1
i want when we click on command button 1 (Private Sub CommandButton1_Click()

all the relevant data related to supplier will shown in new work book automatically.

Thanks
Regards
Kapil007

[DotComTr]

please add your workbook

[kapil007]

when u open the work book there is a command button called inventory manangement when u click on that button a form open with severel buttons all the things are going fine but when u click on REPORT button there are three command buttons in which CURRENT STOCK and CURRENT STOCK BY REFERENCE is working but i want code that CURRENT STOCK BY SUPPLIER as well, so that i can get the results as generated when u click on CURRENT STOCK BY REFERENCE.