نسورالجو قام بنشر سبتمبر 29, 2021 مشاركة قام بنشر سبتمبر 29, 2021 السلام عليكم المطلوب يعني لو الصنف 1 تكرر مع التاريخ 01-07-2021 يمنع الترحيل لو اتغير التاريخ او الصنف يرحل wor.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر سبتمبر 30, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 30, 2021 يمكنك استعمال هذا الكود في حدث الضغط على زر إدخال Private Sub CommandButton1_Click() Sheets(1).Activate lrow = Range("e" & Rows.Count).End(xlUp).Row + 1 If WorksheetFunction.CountIfs(Range("D2:D" & lrow), ComboBox1.Value, Range("E2:E" & lrow), ComboBox2.Value) = 0 Then Range("d" & lrow).Value = ComboBox1.Value Range("E" & lrow).Value = ComboBox2.Value ComboBox1.Value = "" ComboBox2.Value = "" Else MsgBox "إدخال مكرر" End If End Sub بالتوفيق 3 رابط هذا التعليق شارك More sharing options...
نسورالجو قام بنشر سبتمبر 30, 2021 الكاتب مشاركة قام بنشر سبتمبر 30, 2021 جزاك الله خيرا استاذ محمد 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 30, 2021 مشاركة قام بنشر سبتمبر 30, 2021 جميعا بإذن الله 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.