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

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


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





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

السلام عليكم هنا الموضوع مختلف شوية المطلوب هنا قاعدة بيانات شيت 1 الداتا شيت 2 المطلوب هنا يقسم كل صنف حسب الحرك ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


05-11-2020 03:50 مساء
رمضان بكري
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 442
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 38
قوة السمعة : 1792
 offline 

السلام عليكم 
هنا الموضوع مختلف  شوية  المطلوب هنا  
قاعدة بيانات شيت 1 
الداتا شيت 2 
المطلوب هنا يقسم كل صنف حسب الحركات التي تمت عليها   ويكون في شيت باسم الصنف   مثل  شيت النتيجة موجود بالملف مرفق 
وبعد التقسيم الكروت   الصنف 
في شيت  المجمايع يكتب كل الاصناف مرة اخري  ويهطني الاصيد  الموجود بكل شيت  في خلية f2   , اسم الصنف C2
الكود موجود في الملف  يخص الاستاذ الغالي ياسر العربي 
اتمني التعديل  ومعرفة الخطأ  
 
من فضلك لا تقوم برفع الملف مضغوط , طالما حجمه صغير ... تــم تعديل رفع الملف
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  كرت-صنف-من-قاعدة-البيانات جديدة اكاديمية الصقر.xlsm   تحميل xlsm مرات التحميل :(15)
الحجم :(123.345) KB



أفضل إجابة مقدمة من hassona229 وهي:
تفضل اخى الكريم

استبدل هذا السطر
    Dim myArray, LR, X, str As String, B, N

بهذا السطر
    Dim myArray, LR, X, str As String, B, N, M

استبدل السطرين

 SERCH.Range("D5") = Sheet2.Cells(sh, 3)
SERCH.Range("E5") = Sheet2.Cells(sh, 4).Value

بالسطرين

SERCH.Range("E5") = Sheet2.Cells(sh, 3)
SERCH.Range("F5") = Sheet2.Cells(sh, 4).Value

واستبدل السطرين

b = b + myArray(X, 4)
n = n + myArray(X, 7)

بالسطور التالية

b = b + myArray(X, 5)
n = n + myArray(X, 7)
M = M + myArray(X, 9)

والسطرين

SERCH.Range("F2") = b - n
b = 0: n = 0

بالسطرين

SERCH.Range("F2") = b + M - n
b = 0: M = 0: n = 0
عرض الإجابة




07-11-2020 10:14 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تقسيم قاعدة البيانات الي كروت الصنف واظهار الرصيد مجمع قي شيت
وعليكم السلام ورحمه الله وبركاته
استبدل هذا السطر

For sh = 5 To 567

بهذا السطر

For sh = 5 To Sheet2.Cells(Rows.Count, 1).End(xlUp).Row


وقبل كلمه

Next sh

اضف هذه الاسطر

Dim WS As Worksheet, WSLR As Long
Set WS = ThisWorkbook.Worksheets("المجاميع")
WSLR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
WS.Range("A" & WSLR).Value = SERCH.Range("C2")
WS.Range("B" & WSLR).Value = SERCH.Range("F2")
Next sh
Application.ScreenUpdating = True

10-11-2020 12:56 مساء
مشاهدة مشاركة منفردة [2]
رمضان بكري
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 442
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 38
قوة السمعة : 1792
 offline 
look/images/icons/i1.gif تقسيم قاعدة البيانات الي كروت الصنف واظهار الرصيد مجمع قي شيت
اخي الفاضل  ...
جزاك الله خيرا  
لكني  لا افهم اخر  كود  
Dim WS As Worksheet, WSLR As Long
Set WS = ThisWorkbook.Worksheets("المجاميع")
WSLR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
WS.Range("A" & WSLR).Value = SERCH.Range("C2")
WS.Range("B" & WSLR).Value = SERCH.Range("F2")
Next sh
Application.ScreenUpdating = True
 

10-11-2020 03:50 مساء
مشاهدة مشاركة منفردة [3]
رمضان بكري
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 442
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 38
قوة السمعة : 1792
 offline 
look/images/icons/i1.gif تقسيم قاعدة البيانات الي كروت الصنف واظهار الرصيد مجمع قي شيت
الله واكبر عليك بجد 
ممكن ادخل مدرسة حضرتك استاذ حسونة 
اتمنا تشرح لينا من الاول  
vba 
 

10-11-2020 04:29 مساء
مشاهدة مشاركة منفردة [4]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تقسيم قاعدة البيانات الي كروت الصنف واظهار الرصيد مجمع قي شيت
الحمد لله الذي بنعمته تتم الصالحات

WSLR = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'اخر صف به بيانات في صفحة المجاميع
WS.Range("A" & WSLR).Value = SERCH.Range("C2") 'اسم الصنف في صفحة المجاميع
WS.Range("B" & WSLR).Value = SERCH.Range("F2") 'الرصيد في صفحة المجاميع

11-11-2020 02:00 مساء
مشاهدة مشاركة منفردة [5]
رمضان بكري
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 442
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 38
قوة السمعة : 1792
 offline 
look/images/icons/i1.gif تقسيم قاعدة البيانات الي كروت الصنف واظهار الرصيد مجمع قي شيت
استاذي الفاضل الكود يعمل جيد
لكن اريد اظهار  الرصيد بشكل صحيح في F2
 ان يجمع  رصيد اول المدة  E5 +العمود 5 +  العمود 9 -   العمود 7  
كل ده من الشيت 2 
يبقا كدا الكود يعمل كاملا 

 

11-11-2020 09:01 مساء
مشاهدة مشاركة منفردة [6]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تقسيم قاعدة البيانات الي كروت الصنف واظهار الرصيد مجمع قي شيت
تفضل اخى الكريم

استبدل هذا السطر
    Dim myArray, LR, X, str As String, B, N

بهذا السطر
    Dim myArray, LR, X, str As String, B, N, M

استبدل السطرين

 SERCH.Range("D5") = Sheet2.Cells(sh, 3)
SERCH.Range("E5") = Sheet2.Cells(sh, 4).Value

بالسطرين

SERCH.Range("E5") = Sheet2.Cells(sh, 3)
SERCH.Range("F5") = Sheet2.Cells(sh, 4).Value

واستبدل السطرين

b = b + myArray(X, 4)
n = n + myArray(X, 7)

بالسطور التالية

b = b + myArray(X, 5)
n = n + myArray(X, 7)
M = M + myArray(X, 9)

والسطرين

SERCH.Range("F2") = b - n
b = 0: n = 0

بالسطرين

SERCH.Range("F2") = b + M - n
b = 0: M = 0: n = 0


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
تقسيم ، قلعدة ، البيانات ، كروت ، الصتف ،


 










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

الساعة الآن 04:53 صباحا