أريد وضع قيمة من ليست بوكس في خلية

[نايف - م]

السلام عليكم

عندي فورم فيه ليست بوكس

أرغب عند الضغط على الليست بوكس أن توضع القيمة الموجودة في في خلية بشروط أضعها

لقد كتبت التالي و لم ينجح

أريد المساعدة و معرفة السبب:

Private Sub ListBox1_Click()
ss = Sheets("sale").ActiveCell.Column

With ListBox1
If ss = 26 Or ss = 32 Then

   ActiveCell.Value = .List(.ListIndex, 0)
    Else
    MsgBox """

       End If
   End With

end sub

تم تعديل سبتمبر 27, 2013 بواسطه نايف - م

[نايف - م]

بالرجاء مع تكرار الطلب

[الـعيدروس]

السلام عليكم

ActiveCell.Value = ListBox1.Value