المساعدة فى كود الترحيل

[على نور]

هذا الكود من ابداع الاستاذ طارق ولكن عندما اضغط على زر الترحيل تخرج رساله ارجو عمل اللازم وتصليح الكود

والتوضيح فى المرفق

ترحيل نور.rar

[طارق محمود]

السلام عليكم

أخي العزيز

أضف السطر التالي للكود

	If x = "" Then GoTo 10

خلف السطر

	x = Cells(R, "AV")

مباشرة ليكون الكود

Sub shift()


LR = [AV1000].End(xlUp).Row 'لمعرفة آخر سطر فيه نتيجة متعدد وجائز


For R = 11 To LR ' نبدأ حلقة من أول سطر به بيانات إلي آخر سطر


    x = Cells(R, "AV")

    If x = "" Then GoTo 10

    With Sheets(x)

        LR2 = .[B1000].End(xlUp).Row + 1 'لتحديد آخر سطر جاهز لنقل بيانات

        .Cells(LR2, "B") = Cells(R, "B")

        .Cells(LR2, "C") = Cells(R, "D")

        .Cells(LR2, "D") = Cells(R, "E")

    End With


10

Next R

MsgBox ("الحمد لله" & Chr(10) & "تم الترحيل")



End Sub

[على نور]

بارك الله فيك استاذى الغالى طارق

ولى طلب اخر بسيط عندك

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

[طارق محمود]

السلام عليكم

أخي العزيز

تفضل المرفق

ترحيل نور2.rar

[جمال عبد السميع]

ماشاء الله أستاذي قمة في الروعة والتمكن بصراحة شئ جميل وأسمح لتلميذك أن يقدم علي قدة حل أخر حتي يستطيع غير المتمكن من تغيير المدي فقط وأسم الشيت

ترحيل نور.rar

تم تعديل مايو 30, 2012 بواسطه mahmoud-lee