how to retrieved my data in worksheet to my combo box ??

[Jefferson2512]

i call pesat to my button

Private Sub pesat()
    
    Dim wks As Worksheet
    Set wks = Sheet9
        pesatcb.Text = wks.Range("BH3").Value


 
End Sub

Private Sub pesatcb_Change()
    Dim wks As Worksheet
    Dim addnew As Range
    Set wks = Sheet9
     
    
    Set addnew = wks.Range("CV3").Offset(0, 0)
   
        addnew.Offset(0, 0).Value = pesatcb.Text
End Sub

 

[pbornemeier]

In the first code you have an ActiveX combo box and you assign to it the value in BH3.
In the second code you assign the value in the combo box to CV3
I assume by your title you want to add worksheet data to the combo box drop down list. This may help:

Sub PopulateComboBoxDropDownList()

    Dim aryDD As Variant
    Dim lIndex As Long
    
    ReDim aryDD(1 To 5)
    For lIndex = 1 To 5
        aryDD(lIndex) = Range("A" & lIndex).Value
    Next
    
    Worksheets("Sheet1").ComboBox1.List = aryDD
    
End Sub