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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





التحقق من بيانات في عمودين قبل الاضافة

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



14-02-2020 01:07 مساء
solnaif
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 21-01-2020
رقم العضوية : 17736
المشاركات : 8
الجنس : ذكر
قوة السمعة : 18
الاعجاب : 3
 offline 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم ورحمة الله وبركاته 
تكرماً لدي استفسار عندي جدول فيه مجموعة من البيانات وهي 
رقم العميل (A)  تاريخ اليوم (َB)  واسم العميل (C) والبضاعة التي تم شراؤها (D)  والذي أريده أن أتحقق قبل إضافة أي بيانات بأن العميل لم تضاف بياناته في نفس اليوم وللتوضيح  أكثر لا أريد أن أسجل العميل مرتين في نفس اليوم - واعتقد يكون ذلك بالتحقق من تاريخ اليوم ورقم العميل انا عملت الكود التالي ولكن لم يجدي نفعاً فهل من الممكن مساعدتي في ذلك وذلك من خلال vba

Code = txtCode.Value
DateDay= txtDate.Value
If Application.WorksheetFunction.CountIfs(Worksheets("Sheet1").Range("A2:A100"), "<>" & (Code), Worksheets("Sheet1").Range("B2:B100"), "<>" & (DateDay)) Then
 Range("A" & Lastrow).Value = txtCode.Value
Range("B" & Lastrow).Value = txtDate
Range("C" & Lastrow).Value = txtName
Range("D" & Lastrow).Value = txtG.Value
  Else
 MsgBox ("تم اضافة البيانات لهذا اليوم")
 End If
 
 
  العملاء.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(24.239) KB





14-02-2020 02:03 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif التحقق من بيانات في عمودين قبل الاضافة
وعليكم السلام أخي الكريم
يرجى إرفاق ملف لتجد مساعدة أفضل من إخوانك بالمنتدى

أثارت هذه المشاركة إعجاب: ali mohamed ali، solnaif،



14-02-2020 02:46 مساء
مشاهدة مشاركة منفردة [2]
solnaif
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 21-01-2020
رقم العضوية : 17736
المشاركات : 8
الجنس : ذكر
قوة السمعة : 18
الاعجاب : 3
 offline 
look/images/icons/i1.gif التحقق من بيانات في عمودين قبل الاضافة
ابشر بعزك الله يسعدك

أثارت هذه المشاركة إعجاب: YasserKhalil،



14-02-2020 09:56 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif التحقق من بيانات في عمودين قبل الاضافة
جرب تغيير السطر التالي
If Application.WorksheetFunction.CountIfs(Worksheets("Sheet1").Range("B2:B100"), Code, Worksheets("Sheet1").Range("D2:D100"), DateDay) = 0 Then

أثارت هذه المشاركة إعجاب: ali mohamed ali،



15-02-2020 04:51 مساء
مشاهدة مشاركة منفردة [4]
solnaif
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 21-01-2020
رقم العضوية : 17736
المشاركات : 8
الجنس : ذكر
قوة السمعة : 18
الاعجاب : 3
 offline 
look/images/icons/i1.gif التحقق من بيانات في عمودين قبل الاضافة
السلام عليكم ورحمة الله وبركاته
الله يجزاكم خير 
ولكن الكود لم يعمل بالشكل الصحيح
فنرجو المساعدة وجزاكم الله كل خير




15-02-2020 05:54 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif التحقق من بيانات في عمودين قبل الاضافة
وعليكم السلام
جربت الكود بعد هذا التعديل وعمل معي بشكل صحيح فقط إذا لم توجد بيانات لهذا العميل في هذا التاريخ
ربما لو ذكرت مثال لما تحاول القيام به بالضبط يكون أفضل لنقوم بمحاكاة المشكلة لدينا

أثارت هذه المشاركة إعجاب: solnaif،



15-02-2020 06:32 مساء
مشاهدة مشاركة منفردة [6]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 492
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3816
الاعجاب : 65
 Online 
