بعد اذن الاستاذ عبدالفتاح
تحتاج لهذا الكود لتحويل الكنترول بوكس الى الخلية ثم تحتاج للمعادلة ادناه
Sub Tester()
Dim o
For Each o In ActiveSheet.OLEObjects
If o.progID = "Forms.HTML:Text.1" Then
Debug.Print o.Name, o.Object.Value, o.TopLeftCell.Address()
'sometimes merged cells result from a HTML copy/paste,
' so don't just use .TopLeftCell to set the Value
o.TopLeftCell.MergeArea.Value = o.Object.Value
o.Delete
End If
Next o
End Sub
=MID($R2;COLUMN()-(COLUMN($S2)- 1);1)
فضلا انظر للمرفق ... مع الشكر
aa.xls