احمد 505 قام بنشر سبتمبر 11, 2015 مشاركة قام بنشر سبتمبر 11, 2015 السلام عليكم ورحمة الله وبركاته أخواني وأخواتي الأعزاء أنا عندي ورقة أكسل وداخلها حوالي 20 ورقة ( تبويب ) حاط الاولى هي قاعدة البيانات وفيها معادلات كثيرة جداً + فيها كود وباقي الأوراق من 2 الى 20 جميعها مرتبطة بالورقة الأولى يعني ( بتسحب المعلومات من الورقة الاولى / قاعدة البيانات ) المطلوب عندما احاول اضع حدود لخليه او أحدد اعمده او صفوف بحدود معينه اعمل حفظ ثم اسكر الورقة ثم اعيد فتحها المشكله هنا ( المعلومات موجودة ولكن الحدود تختفي ) هل لكثرة الاوراق وارتباطها علاقة ام ان الكود والمعادلات هي السبب طبعاً لم تظهر المشكله الا بعد ان وضعت الكود ارجوا الافادة ..... ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
أسامة البراوى قام بنشر سبتمبر 12, 2015 مشاركة قام بنشر سبتمبر 12, 2015 السلام عليكم هل تستعمل pivot tables فى جلب البيانات رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 13, 2015 الكاتب مشاركة قام بنشر سبتمبر 13, 2015 (معدل) وعليكم السلام ورحمة الله وبركاته هذا الكود الاول Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 91 Then If Target.Column = 35 Then Sheets("ELS").Cells(Target.Row - 86, "P").Value = Sheets("ELS").Cells(Target.Row - 86, "N").Value Sheets("ELS").Cells(Target.Row - 86, "N").Value = Sheets("ELS").Cells(Target.Row - 86, "L").Value Sheets("ELS").Cells(Target.Row - 86, "L").Value = Sheets("ELS").Cells(Target.Row - 86, "J").Value Sheets("ELS").Cells(Target.Row - 86, "J").Value = Sheets("ELS").Cells(Target.Row - 86, "H").Value Sheets("ELS").Cells(Target.Row - 86, "H").Value = Target.Value End If If Target.Column = 36 Then Sheets("ELS").Cells(Target.Row - 86, "Q").Value = Sheets("ELS").Cells(Target.Row - 86, "O").Value Sheets("ELS").Cells(Target.Row - 86, "O").Value = Sheets("ELS").Cells(Target.Row - 86, "M").Value Sheets("ELS").Cells(Target.Row - 86, "M").Value = Sheets("ELS").Cells(Target.Row - 86, "K").Value Sheets("ELS").Cells(Target.Row - 86, "K").Value = Sheets("ELS").Cells(Target.Row - 86, "I").Value Sheets("ELS").Cells(Target.Row - 86, "I").Value = Target.Value End If End If End Sub وهذا الكود الثاني Function ContDate(MyDate1 As Date, MyDate2 As Date, YMD As String) D1 = Day(MyDate1): D2 = Day(MyDate2) M1 = Month(MyDate1): M2 = Month(MyDate2) Y1 = Year(MyDate1): Y2 = Year(MyDate2) If D1 > D2 Then Dr = D2 + 30 - D1: M = -1 Else Dr = D2 - D1 If M1 > M2 Then Mr = M2 + M + 12 - M1: Y = -1 Else Mr = M2 - M1 Yr = Y2 - Y1 + Y If YMD = "D" Or YMD = "d" Then ContDate = Dr If YMD = "M" Or YMD = "m" Then ContDate = Mr If YMD = "Y" Or YMD = "y" Then ContDate = Yr End Function وهذي المعادلات IFERROR(MID(YEAR IF(ISERR IFERROR(VLOOKUP وغيرها من المعادلات جميعها في قاعدة بيانات واحدة وجميعها اخذتها من أسئلتي في هذا الصرح الشامخ وبمعونة الله ثم الاساتذة الكرام بهذا المنتدى المميز تم تعديل سبتمبر 13, 2015 بواسطه احمد 505 1 رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 15, 2015 الكاتب مشاركة قام بنشر سبتمبر 15, 2015 اخي الكريم ارسلت لك الكودين ونوع المعادلات التي تحتويها ورقة الاكسل فهل لها دخل بعدم حفظ الحدود اما عن سؤالك فلم افهم المقصود منه وما دام لم افهم ما تقصد . فأكيد اني لا اعمل عليه انتظر الرد اشكرك رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 24, 2015 الكاتب مشاركة قام بنشر سبتمبر 24, 2015 السلام عليكم ورحمة الهه وبركاته كل عام وانتم بخير وتقبل الله مني ومنكم صالح الاعمال ولازلت انتظر اجابه والله اني في حيرة من امري رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 24, 2015 مشاركة قام بنشر سبتمبر 24, 2015 ما هو اصدار اكسل الذي تستعمله رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 24, 2015 الكاتب مشاركة قام بنشر سبتمبر 24, 2015 اهلين اخي الكريم سليم حصبيا كل عام وانت بفضل الله طيبٌ معافا انا استخدم 2007 عربي رابط هذا التعليق شارك 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.