عبد الفتاح كيرة

أنشئ استعلاما للجدول وفى أحد الحقول ضع الإجمالى : [الكميه]*[السعر]

جيد أخى عبد الله لكن لاحظ أن الرقم 90 غير ثابت أخى الحسامى كود ممتاز كالعادة من حضرتكم جزاك الله خيرا لكن بعد تجربة أحيانا يثبت الكود ولا يغير إلا قيمة الخلية a3 أعتقد يجب أن تمسح a3 بعد كل تغيير للخلية f1 مع الشكر

السلام عليكم أستاذ فضل هذا هو الكود Sub Serial() Dim mycl As Range Dim mycl2 As Range Set mycl = Range("a3") Select Case mycl Case Is = 0 For i = 1 To 20 Cells(i + 2, 1) = i Next i Case Is > 80 For i = 1 To 20 Cells(i + 2, 1) = i Next i Case Is = 1 For i = 1 To 20 Cells(i + 2, 1) = i + 20 Next i Case Is = 21 For i = 1 To 20 Cells(i + 2, 1) = i + 40 Next i Case Is = 41 For i = 1 To 20 Cells(i + 2, 1) = i + 60 Next i Case Is = 61 For i = 1 To 20 Cells(i + 2, 1) = i + 80 Next i End Select Set myrang = Range("a3:a22") For Each mycl2 In myrang If mycl2 > 90 Then mycl2 = Empty Next mycl2 Set mycl = Nothing Set myrang = Nothing End Sub و إليك المرفق التسلسل-kemas.rar

تفضل الكشف اليومي-kemas.rar

حاولت أفهم المطلوب لم أفلح المطلوب :- عند كتابة اى رقم فى f1 يتم كتابة هذا الرقم فى صورة متسلسلة (1-2-3-4-5-6-7-8-9- الخ حتى رقم 20 ثم يبدأ التسلسل مره اخرى من a3 برقم 21 (أى الزيادة بمقدار20للخلية a3)حتى يصل الى رقم 40 ثم يبدأ التسلسل مره اخرى من a3 برقم 41 حتى رقم 50 أى ان المسلسل لايزيد عن 20 رقم واذا كان الرقم الموجود فى f1 بيساوى صفر يكون تحت المسلسل خالى أى لايوجد أى مسلسل . والحل بالكود او بالمعادلات والف شكر لسيادتكم

ممكن تشرح لنا فكرة العمل

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

ممتاز جدا أخانا الفاضل بارك الله فيك

أعتقد أن كل طلاب المدرسة بجدول واحد أفضل على أن يكون هناك حقل للصف وحقل للفصل

و هذا تعديل للكود الذى أوردته مع الشكر لأستاذنا الحسامى Sub Macro4() ' ' Macro4 ماكرو by kemas Dim LastR As Long Dim mycl As Range Dim myrng As Range ' Application.ScreenUpdating = False Set myrng = Sheets("الشيت").Range("n1:n41") For Each mycl In myrng LastR = Sheets("منقول").Range("a" & Rows.Count).End(xlUp).Row + 1 If mycl = "منقول" Then mycl.EntireRow.Cut Sheets("منقول").Range("a" & LastR) End If Next mycl Sheets("منقول").Select Application.ScreenUpdating = True End Sub

جزاكم الله خيرا أستاذ معتصم محمد شرح جميل وفقك الله وإن شاء الله مزيدا من الإبداعات

كود Sub Macro4() ' ' Macro4 ماكرو by kemas ' Dim mycl As Range Dim myrng As Range ' Application.ScreenUpdating = False Range("newrng").ClearContents Range("I2").Select Sheets("الشيت").Range("A1:N41").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("منقول!Criteria"), CopyToRange:=Range("A7:N7"), _ Unique:=False ActiveWindow.LargeScroll ToRight:=1 Range("A7").Select Set myrng = Sheets("الشيت").Range("n1:n41") For Each mycl In myrng If mycl = "منقول" Then mycl.EntireRow.ClearContents End If Next mycl Sheets("منقول").Select Application.ScreenUpdating = True End Sub مرفق المنقول-kemas.rar

لعله بخير إن شاء الله

شكرا لك أستاذنا الفاضل بارك الله فى علمك أنت شايل المنتدى لوحدك - ماشاء الله

شكرا لك فهمت الآتى أننا حذفنا الجزء الثالث من الدالة و هو يفهم تلقائيا دالة count تعد الصفر باعتبار أن الصفر غير الفراغ يعنى تعد الأصفار

السلام عليكم أنا كنت طلبت تفسيرا لدالة iif بهذا الشكر أين الإجراء فى حالة تحقق الشرط و أين الإجراء فى حالة عدم تحقق الشرط أرجو التفسير أستاذ شهرانى أفادكم الله

كل عام أنتم بخير كل أعضاء و فريق هذا الموقع الطيبين

معك حتى تحقق المطلوب المهم

ممتاز الكود هذا لأستاذنا خبور لقد عملت على ملفك ببعض المعادلات واستخدمت دالة rankemas العشرة الاوائل-kemas.rar

اجعل =1 وليس صفرا لأنه لن يعد أصفارا

شكرا جزيلا لك أستاذ هانكوك

شكرا لأستاذنا خبور وإلى الغد إن شاء الله

عليكم السلام و رحمة الله و بركاته شكرا لك أخى هانكوك بارك الله فيك

أسماء أعمدة غير موجودة بالجدول

عمل عظيم بارك الله فيك