مشكلة في تنفيد الكود

[عبدالفتاح في بي اكسيل]

يظهر خطا اثناء تنفيد الكود لا يرحل الى الورقة

ترحيل1.rar

[سليم حاصبيا]

بدل الى هذا الكود

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

 

[Ali Mohamed Ali]

احسنت استاذ سليم بارك الله فيك

[عبدالفتاح في بي اكسيل]

شكر اخي سليم ولكن هناك مشكلة عند التنفيد يبدا من السطر الثامن وليس الثاني كما هو مفترض 

تم تعديل أكتوبر 22, 2018 بواسطه في بي ايه اكسيل

[سليم حاصبيا]

يبدو ان هناك  صفوفاً غير فارغة في الصفحة (فيها بيانات غير مرئية)

قم بتحديد اكبر عدد من الصفوف ابتداء من الصف الثاني (حوالي 100 صف) واحذفها

ثم نفذ الماكرو

[عبدالفتاح في بي اكسيل]

حدفت مائة صف ابتداءا من الصف الثاني  ولازالت المشكلة قائمة

 

[Ali Mohamed Ali]

تفضل استاذى الكريم كود استاذنا الكبير سليم يعمل بكل دقة وبكفاءة عالية له منا كل المحبة والإحترام

 

ترحيل من الفورم الى ملف الإكسيل.xlsm

[عبدالفتاح في بي اكسيل]

اخي شكرا على تفاعلك السريع  لكن للاسف عندما مسحت ما كتبته انت وطبقت عليه نفس المشكلة باقية  وعذرا لقد اثقلت عليك 

[Ali Mohamed Ali]

يمكنك مراجعة نسخة الأوفيس لديك فالملف يعمل عندى بكفاءة

 

[سليم حاصبيا]

1 ساعه مضت, في بي ايه اكسيل said:

اخي شكرا على تفاعلك السريع  لكن للاسف عندما مسحت ما كتبته انت وطبقت عليه نفس المشكلة باقية  وعذرا لقد اثقلت عليك 

عليك الا تمسح البيانات من الجدول بل الصفوف باستعمال هذا الماكرو الصغير

Sub del_row()
ActiveSheet.Rows("2:1000").Delete
End Sub

 

[عبدالفتاح محمد]

جاري التجربة

تم تعديل أكتوبر 22, 2018 بواسطه عبدالفتاح محمد
ضروري

[عبدالفتاح في بي اكسيل]

شكرا اخي سليم  عذرا لقد تاخرت على الرد واشكرك على سعة صدرك ونفذت كود المسح وكل شيء تمام