Ali Mohamed Ali

وعليكم السلام - تفضل الم تطلع على الملف تم تنفيذ المطلوب بهذا الكود Sub arrange() Sheet1.Activate Columns("A:A").Select Selection.Copy Sheet2.Activate Columns("b:b").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub ترتيب بيانات الصفوف حسب القائمة الأساسية.xlsm

يمكنك استخدام الكود هكذا فى حدث ThisWorkBook Private Sub Workbook_Open() ActiveWorkbook.Sheets(1).Select Range("a1").Activate Dim aa As Byte If IsNull(Range("b65535").Value) Then Range("b65535").Value = 1 End If aa = Range("b65535").Value If aa = 5 Then MsgBox "Used for 5 times , no more use is allowed !!" Application.ActiveWorkbook.Close Exit Sub Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times " End If Range("b65535").Value = aa + 1 Application.ActiveWorkbook.Save If Date >= DateValue("26/6/2021") Or Sheets("Sheet1").Range("S1") >= Date Then Sheets("Sheet1").Range("S1") = Date MsgBox " expire انتهت صلاحية الملف " ThisWorkbook.Save Application.Quit End If End Sub

فقط عليك استخدام هذه المعادلة =MIN(A2:B2) تواريخ1.xlsx

وعليكم السلام -تفضل حافز 2العملاء.xlsx

الأمر بسيط جدا فقط عليك اضافة أخرى End If

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

وعليكم السلام -وبما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة فيتغير سهم القائمة المنسدلة من اليسار الى اليمين ... عندما تقوم بتغيير اتجاة الكتابة بالصفحة من اليسار الى اليمين اى عكس الموضح بالصورة التى قمت انت برفعها

أحسنت بارك الله فيك وزادك الله من فضله

السلام عليكم بعد اذن الأساتذة ,يمكنك تجربة هذا استاذى الكريم Uploading to Google drive using VBA?

وعليكم السلام-تم عمل المطلوب فى كشف الحساب بمعادلات المصفوفة تكاليف محل1.xlsx

بارك الله فيك , عمل رائع جزاك الله خير الثواب

أحسنت استاذ ملاك عمل رائع بارك الله فيك

وعليكم السلام عليك فقط بضبط معادلة VLOOKUP فتاريخ الدفعة الأولى 11 وليس 10 , وبناءا عليه يجب عليك مراجعة باقى المعادلات =IF(D12<1,"",VLOOKUP($G$7,ادخال!$A$5:$AX$1005,11,FALSE)) المالية2020.xlsm

بارك الله فيك وزادك الله من فضله

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

وبما انك لم تقم برفع ملف فعليك بتحميل هذا البرنامج من النت وسيجلب لك كلمة السر ان شاء الله تفضل Passware Kit Enterprise Passware Kit Forensic 13.5

تفضل طريقة نشر ملفات pdf او word على صفحتك في الفيسبوك

بارك الله فيك استاذ صالح وزادك الله من فضله

وعليكم السلام-وطالما انك لم تقم برفع ملف-فكان عليك استخدام خاصية البحث قبل رفع المشاركة فهناك العديد من الموضوعات التى تخص طلبك ومنها : ربط يوزر فورم بخلية في الشيت اختفاء ملف الاكسل عن عمل كود لاظهار اليوزرفورم

وعليكم السلام-اهلا بك فى المنتدى , يمكنك استخدام هذه المعادلة =IF(SUM(C5:D5)-SUM(1450,M5,O5,P5,S5,T5,U5,V5,W5,X5,Y5,Z5,AA5,AB5,AC5,AD5,AE5)<5000,7.5*(SUM(C5:D5)-SUM(1450,M5,O5,P5,S5,T5,U5,V5,W5,X5,Y5,Z5,AA5,AB5,AC5,AD5,AE5))/1000,8*(SUM(C5:D5)-SUM(1450,M5,O5,P5,S5,T5,U5,V5,W5,X5,Y5,Z5,AA5,AB5,AC5,AD5,AE5))/1000) 1مرتب.xlsx

تفضل على الرغم انك لم تقم برفع ملف مدعوم بشرح كافى عن المطلوب -فمن قوانين المنتدى لابد من رفع مثال لما تريد دائما فاتورة مبيعات وهذا ايضا فيديو شرح فاتورة الشراء والبيع وكيفية نقل الرقم من النموذج الى الجدول اكسس Access وهذا برنامج جاهز ايضا سوف يفيدك برنامج فواتير الشراء والبيع.rar

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

تفضل -تصبح المعادلة هكذا =IFERROR(IF(ROWS(A$1:A1)>COUNTIF(E$4:E$100,"<>"""),"",INDEX($D$4:$D$100,SMALL(IF(E$4:E$100<>"",IF(E$4:E$100<>"",ROW(E$4:E$100)-ROW(E$4)+1)),ROWS(A$1:A1)))),"") Fathi2.xlsx

تفضل Sub exit_end() For Each w In Application.Workbooks w.Save Next w Application.Quit End Sub وهذا كود أخر ايضا يلبى طلبك Sub testSave() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit End Sub

تفضل هذا هو الكود Sub clear() kk = MsgBox("هل تريد مسح البيانات ؟", vbYesNo) If kk = vbYes Then Range("b11:C300").ClearContents Range("J11:k300").ClearContents End If End Sub برنامج التنسيق تعديل14.xlsm