نسخ الليست بوكس

[Akram Galal]

السادة المحترمين أعضاء المنتدي

السلام عليكم ورحمة الله وبركاتة

لدي ملف ينسخ ناتج البحث في ملف جديد

اريد أن ينسخ ناتج البحث الموجود في الليست بوكس في نفس الملف في صفحة رقم 3

ولكم جزيل الشكر

وإليكم المرفقات

ملف بحث.rar

[عبدالله باقشير]

السادة المحترمين أعضاء المنتدي

السلام عليكم ورحمة الله وبركاتة

لدي ملف ينسخ ناتج البحث في ملف جديد

اريد أن ينسخ ناتج البحث الموجود في الليست بوكس في نفس الملف في صفحة رقم 3

ولكم جزيل الشكر

وإليكم المرفقات

استبدل كود زر النسخ بهذا الكود

Private Sub ButtonSaveFil_Click()

Dim iC As Integer

iC = Me.ListFind.ListCount

If iC = 0 Then GoTo 1

'------------------------

Application.ScreenUpdating = False

    With ورقة3

        .Range("A1").Resize(1, ContColmn).Value = sRng.Value

        .Range("A2").Resize(iC, ContColmn).Value = Me.ListFind.List

        .UsedRange.Columns.AutoFit

    End With

Application.ScreenUpdating = True

Unload Me

1

End Sub

[Akram Galal]

أستاذي الفاضل/ عبد الله باقشير

جزاك الله خير الجزاء

ومشكور علي سرعة الرد وعلي أعمالك العظيمة

وجعلك الله سنداً للمسلمين

ولكن عند نسخ ناتج البحث في صفحة 3 تتغير عرض الأعمدة

أريد أن لايتغير تنسيق صفحة 3 عند لصق ناتج البحث بها

ولكم جزيل الشكر.

تم تعديل سبتمبر 12, 2012 بواسطه Akram Galal

[عبدالله باقشير]

أستاذي الفاضل/ عبد الله باقشير

جزاك الله خير الجزاء

ومشكور علي سرعة الرد وعلي أعمالك العظيمة

وجعلك الله سنداً للمسلمين

ولكن عند نسخ ناتج البحث في صفحة 3 تتغير عرض الأعمدة

أريد أن لايتغير تنسيق صفحة 3 عند لصق ناتج البحث بها

ولكم جزيل الشكر.

جزاك الله خيراً

السطر هذا يقوم بتغيير عرض الاعمدة حسب المحتوى

.UsedRange.Columns.AutoFit

احذفه

[Akram Galal]

ألف شكر

وجزاك الله خيراً .