Jump to content
أوفيسنا

hassona229

01 New pie
  • Content Count

    18
  • Joined

  • Last visited

Community Reputation

6 Neutral

About hassona229

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    accountant
  • Location
    مصر

Recent Profile Visitors

213 profile views
  1. وعليكم السلام ورحمه الله وبركاته عدل حرف ال "E:\"الى حرف الفلاشة لديك Sub File_Save_As() ActiveWorkbook.SaveAs Filename:="E:\" & "new", FileFormat:=52 End Sub
  2. بعد اذن الاساتذه عدل هذا الجزء LR = Range("G" & Rows.Count).End(3).Row الي LR = Range("E" & Rows.Count).End(3).Row
  3. وعليكم السلام ورحمه الله وبركاته يمكنك عمل خليه بالتاريخ الصحيح وتستخدمها للمخرجات اما بالنسبه للويندوز نفسه تحتاج ان تدخل بمستخدم له صلاحيه لتغيير التاريخ
  4. عدل File_name = "Filename" الى File_name = SH.Range("E7").Value
  5. وعليكم السلام ورحمه الله وبركاته تفضل بالنسبة لطلبك الاول Sub Export_PDF() Dim SH As Worksheet, R As Range, File_name As String Set SH = ThisWorkbook.Worksheets("Sheet1") File_name = "Filename" Set R = SH.Range("A1:H20") R.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & File_name End Sub
  6. الكود المرفق في ملفك ليس به اي مشاكل اخى الكريم
  7. وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Private Sub Workbook_Open() #If VBA7 Then Application.WindowState = xlMaximized #Else Application.Quit #End If End Sub
  8. وعليكم السلام ورحمة الله وبركاته اخى الكريم كيف غريب الملف هذه اكواد الامتدات الخاصه بالاكسل اختر ما تشاء منها .xlsx = 51 .xlsm = 52 xlsb = 50 .xls = 56
  9. وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Sub File_Save_As() ThisWorkbook.SaveAs Filename:="e:\" & Format(Date, "ddd") & "-" & Format(Date, "dd-mm-yyyy") & "new", FileFormat:=52 End Sub
  10. السلام عليكم ورحمه الله وبركاته ارجو المساعدة في ملف تجميعى لبيانات كشف الحساب مرفق ملف به صفحتان صفحة كشف حساب تفصيلى الكميه والسعر وموجود بها الشيكات والنقديه المدفوعة كل بيان بتاريخة في صفحة الاجمالى(total) بها التواريخ والبيانات مجمعة كل بيان بتاريخة اريد ان اجعل الشيكات المرتجعه تكون في بيان منفصل عن مبلغ الخامات كما مرفق في الملف وجزاكم الله خيرا الاحبار.xls
  11. أخى الفاضل جزاكم الله خيرا على مجهودك جعله الله في ميزان حسناتك يوم القيامة المعادلة الخاصة بصافى الراتب A36*e36 )/c37+d36) تعطى العامل لو اشتغل ساعه اضافى بالمعادله تعطية ساعتين المفروض المعادلة تكون بهذا الشكل A36*e36 )/c37) هل كلامى صواب ام خطأ مرفق ملف 05.zip
  12. أخى الفاضل جزاكم الله خيرا على مجهودك جعله الله في ميزان حسناتك يوم القيامة الملف مرفق النهائى بعد تعديل بسيط ليستفيد منه الأخوة 4.zip
  13. أخى الفاضل من غير كتابه الأرقام نجد أن هناك مبلغ سوف يأخذه العامل (100 ) حتى لو لم ياتى إلى العمل هنا المشكله
  14. لم تحل المشكلة العامل لم يعمل وصافى المرتب 1000 العامل مطلوب منه عدد ساعات في الشهر 8 في عدد ايام الشهر بدون الجمعه ثم نطرح ما عمله العامل في الشهر من ساعات من الساعات المطلوبة فما ذاد يكون ساعات اضافية
  15. يوجد مشكلة في حساب ساعه الاضافى على حسب ايام الشهر ما عدا يوم الجمعه 1.zip
×
×
  • Create New...