طلب عمل كود ترحيل حسب الاسم والتاريخ

[الرحال 123]

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

ارجو المساعدة في اضافة كود ترحيل حسب اسم الصفحة وحسب التاريخ في الشيت الذي يخصه 

 

وبارك الله فيكم

 الاحصائية لعمل النوبات.xlsm

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

جرب هذا الملف( بدون كود)

 

EHSAA3.xlsm

[الرحال 123]

الله يعطيك العافية بس ما فهمت حاجة على العموم مشكور

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

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

ما فعلته هو اني وضعت بعض البيانات التجريبية في الصفحات

يمكنك مسحها ووضع ما تريد

[الرحال 123]

اشكرك بس المطلوب هو اختار اسم النوبة من الاعلى ثم في الجدول اكتب التاريخ و الباقي ارقام ( عدد 3 و 4 و 5 ) ثم كود الترحيل يرحل حسب اسم النوبة ومقابل التاريخ الذي يخصه 

لكل معرف على انه تاريخ اي قيمة اضعها تظهر تاريخ 

انا احتاج سطر واحد فقط في الصفحة الرئيسية والترحيل منه الى الصحفة المناسبة حسب النوبة والتاريخ فقط

 

واشكرك مرة اخرى

ْ

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

لا حاجة لفعل اي شيء

فقط اختر من القائمة المنسدلة اي حرف  ا/ب/ج/  الخ.... والمعادلات تقوم بالواجب

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

تم التعديل كما تريد

Option Explicit

Sub transfer_data()
Dim Source_sh As Worksheet
Dim Target_sh As Worksheet
Dim last_ro%, N_ro%
Set Source_sh = Sheets("ورقة1")
last_ro = Source_sh.Cells(Rows.Count, 3).End(3).Row
If last_ro < 10 Then Exit Sub
Select Case Source_sh.Range("c2")
  Case "أ": Set Target_sh = Sheets("نوبة أ")
  Case "ب": Set Target_sh = Sheets("نوبة ب")
  Case "ج": Set Target_sh = Sheets("نوبة ج")
  Case "د": Set Target_sh = Sheets("نوبة د")
  Case "ه": Set Target_sh = Sheets("نوبة ه")
  Case "و": Set Target_sh = Sheets("نوبة و")
End Select

 N_ro = Target_sh.Cells(Rows.Count, 1).End(3).Row + 1
 Target_sh.Range("a" & N_ro).Resize(last_ro - 9, 6).Value = _
 Source_sh.Range("B10").Resize(last_ro - 9, 6).Value

End Sub

الملف مرفق

EHSAA3_1.xlsm

[الرحال 123]

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