عبدالله باقشير قام بنشر يونيو 19, 2012 الكاتب مشاركة قام بنشر يونيو 19, 2012 الاستاذ الفاضل خبور خير اعمالك بل ابداعاتك كلها جميلة مفيدة متقنة فريدة من نوعها جزاك الله خيرا متعك الله بالصحة والعافية سعد عابد اكرمك الله في الدارين واثابك بدعائك واعطاك بمثله اضعاف مضاعفة وجزاك خيرا وبارك فيك تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 19, 2012 الكاتب مشاركة قام بنشر يونيو 19, 2012 بسم الله الرحمن الرحيم استاذنا الكبير الغالي عبد الله باقشير " خبور خير " بعد غيبة طويلة لم استطع خلالها الدخول الى النت واستمتع بأعمال اساتذتي واخوتي الاعزاء في اوفيسنا سنحت لي الظروف بالدخول واول استعراض لي كان هذا الموضوع ... ما شاء الله ... ما شاء الله طبعا انا لا اجرء على تقييم اعمالك فأنت فارس وعالم لايشق له غبار ... وصاحب فضل كبير ( والفضل لله ) ولكن وبصدق هذا من اجمل الاعمال التي شاهدتها في البحث والترحيل ... عمل احترافي من رجل احترافي وهنا انقل عن حبيبي وصديقي سعد عابد : اعمالك بل ابداعاتك كلها جميلة مفيدة متقنة فريدة من نوعها جزاك الله خيرا متعك الله بالصحة والعافية وفقك الله .... ابو الحارث اولا نورت المنتدى ثانيا اكرمك الله في الدارين واثابك بدعائك واعطاك بمثله اضعاف مضاعفة وجزاك خيرا وبارك فيك ووفقك في جميع امورك تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر يونيو 19, 2012 مشاركة قام بنشر يونيو 19, 2012 السلام عليكم استاذنا الكبير والعلامة القدير اكوادك غنية عن التعريف وقمة في الروعة جزاك الله خير :fff: رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 24, 2012 الكاتب مشاركة قام بنشر يونيو 24, 2012 السلام عليكم استاذنا الكبير والعلامة القدير اكوادك غنية عن التعريف وقمة في الروعة جزاك الله خير :fff: جزاك خيرا وبارك فيك تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يونيو 24, 2012 مشاركة قام بنشر يونيو 24, 2012 السلام عليكم أستاذي عبدالله باقشير إذا أردت أن نسخ نتيجة البحث في نفس الملف ولكن في شيت رقم 3 ابتداء من الخلية A6 فكيف يكون التعديل في الكود ؟ رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 24, 2012 الكاتب مشاركة قام بنشر يونيو 24, 2012 السلام عليكم أستاذي عبدالله باقشير إذا أردت أن نسخ نتيجة البحث في نفس الملف ولكن في شيت رقم 3 ابتداء من الخلية A6 فكيف يكون التعديل في الكود ؟ تفضل استبدل بهذا Private Sub ButtonSaveFil_Click() Dim iC As Integer iC = Me.ListFind.ListCount If iC = 0 Then GoTo 1 '------------------------ Application.ScreenUpdating = False With Sheets(3) .Select .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List End With Application.ScreenUpdating = True Unload Me 1 End Sub 1 رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يونيو 24, 2012 مشاركة قام بنشر يونيو 24, 2012 أحسنت أستاذي الفاضل : عبدالله باقشير جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
جمال جبريل قام بنشر يناير 6, 2014 مشاركة قام بنشر يناير 6, 2014 السلام عليكم أستاذي عبدالله باقشير إذا أردت أن نسخ نتيجة البحث في نفس الملف ولكن في شيت رقم 3 ابتداء من الخلية A6 فكيف يكون التعديل في الكود ؟ تفضل استبدل بهذا Private Sub ButtonSaveFil_Click() Dim iC As Integer iC = Me.ListFind.ListCount If iC = 0 Then GoTo 1 '------------------------ Application.ScreenUpdating = False With Sheets(3) .Select .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List End With Application.ScreenUpdating = True Unload Me 1 End Sub اريد فقط قبل ان ينسخ المحتويات الي الورقة الجديدة ، ان يمسح او يزيل معلومات وبيانات موجودة في نفس الورقة وابتداءا من الخية (A6) ، وشكرا لكم رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يناير 6, 2014 الكاتب مشاركة قام بنشر يناير 6, 2014 اريد فقط قبل ان ينسخ المحتويات الي الورقة الجديدة ، ان يمسح او يزيل معلومات وبيانات موجودة في نفس الورقة وابتداءا من الخية (A6) ، وشكرا لكم استبدل بدلا من الرقم 1000 الطول الحقيقي للكشف عندك Private Sub ButtonSaveFil_Click() Dim iC As Integer iC = Me.ListFind.ListCount If iC = 0 Then GoTo 1 '------------------------ Application.ScreenUpdating = False With Sheets(3) .Select .Range("A6").Resize(1000, ContColmn).ClearContents .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List End With Application.ScreenUpdating = True Unload Me 1 End Sub تحياتي رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يناير 6, 2014 مشاركة قام بنشر يناير 6, 2014 السلام عليكم عطاء بلا حدود ياربي أكرم صاحب الجود والصدر الودود أستاذ الاجيال بارك الله فيك وحفظك ذخرا للبلاد والعباد رابط هذا التعليق شارك More sharing options...
جمال جبريل قام بنشر يناير 7, 2014 مشاركة قام بنشر يناير 7, 2014 اريد فقط قبل ان ينسخ المحتويات الي الورقة الجديدة ، ان يمسح او يزيل معلومات وبيانات موجودة في نفس الورقة وابتداءا من الخية (A6) ، وشكرا لكم استبدل بدلا من الرقم 1000 الطول الحقيقي للكشف عندك Private Sub ButtonSaveFil_Click() Dim iC As Integer iC = Me.ListFind.ListCount If iC = 0 Then GoTo 1 '------------------------ Application.ScreenUpdating = False With Sheets(3) .Select .Range("A6").Resize(1000, ContColmn).ClearContents .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List End With Application.ScreenUpdating = True Unload Me 1 End Sub تحياتي فتح الله لك ، واعطاك من كل الخيرات التي تتمناها ، ولكن اريد توسع اكثر ، فهم رقم 1000 ، واريد ان يكون الملف مفتوحا ، وليس محددا بمدى معين ، اي كل مستند ، وليس 1000 صف او عمود فقط ، كل المستند 1 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يناير 7, 2014 الكاتب مشاركة قام بنشر يناير 7, 2014 فتح الله لك ، واعطاك من كل الخيرات التي تتمناها ، ولكن اريد توسع اكثر ، فهم رقم 1000 ، واريد ان يكون الملف مفتوحا ، وليس محددا بمدى معين ، اي كل مستند ، وليس 1000 صف او عمود فقط ، كل المستند آمين جرب هذا Private Sub ButtonSaveFil_Click() Dim iC As Integer iC = Me.ListFind.ListCount If iC = 0 Then GoTo 1 '------------------------ Application.ScreenUpdating = False With Sheets(3) .Select .Range("A6").Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).ClearContents .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List End With Application.ScreenUpdating = True Unload Me 1 End Sub تحياتي 1 رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر يناير 7, 2014 مشاركة قام بنشر يناير 7, 2014 عمل رائع رابط هذا التعليق شارك More sharing options...
ابو يحي قام بنشر ديسمبر 10, 2014 مشاركة قام بنشر ديسمبر 10, 2014 مجهودات جبارة بارك الله فيكم جميعا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان