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

نفس المعادلة أخ ياسر =SUMPRODUCT(--(G5:G8=J5)*(F5:F8=0)*(E5:E8)) على فكرة لى عندك طلب أن تعدل توقيعك إلى كن ذا همة بدلا من كن ذو همة يصير أصح و أجمل

طبعا يمكن إن شاء الله لكن المشكلة أن الجدول الأصلى غير منظم خاصة خانة السنة

مشكور أخى الخالدى بارك الله فيك

الفضل لكم بعد الله أخى الخالدى

عليكم السلام و رحمة الله أشكرك أستاذى على ردك الطيب بارك الله فيك

ترحيل بالكود كود الناجحين Sub Macro1() ' ' Macro1 ãÇßÑæ ' ' Sheets("äÇÌÍ").Select Range("c5:k16").ClearContents Range("b5").Select Sheets("ßÔÝ ÇáÑÕÏ").Select Range("L6").Select For i = 1 To 20 If Selection.Value = "äÇÌÍ" Then ActiveCell.Offset(0, -10).Range("A1:K1").Select Selection.Copy Sheets("äÇÌÍ").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveCell.Offset(1, 0).Select Sheets("ßÔÝ ÇáÑÕÏ").Select ActiveCell.Offset(1, 10).Select Application.CutCopyMode = False Else ActiveCell.Offset(1, 0).Select End If Next End Sub المرفق ترحيل الناجح والدور الثانيkemas.zip

هذا نقل بالكود امسح البيانات واضغط الزر Sub Macro3() ' ' ' Columns("G:G").ColumnWidth = 14 Columns("F:F").ColumnWidth = 12.75 Range("A3:A9").Select Selection.Copy Range("F3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("F4:F9").Select Application.CutCopyMode = False Selection.Copy Range("F10").Select ActiveSheet.Paste Range("F16").Select ActiveSheet.Paste Columns("F:F").EntireColumn.AutoFit Range("G3").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "year" Range("B3").Select Selection.Copy Range("G4").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.AutoFill Destination:=Range("G4:G9"), Type:=xlFillDefault Range("G4:G9").Select Range("C3").Select Selection.Copy Range("G10").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.AutoFill Destination:=Range("G10:G15"), Type:=xlFillDefault Range("G10:G15").Select Range("G16").Select ActiveCell.FormulaR1C1 = "1979" Range("G16").Select Selection.AutoFill Destination:=Range("G16:G21"), Type:=xlFillDefault Range("G16:G21").Select Range("B4:B9").Select Selection.Copy Range("H4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C4:C9").Select Application.CutCopyMode = False Selection.Copy Range("H10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("D4:D9").Select Application.CutCopyMode = False Selection.Copy Range("H16").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("F3").Select Application.CutCopyMode = False End Sub المرفقات Bookemas2.zip

شكرا جدا لك أخى الشرابى الله يبارك فيك

اجعل علامة الدولار قبل رمز حرف العمود فقط هكذا $R7 لعمل ذلك حدد $R7 و اضغط f4 مرتين

أشكرك أبا سارة بارك الله فيك

شكرا لكم إخوتى الكرام بارك الله فيكم

الجزء الأول http://www.youtube.com/user/MsKemas#p/a/u/0/0WmiTxl2QsE الثانى http://www.youtube.com/user/MsKemas#p/a/u/1/yMV8bnfpUuw و هذا هو الملف المستخدم بالشرح شرح استخراج ت الميلاد من القومى فديو.zip

أشكركم شكرا جزيلا بارك الله فيكم أخى office 2003 أخى أبو العقاب

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

x8. صدقت متعوب عليه فعلا شكرا لردك

الله يبارك فيك أشكرك على كلامك الطيب هذا و تشجيعك و أتشرف بمزاملتك فى مجال العمل

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

شكرا أستاذ هشام ما معنى فى نفس هذا الموضوع ؟

شكرا لك بارك الله فيك

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

أكملت المشاركة هنا فديو 3 أجزاء http://www.officena.net/ib/index.php?showtopic=33307&st=0&gopid=172698&#entry172698

الثالث

الجزء الثانى

الفديو الجزء الأول : انتظروا الجزء الثانى الملف المستخدم بالشرح شرح select case.zip