هل يمكن عمل باك اب للملف

[saad abed]

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

ويفرغ الملف من البيانات فهل من الممكن ان تساعدونى

[konafa4000]

هل يمكنك ان ترفق الملف ؟؟؟

[konafa4000]

هل يمكنك ان ترفق الملف ؟؟؟

[konafa4000]

اخى العزيز اذا كان الملف ما سيتم عليه خلال شهر لن يتاثر به فى الشهر التالى فانه يكنك ان حفظ الملف وهو فارغ من البيانات على هيئة tampelt وبالتالى يمكنك كل أول شهر فتح الملف الـ Tamplet هذا واخذ منه نسخة xls لتدخل بيانات الشهر الحالى وتسجل كل بيانات الشهرعلى الملف ذو الامتداد xls .........................................................................................................................................................................................................اما اذاك كانت هناك ترحيلات من شهر الى شهر اى هناك بيانات ترحل من شهر الى الشهر التالى فاصبح هنا لا مفر من استخدام الاكواد الـ VBa لانشاء اكواد مناسبة لعمل هذا الملف على كلا انا مستعد للمساعده على قدر مغرفتى وسماح وقتى konafa4000

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

شكرا على الاستفادة القيمة

[الحسامي]

السلام عليكم

اخي konafa4000 ما شاء الله عليك ونفعنا الله بعلمك

معلومات اكثر من رائعة

ولاثراء الموضوع اخي سعد استعمل الكود التالي ويعمل

على عمل نسخة بنفس الاسم مع زيادة اسم الشهر والسنة

مع الاسم القديم ويمكنك تسمية اسم الملف من داخل الكود

اذا اردت انسخ الكود واربطه بزر لعمل النسخة

Option Explicit

Sub SaveWithBackup()

    Application.DisplayAlerts = False

    With ThisWorkbook

      .SaveCopyAs ThisWorkbook.Path & "\" & _

      NameWithOutExt(.Name) & "      " & _

      Format(Now, "mmmm") & Format(Now, "yyyy") & ".xls"

     .Save

    End With

    Application.DisplayAlerts = True

End Sub

Function NameWithOutExt(pStr_FileName As String)

Dim lStr_FileName As String

Dim lint_Pos As Integer

    lStr_FileName = pStr_FileName

    lint_Pos = InStr(1, lStr_FileName, ".")

    If lint_Pos > 0 Then lStr_FileName = Left _

    (lStr_FileName, InStr(1, lStr_FileName, ".") - 1)

    NameWithOutExt = lStr_FileName

End Function

تم تعديل أكتوبر 26, 2010 بواسطه الحسامي

[saad abed]

اخى كنافة

اخى عماد الحسامى

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

فوالله ندعو لك لانك تستحق اكثر من هذا

اخى عماد الكود يعمل بكفاءة عالية ويعطى ملف مضاف الية الشهر والسنة

هل من الممكن الغاء الاكواد فى الملف الباك اب

وعمل كود اخر لتفريغ الملف من البيانات ( الملف الاساسى )

انا عارف انى طلباتى كترت ولكنكم اهل فضل

اخوك سعد عابد

[خالد القدس]

السلام عليكم بارك الله في السائل والمجيب وجزاهم خيرا كود غاية في الروعة أستاذي الفاضل عماد كما هي سائر أعمالك ما شاء الله والجميل أن الملف يتم استبداله خلال الشهر كلما عملت نسخة احتياطية أكرمك الله في الدارين

تم تعديل أكتوبر 26, 2010 بواسطه خالد القدس

[konafa4000]

السلام عليكم ورحمة الله وبركات

اخى العزيز سعد عابد ،،،

تقريبا بدت افهم ما تريد ،،،

كنت اعانى من ان لديى بيانات كثيرة تاتى على مراحل (مرتبات موظفون) واقوم باعداد كل مجموعه مرتبات فى تقرير من على ملف وبالتالى عندما اريد ان انشئ تقريرجديد يجب ان افرغ بيانات التقرير السابق وابداء بادخال بينات التقرير الجديد

