أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة

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



19-01-2021 06:36 مساء
zahraamohamed
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-01-2021
رقم العضوية : 21524
المشاركات : 6
الجنس : أنثى
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 

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



احتاج معاونة لوجه الله 



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



اضفت شرح تفصيلى للترحيل للمدين والدائن اذا كانت العمود رقم اما اذا كان فارغ لايرحل



واضفت شرح تفصيلى للتقرير الذى يتغير بتغير الاختيارات 



ان شاء الله ان شاء الله لايصعب عليكم


 
 
  مدين دائن الزهراء.xlsm   تحميل xlsm مرات التحميل :(14)
الحجم :(24.355) KB


19-01-2021 06:56 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة
وعليكم السلام
يبدو أن الموضوع متشابك وبه عدة نقاط لذا أنصح بالتركيز على نقطة واحدة فقط وتوضيح المطلوب هنا في وصف الموضوع.
إذا كان الأمر يخص الترحيل يرجى ذكر ورقة العمل المراد الترحيل منها والنطاق المراد الترحيل منه وشروط الترحيل إن وجدت ، وكذلك ذكر ورقة الترحيل المراد الترحيل إليها والنطاق المراد الترحيل إليه. مع وضع شكل النتائج المتوقعة في صورة أو ما شابه.

19-01-2021 07:36 مساء
مشاهدة مشاركة منفردة [2]
zahraamohamed
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-01-2021
رقم العضوية : 21524
المشاركات : 6
الجنس : أنثى
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/i1.gif كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة
شكرا لحضرتك اولا الترحيل يتم ترحيل التاريخ ورقم الاستمارة لكل الصفوف
اسم الحساب والبيان لايتم تغيرهم ثابتين بشيت الترحيل والاخال فقط ما نريد ترحيله نكتب مبلغ بجانبه اما مدين اودائن
الشيت المرحل اليه يتم اختياره من بين 5 شيتات بقائمة فى العمود G يتم الترحيل للمدين والدائن شرط ان يكون هناك مبلغ اذا كانت الخلية دائن او مدين فارغتين او يحتويان على0 لايتم ترحيل هذا الصف
النتائج المتوقع الحصول عليها من صفحة الادخال والترحيل بصفحة ديون اتمنى يصلك مطلبى
اما التقرير فبه شرح للمطلوب
والشرح تفصيلى بشيت الادخال والترحيل ومشكور حضرتك لتقديم يد المساعدة لى وانت من اساطير الاكسيل الذين اراهم منذ زمن
بارك الله فيك

19-01-2021 11:35 مساء
مشاهدة مشاركة منفردة [3]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 232
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2179
عدد الإجابات: 28
 offline 
look/images/icons/i1.gif كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة
السلام عليكم ورحمة الله
اختى الكريمة على حسب ما فهمت
الكود الآتى لترحيل البيانات من ورقة  الادخال والترحيل الى الى باقى الاوراق حسب الخليىة "G2"
اما غير ذلك صراحة لم افهم ربما بفهمه احد الزملاء و يقوم بعمله
راجيا لك كل التوفبق
Sub TranserData()
Dim ws As Worksheet, Sh As Worksheet
Dim Lr As Long, Ls As Long, ShNam As String
Dim Arr As Variant, Tmp As Variant, i As Long, j As Long, p As Long
Dim a, b
Set ws = Sheets("الادخال والترحيل")
Lr = ws.Range("C" & Rows.Count).End(3).Row
a = ws.Range("A2"): b = ws.Range("B2")
ShNam = ws.Range("G2")
Set Sh = Sheets(ShNam)
Ls = Sh.Range("B" & Rows.Count).End(3).Row
Arr = ws.Range("A3:F" & Lr).Value
ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr, 1)
If Arr(i, 5) > 0 Or Arr(i, 6) > 0 Then
p = p + 1
For j = 1 To UBound(Arr, 2)
Tmp(p, j) = Arr(i, Choose(j, 1, 3, 3, 4, 5, 6))
Tmp(p, 1) = a
Tmp(p, 3) = b
Next
End If
Next
Sh.Range("A" & Ls + 1).Resize(p, UBound(Tmp, 2)).Value = Tmp
End Sub


20-01-2021 02:45 مساء
مشاهدة مشاركة منفردة [4]
zahraamohamed
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-01-2021
رقم العضوية : 21524
المشاركات : 6
الجنس : أنثى
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/i1.gif كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة
حضرتك ماشاء الله عليك هذا المطلوب بالنسبة للترحيل تمام فتح الله عليك اخى بس فى مشكلة الكود يقوم باستبدال البيانات المرحلة 
لو حضرتك غيرت التاريخ فقط واضغط ترحيل هيتم استبدال التاريخ وباقى البيانات كما هى
تعديل هذ الجزء وجعل الكود يرحل اسفل البيانات الموجودة لا يستبدلها غى حالة انها متشابهة
اتمنى اكمال الجميل فى كود للتقرير
جزاك الله عنى كل خير
اخى اشكرك

20-01-2021 08:32 مساء
مشاهدة مشاركة منفردة [5]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة
لاثراء الموضوع
كود ترحيل بالتعامل مع الخلايا مباشرة 
لكى يسهل التعديل عليه من اى شخص
Sub s()
Dim ws As Worksheet, Sh As Worksheet, ShNam
Dim h As Long, g As Long
Set ws = Sheets("ÇáÇÏÎÇá æÇáÊÑÍíá")
ShNam = ws.Range("g2")
For g = 3 To ws.Range("c" & Rows.Count).End(3).Row
h = Sheets(ShNam).Range("a" & Rows.Count).End(3).Row + 1
If ws.Range("a2") <> "" And ws.Range("b2") <> "" Then
Sheets(ShNam).Cells(h, 1) = ws.Range("a2").Value
Sheets(ShNam).Cells(h, 2) = ws.Cells(g, "c").Value
Sheets(ShNam).Cells(h, 3) = ws.Range("b2").Value
Sheets(ShNam).Cells(h, 4) = ws.Cells(g, "d").Value
Sheets(ShNam).Cells(h, 5) = ws.Cells(g, "e").Value
Sheets(ShNam).Cells(h, 6) = ws.Cells(g, "f").Value
End If
Next g
End Sub

20-01-2021 09:31 مساء
مشاهدة مشاركة منفردة [6]
zahraamohamed
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-01-2021
رقم العضوية : 21524
المشاركات : 6
الجنس : أنثى
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/i1.gif كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة
بارك الله فيك اخى
الكود ينقصه عدم ترحيل الصف الذى به صفر بالمدين والدائن او كلاهما فارغين بس بيرحل اسفل بعض والى كل الصفحات 
اتمنى المساعة بالتعديل والشكر لكل من قدم يده لى بالعون
وانتظر التقرير يااساتذة اعزكم الله




الكلمات الدلالية
لترحيل ، المدين ، والدائن ، وتقرير ، استدعاء ، بيانات ، طريق ، اختيار ، بيانات ، التقريروتاريخ ، فترة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 10:11 صباحا