ترحيل الاسماء والتواريخ المكررة الى شيت اخر بدون تكرار

[ابواميمة]

السلام عليكم ورحمة الله وبركاته

المطلوب : ترحيل اسم الاب من ورقة datos مع تاريخ التسجيل بدون تكرار الى الورقة Pagos كما في المثال اعلاه وجزاكم الله خيرا واحسن الله اليكم.

ترحيل.xlsm

[أ / محمد صالح]

يمكنك حذف الخلية الصفراء المدمجة أولا

ثم استعمال هذا الكود وربطه بزر أمر أو شكل

Sub tar7eel()
Dim r As Long, f As Long
Hoja2.Range("a2:b" & Hoja2.Cells(Rows.Count, 1).End(3).Row).ClearContents
Hoja2.Range("d2:d" & Hoja2.Cells(Rows.Count, 1).End(3).Row).ClearContents
f = 2
For r = 2 To Hoja1.Cells(Rows.Count, 1).End(3).Row
myParent = Hoja1.Range("j" & r): newparent = Hoja1.Range("j" & r + 1)
If myParent <> newparent Then
Hoja2.Range("a" & f) = f - 1
Hoja2.Range("b" & f) = Hoja1.Range("j" & r)
Hoja2.Range("d" & f) = Hoja1.Range("d" & r)
f = f + 1
End If
Next r
MsgBox "Done by mr-mas.com"
End Sub

ملحوظة: تم استعمال الاسم البرمجي للشيتات وهو Hoja1 و Hoja2 وهو الاسم الموجود في محرر vba وليس الاسم الذي يظهر في تبويب الشيتات

بالتوفيق

[ابواميمة]

جزاكم الله خيرا اخي الفاضل محمد صالح وجعله الله في ميزان حسناتك اللهم امين

فضلا لا امرا اخي الكريم ممكن تعديل الكود ليلائم الملف المرفق  وجزاكم الله خيرا ...حاولت التعديل عليه ولم افلح 

ترحيل1.xlsm

[أ / محمد صالح]

ربما إذا عرفنا في اي نقطة توقفت يمكننا المساعدة 

تذكر جيدا أن:

أول خطوة في نقل الكود لملف جديد هو فهم الكود ومعرفة المتغيرات والكائنات المستعملة فيه 

وأن الهدف من المنتدى هو التعلم وليس الحصول على ما نحتاجه جاهزا من غيرنا 

[ابواميمة]

السلام عليكم ورحمة الله وبركاته

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

ولهذا فكلما خطر ببالي شيء مفيد للشيت ولا اعرفه اطلب المساعدة من كل الاخوة الكرام في المنتدى المبارك اعانكم الله على فعل الخيرات وجزاكم الله عنا كل خير  ...فاذا قمت بتعديل الكود ليلائم الشيت المرفق لاسديت لي خيرا كبيرا فبارك الله فيكم اجمعين

سؤال فهل الكود يعمل اوتوماتيكيا ام  اضيف له زر للتشغيل

ترحيل1.xlsm

[أ / محمد صالح]

أي إجراء مثل sub tar7eel غير مرتبط بحدث مثل تغير الخلايا داخل الشيت أو فتح المصنف أو غيرها من الأحداث يجب ربطه بزر أو بشكل 

عن طريق asign to macro الموجودة في كلك يمين على الشكل أو الزر

[ابواميمة]

اخي الفاضل محمد صالح 

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

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

[أ / محمد صالح]

أخي الفاضل

ربما إذا حددت لي ما السطر الغامض عليك في الكود أوضحه لك

أما إذا كنت لا تعرف شيئا عن الأكواد فأنصحك بمتابعة هذه الدورة عن الأكواد من الصفر أولا ثم مراجعة أي كود مكتوب

https://www.officena.net/ib/index.php?showtopic=39323

لأنه من الواضح لي أن:

كود جلب أسماء الأبناء عمله بدلا عنك أستاذ Lion heart وهذا الكود الذي يتأسس عليه الكود الأول قمت به لك

ونحن هنا للمرة المليون لا نقوم بعمل برامج جاهزة للناس مجانا (ولا تبخسوا الناس أشياءهم)

خالص الدعوات بالتوفيق