ولكننى قمت باعداد اكواد فى ملف واحد يمكننى

أولا : ان انشئ تقريرجديد من الملف الاصلى دون اى مساس بالملف الاصلى

ثانيا : اى تعديل ينشأ فى بيانات الموظفون الاساسية (سواء باضافة اسم موظف جديد او بتعديل فى القسم الذى يتبع له ) يتم تصديرها الى الملف الاساسى دون تصدير المبلغ

طريقة عمل الملف بسيطة

ستجده بالمرفقات (طبعا افرغت الملف من البيانات الحقيقة الخاصة بى ومن بعض الخواص الاخرى التى ربما لن تفيد فى المطلوب )

اتنمنى ان يكون هذا هو ما تريد بالضبط

وعلى ايه حالة يفضل ان ترفق حالتك لان كل حالة تحتاج لعمل يختلف عن الاخرى

اخوك Konafa4000

New folder.rar

[saad abed]

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

الملف حسامى الاكواد فهذا الرجل احتفظ بكل اعماله وردوده داخل المنتدى لانى كنت لا احب التعامل مع الاكواد

ومنذ شرح واستفاض واصبحت انا الضعيف فى الفهم اعدل واضيف ما اريد حسب ظروف عملى

وما اريده هو فى صفحة قطع الغيار زر clear مسح بيانات المجال a5:i10000,h5:i10000

وكنت طلبت باك اب وفنفذها الحسام بافضل مما طلبت ولو ممن فى ملف الباك اب يبقى بدون اكواد يكون افضل لى بكتير

وشكرا لكم جميعا كنافة والحسامى

saadabed

saad2011

اليوزر وكلمة السرللملف

[saad abed]

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

الملف حسامى الاكواد فهذا الرجل احتفظ بكل اعماله وردوده داخل المنتدى لانى كنت لا احب التعامل مع الاكواد

ومنذ شرح واستفاض واصبحت انا الضعيف فى الفهم اعدل واضيف ما اريد حسب ظروف عملى

وما اريده هو فى صفحة قطع الغيار زر clear مسح بيانات المجال a5:i10000,h5:i10000

وكنت طلبت باك اب ونفذها الحسامى بافضل مما طلبت ولو ممكن فى ملف الباك اب يبقى بدون اكواد يكون افضل لى بكتير

وشكرا لكم جميعا كنافة والحسامى

saadabed

saad2011

اليوزر وكلمة السرللملف

برنامج قطع الغيار .rar

تم تعديل أكتوبر 26, 2010 بواسطه سعد عابد

[خالد القدس]

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

[konafa4000]

السلام عليكم ورحمة الله وبركاته

اخى سعد ، اليك المرفق به كود لافراغ البيانات معين للزرc lear

سيفرغ البيانات فى النطاق من a5:f10000 والنطاق h5:i10000

مع ترك العمود g كما هو لانه هو به معادلات

اما بالنسبة لحذف الاكواد على ملف الباك اب لا اعتقد ان ذلك ممكن (على حد معرفتى المحدودة) فقط ما يمكنى فى ملف الباك اب عند فتحه لا يظهر الفورم وايقاف عمل الاكواد

اليك المرفق

برنامج قطع الغيار .rar

[saad abed]

اخى كنافة شكرا لك

جزاك الله خيرااكرمك الله

ارجو ان استطعت عمل ايقاف للاكواد والفورم للملف الباك اب اكون شاكر جدا

[konafa4000]

اخى العزيز

اليك المرفق بعد التعديل

فى الملف الاصلى اضغط على زر زر Backupfill

ثم افتح الملف الباك اب سيفتح مباشرة وعند الضغط على زرى clear او backupfill لن يحدث شي

وجميع الاجراءات التى فى احداث تغيرالصفح تم تعطيلها

اليك المرفق

Konafa4000

2برنامج قطع الغيار.rar