Akram Galal قام بنشر سبتمبر 12, 2012 قام بنشر سبتمبر 12, 2012 السادة المحترمين أعضاء المنتدي السلام عليكم ورحمة الله وبركاتة لدي ملف ينسخ ناتج البحث في ملف جديد اريد أن ينسخ ناتج البحث الموجود في الليست بوكس في نفس الملف في صفحة رقم 3 ولكم جزيل الشكر وإليكم المرفقات ملف بحث.rar
عبدالله باقشير قام بنشر سبتمبر 12, 2012 قام بنشر سبتمبر 12, 2012 السادة المحترمين أعضاء المنتدي السلام عليكم ورحمة الله وبركاتة لدي ملف ينسخ ناتج البحث في ملف جديد اريد أن ينسخ ناتج البحث الموجود في الليست بوكس في نفس الملف في صفحة رقم 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 قام بنشر سبتمبر 12, 2012 الكاتب قام بنشر سبتمبر 12, 2012 (معدل) أستاذي الفاضل/ عبد الله باقشير جزاك الله خير الجزاء ومشكور علي سرعة الرد وعلي أعمالك العظيمة وجعلك الله سنداً للمسلمين ولكن عند نسخ ناتج البحث في صفحة 3 تتغير عرض الأعمدة أريد أن لايتغير تنسيق صفحة 3 عند لصق ناتج البحث بها ولكم جزيل الشكر. تم تعديل سبتمبر 12, 2012 بواسطه Akram Galal
عبدالله باقشير قام بنشر سبتمبر 12, 2012 قام بنشر سبتمبر 12, 2012 أستاذي الفاضل/ عبد الله باقشير جزاك الله خير الجزاء ومشكور علي سرعة الرد وعلي أعمالك العظيمة وجعلك الله سنداً للمسلمين ولكن عند نسخ ناتج البحث في صفحة 3 تتغير عرض الأعمدة أريد أن لايتغير تنسيق صفحة 3 عند لصق ناتج البحث بها ولكم جزيل الشكر. جزاك الله خيراً السطر هذا يقوم بتغيير عرض الاعمدة حسب المحتوى .UsedRange.Columns.AutoFit احذفه
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان