Ali Mohamed Ali

أنا شغال للأسف على 2007 ولا يوجد لدى 2003

تفضل اخى الكريم هذا بالكود examp.xlsm

جرب ذلك من خلال هذه الخطوات New ورقة عمل Microsoft Excel.xlsx

جزاك الله كل خير أستاذ سليم كود رائع بارك الله فيك وهذا كود اخر لإثراء الموضوع Sub MyPrint2() ActiveSheet.Unprotect Password:="123" Application.ScreenUpdating = False With Sheets("Print") With .UsedRange For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With Application.ScreenUpdating = True ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

تفضل اخى الكريم tableau.xlsm

جرب هذا حساب عمولة المندوب.xlsx

عليك اخى الكريم محمد بتصميم ورفع شكل الملف الذى تريده

أستاذى الكريم اسم المستخدم وكلمة السر صحيحان ولكن عليك بكتابة اسم المستخدم كما هو على ان يكون أول حرف ,حرف كبير أى كالتالى : Reem وكلمة السر : 232629

تفضل اخى الكريم حساب عمولة المندوب2.xlsx

تفضل اخى حساب عمولة المندوب.xlsx

تفضل اخى الكريم اليك الحل بمعادلتين Sumif & Sumproduct المصنف1.xlsx

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

تفضل هذا اخى الكريم -1التقرير.xlsm

يجب عليك عمل كوبى لهذا الكود فى كل صفحة تريد تغيير الخلايا فيها

وهذه طريقة اخرى بوضع هذا الكود فى موديول جديد Public Function getDistance(latitude1, longitude1, latitude2, longitude2) earth_radius = 6371 Pi = 3.14159265 deg2rad = Pi / 180 dLat = deg2rad * (latitude2 - latitude1) dLon = deg2rad * (longitude2 - longitude1) a = Sin(dLat / 2) * Sin(dLat / 2) + Cos(deg2rad * latitude1) * Cos(deg2rad * latitude2) * Sin(dLon / 2) * Sin(dLon / 2) c = 2 * WorksheetFunction.Asin(Sqr(a)) d = earth_radius * c getDistance = d End Function وبعد ذلك ضع هذه المعادلة فى الخلية E3 واسحب للأسفل =GETDISTANCE(A3,B3,C3,D3)

وعليكم السلام جرب هذه المعادلة =distVincenty(SignIt(A3), SignIt(B3), SignIt(C3), SignIt(D3))

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

أهلا بك اخ كريم فى المنتدى تفضل لك ما طلبت sum k9 numbers.xls

بارك الله فيك استاذنا الكريم وجزاك الله كل خير حقا كود رائع جعله الله فى ميزان حسناتك

تفضل -2شغل المساحات.xlsx

وعليكم السلام استاذ هشام-اهلا بك اخ كريم فى المنتدى تفضل هذ الكود به طلبك -يعمل على حماية الخلايا بعد الحفظ Public Sub Ziad_Prodc() Dim Sh As Worksheet Dim Rng As Range Ch_P On Error Resume Next With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False For Each Sh In ThisWorkbook.Worksheets If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True With Sh.Cells .SpecialCells(2).Locked = True .SpecialCells(-4123).Locked = True End With If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next .EnableEvents = True .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Sub Private Sub Ch_P() Dim Sn As Worksheet For Each Sn In ThisWorkbook.Worksheets If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123" Next End Sub

اخى الكريم هل المعادلة الموجودة فى ملفك المرسلة لك من قبل لم تحل طلبك وسؤالك ؟

جرب هذا بالمعادلات -1التقرير.xlsm

وعليكم السلام اهلا بك اخ كريم فى المنتدى تفضل Monthly Time Sheet1.xlsx

تفضل لك ما طلبت -1التقرير.xlsm