سليم حاصبيا

فمت بهذ العمل بناءً لطلبك في أول مشاركة 2- امكانية الترحيل لهذه الخلايا ( ارقام القوائم ) بالمعادلات

انسخ هذه المعادلة الى الخلية h8 ثم اسحب يسارا و نزولاً =IF($G8<>H$7,"",COUNTIF($B$2:$B$25,$G8)) مثال _لجدول التقاطعات salim.zip

انسخ هذه المعادلة الى الخلية G8 ثم اسحب يسارا و نزولاً =IF($G8<>H$7,"",COUNTIF($B$2:$B$25,$G8))

جرب هذا الملف names_by_letters.zip

هذه المرة لمحبي الرزنامات رزنامة سنوية Annual_Calendar.zip

هذا حل بواسطة المعادلات (معادلة واحدة لكل العامود) إيجاد الارقام المفقودة salim.zip

تم العمل كما تريد انظر بنفسك الى الصفحة المذكورة في المشاركة الاخيرة

تعديل على الكود ليظهر كل مجموعة بلون واحد Sub cond() Dim lr As Integer lr = Cells(Rows.Count, 1).End(3).Row Range("a1:c" & lr).Interior.ColorIndex = xlNo k = 3 For i = 1 To lr If Range("a" & i).Interior.ColorIndex <> xlNo Then GoTo 1 For j = i + 1 To lr If Range("a" & i) & Range("b" & i) & Range("c" & i) = Range("a" & j) & Range("b" & j) & Range("c" & j) Then Range("a" & i).Resize(1, 3).Interior.ColorIndex = k Range("a" & j).Resize(1, 3).Interior.ColorIndex = k End If Next 1: k = k + 1 Next End Sub

استاذ عبد العزيز انت وضعت هذه المعادلة في الخلية H3 و هي تنفذ فقط في هذه الخلية (رغم انه يوجد دمج للخلايا) لو جربت ان تزيل الدمج ستلاحظ الفرق بينما المعادلة الاخرى تضع في كل عامود حرفاً من حروف النص( مع احتساب الفراغات)

جرب هذه المعادلة في الخلية H3 واسحب يميناً حتى الخلية V3 و نزولاً =MID($B3,COLUMNS($H$3:H3),1)

تفضل الحل و زبادة حبتين A salim.zip

تم معالجة الأمر من جديد كشف حساب salim 2.zip

جرب هذا الكود Sub cond() Dim lr As Integer lr = Cells(Rows.Count, 1).End(3).Row Range("a8:c" & lr).Interior.ColorIndex = xlNo For i = 8 To lr For j = i + 1 To lr On Error Resume Next If Range("a" & i) & Range("b" & i) & Range("c" & i) = Range("a" & j) & Range("b" & j) & Range("c" & j) Then Range("a" & i).Resize(1, 3).Interior.ColorIndex = i Range("a" & j).Resize(1, 3).Interior.ColorIndex = i End If Next Next End Sub

تم معالجة الامر كود لترحيل ارقام غير مكرره 2 salim.zip

تم معالجة الأمر كشف حساب salim 1.zip

ربما يكون هذا ما تريد تنسيق شرطي للصف salim.zip

اكتب هذه المعادلة في e2 ,واسحب نزولاً =IF(OR(C2=1,B2=1),MAX(B2:C2),B2+C2)

اخي الكريم هو دا اللي بيحصل بالضبط حاول ان تعدل شيئاَ او تضيف الى البيانات في ورقة الحركة و سترى انها انتقلت مباشرة الى ورقة كشف الحساب

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

اكتب في الخلية C15 المعادلة الاولى ثم في الخاية C16 المعادلة الثانية و اسحب نزولاُ first formula =DATE($E$10,1,1) secconde formula =IF(YEAR($C15)<>$E$10,"",$C15+1)

اليك الحل درجات الصف الثاني salim.zip

جرب هذا الملف كشف حساب salim.zip

جرب هذا الملف Classeur1 salim.zip

بعد أذن اخي الغالي ياسر و اثراءً للموضوع اسمحوا لي بأن اتدخل بهذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Not Intersect(Target, Range("b1:i15")) Is Nothing And Target.Count = 1 Then all_rows GoTo 1 End If 1: Application.ScreenUpdating = True End Sub Sub all_rows() Dim My_first_nb As Integer Dim My_sec_nb As Integer Dim Myrg As Range Set Myrg = Range("b1:i15") My_first_nb = 1 My_sec_nb = 2 For Each cel In Myrg If cel.Value = My_first_nb Then Cells(cel.Row, 2).Resize(1, 8) = 50 ElseIf cel.Value = My_sec_nb Then Cells(cel.Row, 2).Resize(1, 8) = 100 End If Next End Sub

تفضل يا صديقي بالمغادلات انظر الى العامود G كود لترحيل ارقام غير مكرره salim.zip