Combobox in Worksheet

[backup69]

Hi
I need litle help.I have combobox in worksheet("Sheet4") and source for this in worksheet("Sheet2").
I make combobox list in propertis Listfillrange = Sheet2!A11:A19
and try make Click or Change event.
In sheet2 Column A i have only names for combobox and in Column B i have values what i want use in the sheet4.

Private Sub ComboBox1_Change()
    Dim source
    input = ComboBox1.Value
    Set source = Worksheets("Andmebaas").Range("A11:A13").Find(what:=ComboBox1.Value)
 'here i need some check information if combodbox value = find value in sheet2 then i need take information behind this value in column B and put this in to the selection in sheet4. only if my selected area is Range("L2:L30")
    
For Each c In source
    If input = source and Activesheet.Selection = Range("L2:L30") Then

Selection.Value =
    End If
    Next
End Sub

can anyone help me

 

[Andrew Poulsom]

OK, try:

If Range("aeg").Address = Union(Selection, Range("aeg")).Address Or Range("aeg2").Address = Union(Selection, Range("aeg2")).Address Then

 

[backup69]

TY
super

ty so mutsh working
ray: