اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ترحيل البيانات


الردود الموصى بها

السلام عليكم

ممكن نخلي شرط الترحيل اي كلمة او حرف تختارة بدلا من خانة الإختيار

حيث انني لم يسبق لي التعامل مع خانة الإختيار سابقا

رابط هذا التعليق
شارك

السلام عليكم

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

هل يمكن الترحيل إلى عدة صفحات ووضع ذلك في قائمة منسدلة

وبارك الله في الاخ aah-aah2008

لي طلب إخر كيف يمكن إخفاء قوائم أكسل في ملف محدد وأيضا صفحات محددة

وشكرا لكم جميعا

رابط هذا التعليق
شارك

السلام عليكم

اولا انا اعتذر في تدخلي السابق دون استئذان من اخي الحبيب احمد يعقوب

فارجو قبول اعتذاري

اخي الفاضل

هل يمكن الترحيل إلى عدة صفحات ووضع ذلك في قائمة منسدلة

ممكن

كيف يمكن إخفاء قوائم أكسل في ملف محدد وأيضا صفحات محددة

ارسل ملفا يشرح ما تريد ان تخفيه

تحياتي

رابط هذا التعليق
شارك

السلام عليكم

اخي aah-aah2008

بدون اذن تتفضل في اي وقت

حيث هدفنا واحد

اخي omarphoto1

جرب المرفق

بدون زر

في صفحة حوصلة الفواتير

اكتب ماتريد في الخلايا اخضراء ماتريد

ويظهر معاك فورا

omarphoto2Book1.rar

رابط هذا التعليق
شارك

السلام عليكم

الاخوه الاحباب ممكن اشاركم

لانى مقصر قليلا في حق المنتدى و ذلك لانشغالى بعمل جديد

cheque.rar

رابط هذا التعليق
شارك

السلام عليكم

اخي ابو اسامة بارك الله فيك

الاخوه الاحباب ممكن اشاركم

لانى مقصر قليلا في حق المنتدى و ذلك لانشغالى بعمل جديد

الله يوفقك المهم انك معنا ونطمأن عليك

خالص تحياتي و تقديري

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

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

بارك الله فيكم جميعا أحمد يعقوب -ابو اسامة العينبوسي-aah-aah2008

مساعداتكم قيمة جدا واكثر من المطلوب وجزاكم الله خيرا

ارسل ملفا يشرح ما تريد ان تخفيه

الرجاء ضع الطلب في نفس الملف

يأخواستاذنا aah-aah2008

رابط هذا التعليق
شارك

السلام عليكم

اخي لم تدلنا علي ماتريد اخفائه و ما المقصود بالقوائم

نود استيضاح عن ما تريد اخفاؤه

تحياتي

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

السلام عليكم

و صبحكم الله بالخير

استاذنا ابو اسامة

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

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

اخي و حبيبي الأستاذ عادل

الله يعطيك العافية

متابعاتك دائما رائعة

رابط هذا التعليق
شارك

ما شاء الله

حلول جميلة جدا من الاساتذة

و ابداع رائع من اخونا ابو اسامة

بصراحة ابهرتني بطريقة حلك

ربنا يوفقك و يوفق جيمع الاخوة

رابط هذا التعليق
شارك

السلام عليكم

شكرا لكل الاساتذه و الاخوه

هذا شعار اوفسينا التطور و التقدم دائما

بخصوص طلب الاخ مسح البيانات السابقه استخدم الكود التالى بدى الاول

Sub test()
Dim Mrng As Range
Dim cell As Range
Dim Mysum As Long
Set Mrng = Sheets(1).Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
Sheets(2).Select
Range(Cells(2, 1), Cells(ActiveSheet.UsedRange.Rows.Count, 6)).ClearContents
Sheets(1).Select
For Each cell In Mrng
 x = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
 If cell.Value = Chr(252) Then
 Sheets(2).Cells(x, 1) = Cells(cell.Row, 2)
 Sheets(2).Cells(x, 2) = Cells(cell.Row, 3)
 Sheets(2).Cells(x, 3) = Cells(cell.Row, 4)
 Sheets(2).Cells(x, 4) = Cells(cell.Row, 5)
 Sheets(2).Cells(x, 5) = Cells(cell.Row, 6)
 Sheets(2).Cells(x, 6) = Cells(cell.Row, 7)
 Sheets(2).Cells(x, 7) = Cells(cell.Row, 8)
 End If
Next cell
Mysum = Application.WorksheetFunction.SumIf(Mrng, Chr(252), Range(Cells(2, 4), Cells(Cells(Rows.Count, 4).End(xlUp).Row, 4)))
MsgBox "مجموع الفواتير المرحلة هو " & Mysum, vbMsgBoxRight, "تم الترحيل "
End Sub

رابط هذا التعليق
شارك

السلام عليكم

الاخوه الاحباب ممكن اشاركم

لانى مقصر قليلا في حق المنتدى و ذلك لانشغالى بعمل جديد

كان الله في عونك ووفقك بالعمل الجديد

اخوك ابو خالد

رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information