كود نسخ الارقام الي عمود اخر

[commandos1975]

كود نسخ الارقام الي عمود اخر

aa.xlsx

[عبدالفتاح في بي اكسيل]

طلب  غير مفهوم على  الاطلاق  ولماذا  وضع  الارقام  في  مربعات نص  بدل  الخلايا ؟🤔

[commandos1975]

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

[نزار سليمان عيد]

بعد اذن الاستاذ عبدالفتاح

تحتاج لهذا الكود لتحويل الكنترول بوكس الى الخلية ثم تحتاج للمعادلة ادناه

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