جدول تسجيل يوميات الأستاذ -عنوان معدل-

[dodo222]

السلام عليكم

هل فيه معادلة بحث عندما اغير الشهر تختفي بيانات الشهر الاخر بدون الحدف 

وذلك لاحصاء عدد الغيابات في الجدول في نهاية السنة

وشكرا مسبقا 

présence.xlsx

[dodo222]

ارجو ارودكم يا اساتدة

[dodo222]

؟

[سليم حاصبيا]

جرب هذا الملف

تم انشاء 12 ورقة تنقل اليها البيانات قبل ان تغير الشّهر

Option Explicit
Sub Give_Data()
Dim st As String
st = Sheets("Sheet3").Range("b7").Value
Dim my_sh As Worksheet
Set my_sh = Sheets(st)
  With my_sh
 .Cells.ClearContents
 .Range("d2").Resize(34, 32).Value = _
   Sheets("Sheet3").Range("d2").Resize(34, 32).Value
 .Range("e4").Resize(, 31).NumberFormat = "ddd"
 .Range("e5").Resize(, 31).NumberFormat = "d"
 End With
End Sub
'==============================================
'janvier , février, mars, avril, mai, juin, juillet, aout, septembre, octobre, novmbre, decembre
Sub sheets_name()
Dim arr(1 To 12)
Dim i%
 arr(1) = "janvier": arr(2) = "février": arr(3) = "mars"
 arr(4) = "avril": arr(5) = "mai": arr(6) = "juin"
 arr(7) = "juillet": arr(8) = "aout": arr(9) = "septembre"
 arr(10) = "octobre": arr(11) = "novmbre": arr(12) = "decembre"
 For i = 2 To 13
 Sheets(i).Name = arr(i - 1)
 Next
End Sub

الملف مرفق

présence_salim.xlsm

[بن علية حاجي]

السلام عليكم

تفضل ما طلبته في الملف المرفق... بالمعادلات لا يمكن إخفاء أعمدة أو صفوف...

بن علية حاجي

présense.xlsm

[dodo222]

الله ينورك ويحفضك اخي بن علية حاجي

2 ساعات مضت, بن علية حاجي said:

السلام عليكم

تفضل ما طلبته في الملف المرفق... بالمعادلات لا يمكن إخفاء أعمدة أو صفوف...

بن علية حاجي

présense.xlsm

شكرا اخي سليم

2 ساعات مضت, بن علية حاجي said:

السلام عليكم

تفضل ما طلبته في الملف المرفق... بالمعادلات لا يمكن إخفاء أعمدة أو صفوف...

بن علية حاجي

présense.xlsm

الله يحفضك اخي بن علية حاجي بالضبط هذا ما ابحث عنة