عبدالفتاح في بي اكسيل قام بنشر أكتوبر 21, 2018 مشاركة قام بنشر أكتوبر 21, 2018 يظهر خطا اثناء تنفيد الكود لا يرحل الى الورقة ترحيل1.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 21, 2018 مشاركة قام بنشر أكتوبر 21, 2018 بدل الى هذا الكود Private Sub CommandButton1_Click() Dim My_sh As Worksheet Set My_sh = Worksheets("ورقة1") Dim lastrow As Integer Dim i% With My_sh lastrow = .Cells(Rows.Count, 1).End(3).Row + 1 For i = 1 To 14 .Cells(lastrow, i).Value = Me.Controls("TextBox" & i) Me.Controls("TextBox" & i) = "" Next MsgBox "تم الترحيل" End With End Sub 2 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أكتوبر 21, 2018 مشاركة قام بنشر أكتوبر 21, 2018 احسنت استاذ سليم بارك الله فيك 2 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أكتوبر 22, 2018 الكاتب مشاركة قام بنشر أكتوبر 22, 2018 (معدل) شكر اخي سليم ولكن هناك مشكلة عند التنفيد يبدا من السطر الثامن وليس الثاني كما هو مفترض تم تعديل أكتوبر 22, 2018 بواسطه في بي ايه اكسيل رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 22, 2018 مشاركة قام بنشر أكتوبر 22, 2018 يبدو ان هناك صفوفاً غير فارغة في الصفحة (فيها بيانات غير مرئية) قم بتحديد اكبر عدد من الصفوف ابتداء من الصف الثاني (حوالي 100 صف) واحذفها ثم نفذ الماكرو رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أكتوبر 22, 2018 الكاتب مشاركة قام بنشر أكتوبر 22, 2018 حدفت مائة صف ابتداءا من الصف الثاني ولازالت المشكلة قائمة رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أكتوبر 22, 2018 مشاركة قام بنشر أكتوبر 22, 2018 تفضل استاذى الكريم كود استاذنا الكبير سليم يعمل بكل دقة وبكفاءة عالية له منا كل المحبة والإحترام ترحيل من الفورم الى ملف الإكسيل.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أكتوبر 22, 2018 الكاتب مشاركة قام بنشر أكتوبر 22, 2018 اخي شكرا على تفاعلك السريع لكن للاسف عندما مسحت ما كتبته انت وطبقت عليه نفس المشكلة باقية وعذرا لقد اثقلت عليك رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أكتوبر 22, 2018 مشاركة قام بنشر أكتوبر 22, 2018 يمكنك مراجعة نسخة الأوفيس لديك فالملف يعمل عندى بكفاءة 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 22, 2018 مشاركة قام بنشر أكتوبر 22, 2018 1 ساعه مضت, في بي ايه اكسيل said: اخي شكرا على تفاعلك السريع لكن للاسف عندما مسحت ما كتبته انت وطبقت عليه نفس المشكلة باقية وعذرا لقد اثقلت عليك عليك الا تمسح البيانات من الجدول بل الصفوف باستعمال هذا الماكرو الصغير Sub del_row() ActiveSheet.Rows("2:1000").Delete End Sub 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح محمد قام بنشر أكتوبر 22, 2018 مشاركة قام بنشر أكتوبر 22, 2018 (معدل) جاري التجربة تم تعديل أكتوبر 22, 2018 بواسطه عبدالفتاح محمد ضروري رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أكتوبر 24, 2018 الكاتب مشاركة قام بنشر أكتوبر 24, 2018 شكرا اخي سليم عذرا لقد تاخرت على الرد واشكرك على سعة صدرك ونفذت كود المسح وكل شيء تمام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.