فورم استعلام

[أبو چيداء]

شكرا لك اخى \ رجب

وانا فى انتظارك

[رجب جاويش]

أخى الفاضل / أبو جيداء

جرب المرفق

 

حفظ فى ملف جديد.rar

[جلال الجمال_ابو أدهم]

استاذ / رجب جاويش

بارك الله فيك

[رجب جاويش]

أخى الفاضل / جلال

جزاك الله كل خير أخى الفاضل

[أبو چيداء]

شكرا لك اخى الفاضل رجب جاويش

بارك الله فيك

[رجب جاويش]

أخى الفاضل / أبو جيداء

جزاك الله كل خير أخى الفاضل

[أبو چيداء]

اخى الكريم رجب

هل يوجد اي اضافات تم اضافتها غير هذا الحدث Private Sub CommandButton1_Click()
On Error Resume Next
With Workbooks.Add(xlWBATWorksheet)
    With .Sheets(1)
        .Range("A1").Resize(1, 5).Value = Workbooks(Nam).Sheets("sheet2").Range("A1:E1").Value
        .Range("A2") = Me.TextBox1
        .Range("B2") = Me.TextBox2
        .Range("C2").Resize(RR, R).Value = Me.ListBox1.List
        .Columns("D:E").NumberFormat = "[$-1010000]yyyy/mm/dd;@"
        .UsedRange.Columns.AutoFit
    End With
    Unload Me
End With
End Sub

[رجب جاويش]

أخى الفاضل

يوجد فقط الجزء

Nam = ThisWorkbook.Name

موجود فى حدث ال TextBox1 مرتبط بعمليه الترحيل وهو لتخزين اسم الملف الأصلى

[أبو چيداء]

شكرا اخر رجب على هذا المجهود العظيم

وبارك الله فيك

[رجب جاويش]

أخى الفاضل / أبو جيداء

جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة