الترحيل الى ملف جديد

[1anass]

السلام عليكم

من فضلكم اريد كود لترحيل محتويات listbox الى ملف اكسيل جديد 

اي عند الضغط على زر ترحيل يفتح ملف اكسيل جديد و فيه كل الاعمدة التى عندنا فى ال listbox

شكرا لكم 

[Ali Mohamed Ali]

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

بارك الله فيك

[1anass]

هذا هو الملف 

اتمنى منكم المساعدة 

الترحيل.xlsm

تم تعديل يوليو 7, 2018 بواسطه 1anass

[1anass]

السلام عليكم 

وجدت هذا الكود لكن اريد inputbox  لتسمية الملف 

With Workbooks.Add
_  = ((Sheets(1).Range(Cells(1, 1), Cells(Me.ListBox1.ListCount, Me.ListBox1.ColumnCo.
            Me.ListBox1.List
        Sheets(1).Name = Format(Now(), "yyyy-mm-dd") & " Transfer"
    End With

تم تعديل يوليو 8, 2018 بواسطه 1anass