البحث في الموقع

بسم الله الرحمن الرحيم وبه نستعين إخوانى الافاضل السلام عليكم ورحمته الله وبركاته جمعنا الله تعالى على طاعته وحسن عبادته إنه ولى ذلك والقادرعليه المطلوب بحول الله تعالى التعديل على الكود المبين بداخل المرفق برجاء الاطلاع والافادة بإذن الله تعالى تقبلوا وافر تقديرى واحترامى **** وجزاكم الله خيرا طلب تعديل فى كود خصم كميات.rar

السلام عليكم ورحمه الله وبركاته احبتي الإعزاء :- الرجاء كود ترحيل لعدة صفحات حسب كل عميل, مرفق ملف شكرا لمجهودكم وتعاونكم بيانات1.rar

بسم الله الرحمن الرحيم وبه نستعين اخوانى الافاضل السلام عليكم ورحمته الله وبركاته مع دمج الكودين الموضحين أمام حضراتكم وهما لآخى الحبيب الاستاذ الفاضل ياسر خليل ابو البراء حدث خلل فى عملية الترحيل الكود الاول Sub TransferMatchingData() Dim WS As Worksheet, SH As Worksheet Dim Cel As Range, Found As Range Set WS = Sheet1: Set SH = Sheet3 Application.ScreenUpdating = False On Error Resume Next For Each Cel In WS.Range("B8:B" & WS.Cells(Rows.Count, "B").End(xlUp).Row) Set Found = SH.Range("B:B").Find(What:=Cel.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not Found Is Nothing And Not IsEmpty(Cel.Value) Then Found.Offset(, 1).Resize(1, 2).Value = Cel.Offset(, 1).Resize(1, 2).Value End If Next Cel Application.ScreenUpdating = True End Sub الكود الثانى Sub TransferDataUsingFilterMethod() Dim WS As Worksheet, SH As Worksheet Dim LR As Long, LastRow As Long Dim X As Long, I As Long Set WS = Sheet1: Set SH = Sheet5 LR = WS.Cells(Rows.Count, 1).End(xlUp).Row LastRow = SH.Cells(Rows.Count, "D").End(xlUp).Row + 1 Application.ScreenUpdating = False With WS .AutoFilterMode = False .Range("A7:D7").AutoFilter Field:=3, Criteria1:="<>" & "" .Range("B8:D" & LR).SpecialCells(xlCellTypeVisible).Copy SH.Cells(LastRow, "D").PasteSpecial xlPasteValues SH.Cells(LastRow, "B").Value = WS.Range("B6").Value SH.Cells(LastRow, "C").Value = WS.Range("C3").Value .AutoFilterMode = False End With Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "Done...", vbInformation, "YasserKhalil" End Sub المطلوب بحول الله تعالى ترحيل عمود سعر الشراء بالعمودD بصفحة الوارد الى العمود F بالصفحة الرئيسية ترحيل كلا من التاريخ واسم المورد ورقم الفاتورة لمرة واحدة كما هو موضح بالمرفق بصفحة حركة الاصناف ترحيل الاعمدة من B الى العمود D من صفحة الوارد الى صفحة حركة الاصناف بالاعمدة من E الى G وافر تقديرى واحترامى وجزاكم الله خيرا ترحيل بيانات فاتورة.xlsb.rar

رجاء المساعدة في عمل جدول يقوم بترحيل الادخالات مثل المواد كلا على حدى و المورد و المصنع و المشروع بحيث استطيع استخراج كمية و قيمة و نوع حديد التسليح 16مم مثلا لكل مشروع متابعة المشتريات.rar

List.rar

السلام عليكم هل يمكن ترحيل البيانات من ورقة data الى ورقة أخرى تأخذ رقم 1 وهكذا كلما تصل التعبئة للبيانات الى الصف38 تترحل الى ورقة جديدة مع الإجمالي تحمل رقم مسلسل من 1 الى أي رقم ينتهي به المصنف مع ملاحظة ان مجموع اجمالي جميع الأوراق يكون في ورقة data في الخلية k1 شاكر تعاونكم معي كون الطلب لاحد أصدقاء اخواني في الله جزاكم الله خيرا وبارك الله بكم ترحيل الى اوراق متعددة.rar

السلام عليكم هل يمكن ترحيل البيانات من ورقة data الى ورقة أخرى تأخذ رقم 1 وهكذا كلما تصل التعبئة للبيانات الى الصف38 تترحل الى ورقة جديدة مع الإجمالي تحمل رقم مسلسل من 1 الى أي رقم ينتهي به المصنف مع ملاحظة ان مجموع اجمالي جميع الأوراق يكون في ورقة data في الخلية k1 شاكر تعاونكم معي كون الطلب لاحد أصدقاء اخواني في الله جزاكم الله خيرا وبارك الله بكم

السلام عليكم ورحمته الله وبركاته أعضاء ومشرفى منتديات اوفسينا الكرام طبتم وطاب ممشاكم وتبوئتم جميعا من الجنة منزلا إستكمالا لهذا الموضوع http://www.officena.net/ib/topic/64191-طلب-تعديل-كود-جلب-بيانات-للأستاذ-ياسرخليل-ابو-البراء/?page=1 برجاء الاطلاع على المرفق التالى حيث تم تنفيذ الطلب الاول وهو استدعاء كافة البيانات من الورقة الرئيسية " الورقة 2 " الى" الورقة 3 " المطلوب بعد إذن حضراتكم أولا هل يمكن أن يكون إستدعاء البيانات بالورقة 3 بنفس تنسيقات ورقة البيانات الرئيسية " ورقة 2 " ثانيا وهل يمكن ترحيل جميع البيانات التى تم استدعاؤها "بالورقة 3 " الى " الورقة رقم 4 " على أن ترحل الاسماء لعدد 20 أسم مع وجود عدد 7 صفوف فارغة بين كل مجموعة أسماء وبنفس تنسيقات الورقة 3 دمتم فى رعاية الله وبارك فيكم وافر تقديرى واحترامى إستدعاء البيانات وترحيلها لعدد معين من الاسماء مع وجود عدد معين من الصفوف الفارغة بين كل مجموعة أسماء.xlsb.rar

حياكم الله ومساكم بالخير الطلب على النحو التالى أريد ترحيل نطاقات متغيرة من ورقة الى ورقة كل 5 دقائق مثالا يرحل النطاق الاول ثم الذى يليه بعد 5 دقائق ثم النطاق الثانى ثم الثالث ثم الرابع ثم الخامس إلى أخره مع أمكانية إستدعاء الماكرو بواسطة أحد مفاتيح لوحة المفاتيح رابط الموضوع الاصلى مشاركة 11 وكانت به إفادة عظيمة من المبدع أخى الاستاذ المبدع / ياسر خليل " حفظه الله " http://www.officena.net/ib/topic/59492-طلب-كود-ترحيل-بيانات-كل-5-دقائق/ يوجد ملف يوضح ذلك ودمتم بخيرولكم جزيل الشكر Transfer Data Every 10 Seconds.rar

كل ما اقوم به كالتالي الدخول على شاشة الفاتورة كتابة البيانات كما هو موضح في المثال المكتوب لاحظ ان رقم افاتورة هو 4 المشكلة هي عند الضغط على ترحيل في شاشة الفاتورة يتم الترحيل في شيتين الاول هو شيت حركة الصنف ويتم الترحيل بشكل سليم الثاني هو شيت القيود وهنا تكمن المشكلة حيث انه يتم ترحيل رقم الفاتورة في شيت القيود مضاف اليه 1 بمعنى لو كان رقم الفاتورة 4 يتم ترحيله الى شيت القيود برقم 5 ارجو المساعده في الترحيل بشكل صحيح وشكرا مقدما يومية امريكية.rar

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

السلام عليكم ورحمة الله وبركاتة كيف يمكن استخراج اسماء الاخوة من السجل المدرسى بالمعادلات التوضيح فى المرفق وجزاكم الله خيرا اسماء الاخوة.rar

أرجو عمل ترحيل الخلايا الملونه الى حساب العميل الذي في الورقة 2 في نفس اللون مع إبقاء البيانات في الجداول hhhh.rar

المطلوب ترحيل رقم الفاتورة التاريخ رقم العميل اجمالى الفاتورة 10% ض مبيعات الصافى الى صفحة " inh " المطلوب ترحيل رقم الفاتورة رقم الصنف اسم الصنف الكمية السعر الاجمالى الى صفحة "int" tax.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اتمنى من اساتذتنا فى الموقع مساعدتى فى ترحيل الفاتورة لورقة قاعدة البيانات او ما ترونه صحيحا لانى حاولت كثير ولا اعرف كثير عن VBA ولكم جزيل الشكر مقدما Data.rar

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

السلام عليكم اريد ترحيل مشروط من صفحة الى اخرى وكل عام وانتم بخير list.rar

هديتى مدونة_مينى كود_اسكتش " اكواد_الترحيل_البحث_الادخال_فورم " من بحثى المتواضع بالانترنت رأيت عمل محفظة اكواد جاهزه مع التطبيق العملى للاستفادة لذلك .... سيتم وضع اكواد بسيطة ( جاهزة و منفصلة ) للاستفادة منها عند انشاء الملفات و البرامج و هى اكواد مرفوعة و لطفا..... لعدم ذكر الاشخاص أو المواقع المرفوع منها الكود لأن الفكرة هنا هو عرض الكود و التطبيق العملى بصورة ميسرة و لأنى ليس خبير بالاكواد(سيترك الشرح للاساتذة) سيرفق بالكود التطبيق العملى له بعد تعديله من رؤيتىالمتواضعه للاكواد و ارجو ان تروق لاعضاء المنتدى الفكرة و نسألكم صالح الدعاء تحياتى

السادة المحترمين : لمن يحب المساعدة : عندي ملف اجمالي وملفات ادخال من نوعين ملفات ادخال مسمية باسم MANASEER واخرى باسم omc اريد ان يتم ترحيل ملفات الادخال من النوعين الى ملف الاجمالي كل الى صفحته فهناك في الملف الاجمالي صفحة باسم MANASEER واخرى باسم omc وان يتم ترحيل نسخة اخرى في نفس الملفات في صفحة مسمية باسم الارشيف الملفات مرفقة وهناك ملفات اخرى سارفقها في الاسفل جزاه الله خير الذي عنده وقت ويحب المساعدة . مع ارشادي الى طريقة كودات الترحيل ان امكن اجمالي القيود.rar ملفات manaseer.rar

برجاء المساعده في تعديل كود الترحيل التالي حيث انه يقوم بإنشاء صفحه فارغه بعد كل عمليه ترحيل ---------------------------------------------------------- Sub ragab() Dim cl As Range, sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Not sh.Name = "Sheet1" Then sh.Range("A1:G1000").ClearContents End If Next LR = Cells(Rows.Count, 2).End(xlUp).Row For Each cl In Range("B2:B" & LR) x = Trim(cl.Value) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x Sheets(x).Move After:=Sheets(Sheets.Count) End If Sheets("sheet1").Range("A1:f1").Copy Sheets(x).Range("A2").PasteSpecial xlPasteValues Sheets(x).Range("A2").PasteSpecial xlPasteFormats cl.Offset(0, -1).Resize(1, 6).Copy Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteFormats Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteColumnWidths Application.CutCopyMode = False Next MsgBox "تم الترحيل بنجاح" Sheets("sheet1").Select Application.ScreenUpdating = False End Sub --------------------------------------------------------------------------- ومرفق معه الملف المراد التعديل عليه office.zip

الساده الافاضل رواد المنتدي الكريم لدي ملف مرفق به حسابات لشركة خاصه بي يوجد مشكله في الملف عند اضافه اي صفحه جديده يقوم البرنامج مسحها عند عمل ترحيل للبياانات ارجوا المساعده في هذه المشكله المطلوب عمل الترحيل بنفس الاليه الموجوده حاليا ولكن بدون التاثير علي اي صفحات جديده يتم اضافنها يدويا office.zip

اقدم لكم اليوم الجزء الخامس من سلسلة الترحيل الأجزاء الأربعة السابقة من هنا

السادة الأفاضل مرفق ملف مخازن بة كود ترحيل فاتورة من شيت "ترحيل" الى شيت "فاتورة " و المشكلة انة عند ترحبل الفاتورة الأولى يتم ترحيل جميع البيانات سليمة و لكن عند ترحيل فواتير اخرى بعد اول فاتورة يتم ترحيل بعض الخلايا بقيم خاطئة او بلا قيمة و للأيضاح قمت بترحيل فاتورتين تم ترحيل الأولى سليمة و الثانية قمت بتلوين الخلايا التى تم ترحيلها بالخطأ باللون الأصفر للأيضاح و تم ترك الفاتورة الثانية كما هى بصفحة الترحيل و قد لاحظت ان القيم التى يتم ترحيلها بالخطأ هى الخلايا التى بها معادلات فأرجو من السادة الخبراء مساعدتى فى حل المشكلة و شكرا جزيلا ترحيل فواتير.rar

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

اخواني في الله السلام عليكم ورحمة الله مرفق ملف به نماذج لطالبات مدرسة واريد ان ارحل الطالبات الناجحات لصفوف أعلى مع الاحتفاظ بأقساطهم القديمة وجزاكم الله خيرا أرجو التعديل على المرفق ادري ان القاعدة بها اخطاء من حيث التسمية باللغة العربية ولكن ارجو الافادة وجزاكم الله خيرا المدرسة المتوسطة.rar