look/images/icons/i1.gif التحقق من بيانات في عمودين قبل الاضافة
ممكن استعمال الماكرو الاول Compair_rows لتحديد التكرارات
والماكرو الثاني del_Duplicates لحذفها
 بذلك يمكنك العمل كيفما تشاء و في النهاية تحدد المكرر وتقوم بحذفه 

Option Explicit
Sub Compair_rows()
'First macro
With Sheets("sheet1")
       .Range("A1").CurrentRegion.Offset(1).Interior.ColorIndex = xlNone
       .Range("G:G").ClearContents
  Dim i%, j%, arr1, arr2, k%, m%, Ro%
  Ro = .Cells(Rows.Count, 2).End(3).Row
      For i = 2 To Ro
          arr1 = Application.Transpose(.Cells(i, 2).Resize(, 4).Value)
          arr1 = Application.Transpose(arr1)
          For j = i + 1 To Ro
              arr2 = Application.Transpose(.Cells(j, 2).Resize(, 4).Value)
              arr2 = Application.Transpose(arr2)
                  For k = LBound(arr1) To UBound(arr2)
                    If arr1(k) <> arr2(k) Then
                       m = 0
                       Exit For
                    Else
                      m = m + 1
                    End If
                  Next k
              If m = 4 Then
              .Cells(j, 7) = "Duplicate with : " & Cells(i, 2).Resize(, 4).Address
              .Cells(j, 1).Resize(, 5).Interior.ColorIndex = 6
              End If
          Next j
          m = 0
      Next i
  End With
End Sub
'+++++++++++++++++++++++++++++++++++
'Seconde Macro
Sub del_Duplicates()
 Sheets("sheet1").Range("G:G").SpecialCells(2).EntireRow.Delete
End Sub


 الملف مرفق للمعاينة


 
 
 
  Castomers.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(33.458) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، solnaif، YasserKhalil،



15-02-2020 10:01 مساء
مشاهدة مشاركة منفردة [7]
solnaif
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 21-01-2020
رقم العضوية : 17736
المشاركات : 8
الجنس : ذكر
قوة السمعة : 18
الاعجاب : 3
 offline 
look/images/icons/i1.gif التحقق من بيانات في عمودين قبل الاضافة
الله يسعدكم جميعاً مئة بالمئة ولله الحمد

أثارت هذه المشاركة إعجاب: YasserKhalil،



15-02-2020 11:02 مساء
مشاهدة مشاركة منفردة [8]
solnaif
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 21-01-2020
رقم العضوية : 17736
المشاركات : 8
الجنس : ذكر
قوة السمعة : 18
الاعجاب : 3
 offline 
look/images/icons/i1.gif التحقق من بيانات في عمودين قبل الاضافة
المشاركة الأصلية كتبت بواسطة: YasserKhalil
وعليكم السلام
جربت الكود بعد هذا التعديل وعمل معي بشكل صحيح فقط إذا لم توجد بيانات لهذا العميل في هذا التاريخ
ربما لو ذكرت مثال لما تحاول القيام به بالضبط يكون أفضل لنقوم بمحاكاة المشكلة لدينا


حفظك الله الكود اللي أرسلته اشتغل معاي زي الحلاوة - كانت المشكلة عندي أثناء النسخ في خطأ بسيط وانتبهت له
( واشتغل ولله الحمد )
بيّض الله وجهك ورزقك من حيث لا تحتسب

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure YasserKhalil
5 943 YasserKhalil
استدعاء بيانات الطلاب لفصل معين لمادة معينة (درس للمستوى المتقدم) YasserKhalil
19 2397 YasserKhalil
تعديل على كود الترحيل واستدعاء بيانات من شيت لاخر وعمل قائمة منسدله ابو طيبه
14 508 ابو طيبه
جلب تقرير بيانات الطلاب الذين سددوا المصروفات الدراسية أبو سجده
6 313 YasserKhalil
تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل المبتدأ
7 134 المبتدأ

الكلمات الدلالية
التحقق ، بيانات ، عمودين ، الاضافة ،


 







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

الساعة الآن 02:06 مساء

أعلن هنا
أعلن هنا
أعلن هنا