Problem with ComboBox and Command Button macro...

[Bubbis Thedog]

Newbie, folks! What's up?

The code below is contained within my Sheet1 object:

Public Sub Finish_Click()
     
    Application.ScreenUpdating = False
     
    Sheets("Invoice").Range("B1:B2").Copy
     
    Sheets("Database").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
     
    Sheets("Invoice").Range("C8:F8").Copy
     
    Sheets("Database").Range("A65536").End(xlUp).Offset(0, 2).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
     
    Application.ScreenUpdating = True
     
End Sub
Private Sub Worksheet_Activate()
     
    Application.ScreenUpdating = False
     
    Dim cbCVals
    Dim i As Integer
     
    cbCVals = Array("Axle", "Wheel")
     
    cbComponents.Clear
    cbComponents2.Clear  'More than one component can be ordered, but _
                                     'I'll work on that code later
      For i = 0 To 1
        cbComponents.AddItem cbCVals(i)
        cbComponents2.AddItem cbCVals(i)
      Next i
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
     
End Sub

So I select an item from the ComboBox... Then I click the Finish Command Button to send data from Sheet1 into Sheet2. I can't get things to work so that the ComboBox retains only the data listed in the Array. Basically, it resets everytime I click the Finish button, and that screws up formulas that depend on the value chosen from the list.

What am I doing wrong? Is copying and pasting not the way to go about what I'm trying to accomplish?

Any help whatsoever would be greatly appreciated!!!

Thanks,

Bubbis Thedog

P.S. Are attachments not allowable on here? Just curious.

 

[BrianB]

Your combo box should be set up in the Initialize event of the form.