أحمد الزيادى

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

Sub ahmed() Application.ScreenUpdating = False Workbooks("íæãíÇÊ.xlsb").Activate Workbooks("íæãíÇÊ.xlsb").Sheets(1).Range("b7:m" & Cells(Rows.Count, "b").End(xlUp).Row).Copy Workbooks("oilz.xlsb").Activate Sheets("ÇáÍÑßå").Activate Dim LastR As Long LastR = Workbooks("oilz.xlsb").Sheets("ÇáÍÑßå").Cells(Rows.Count, 2).End(xlUp).Row x = Range("a" & Rows.Count).End(xlUp).Row Workbooks("oilz.xlsb").Sheets("ÇáÍÑßå").Range("b" & x + LastR).Select Selection.PasteSpecial xlPasteValues Workbooks("íæãíÇÊ.xlsb").Activate Application.ScreenUpdating = True Workbooks("íæãíÇÊ.xlsb").Activate [a1].Select MsgBox ("Êã ÇáÊÑÍíá ÈäÌÇÍ" & Chr(10)) End Sub

عند الترحيل من ملف الى ملف اخر يتم الترحيل ولكن يتم ترك 5 خانات فارغه ويلصق البيانات ... وعند الترحيل مره اخرى يتم ترك 5 خانات ايضا ويتم لصق البيانات هذا هو الكود Sub ahmed() Application.ScreenUpdating = False Workbooks("íæãíÇÊ.xlsb").Activate Workbooks("íæãíÇÊ.xlsb").Sheets(1).Range("b7:m" & Cells(Rows.Count, "b").End(xlUp).Row).Copy Workbooks("oilz.xlsb").Activate Sheets("ÇáÍÑßå").Activate Dim LastR As Long LastR = Workbooks("oilz.xlsb").Sheets("ÇáÍÑßå").Cells(Rows.Count, 2).End(xlUp).Row x = Range("a" & Rows.Count).End(xlUp).Row Workbooks("oilz.xlsb").Sheets("ÇáÍÑßå").Range("b" & x + LastR).Select Selection.PasteSpecial xlPasteValues Workbooks("íæãíÇÊ.xlsb").Activate Application.ScreenUpdating = True Workbooks("íæãíÇÊ.xlsb").Activate [a1].Select MsgBox ("Êã ÇáÊÑÍíá ÈäÌÇÍ" & Chr(10)) End Sub

لما بضغط على زر توليد الباركود بتظهر الرساله اللى فى الصوره دى multi barcode.xlsm

الف شكر يااستاذ سليم ..... بس لو امكن ممكن ملف

المطلوب معرفه اخر سنه شراء للعميل وشكرا جزيلا اخر شراء.rar

انا وضحت فى الملف ده المطلوب والف الف شكر يااستاذنا الفاضل على المساعده حساب العملاء.rar

اريد جمع اخر مستحقات اخر فاتوره مع الاخذ فى الاعتبار المديونيه السابقه .... وشكرا New Microsoft Office Excel Worksheet (2).rar

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

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

ممكن تطبيقها من غير مااضغط ctrl + shift + enter

تم كتابه الشرح ,,,,,, اخر سعر بشرط.rar

برجـــــــــــاء الرد

الف الف شكر يااستاذ سليم واسف على تاخرى ف الرد

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

بعد اذنكم ياجماعه فى الملف ده عاوز لما اكتب صنف يتكتب فى العمود المقابل له فرق السعر بينه وبين السعر الماضى وشكرا جزيلاااا New Microsoft Office Excel Worksheet.rar

الف الف شكر يااستاذ محمود الف الف شكر يااستاذ محمود

طيب لو كانت قيمه الخليه ... يعنى مثلا الخليه a1 مكتوب جواها اسم (احمد) وعاوز الاسم ده يظهر علي الزرار اعمل ايه ...؟؟؟ وشكرا

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

المطلوب بعد فلتره العمود d للحاضر فقط عمل نسخ للبيانات الموجوده فى العمود b و c ولصقها فى شيت 2 فى العمود c تحت البيانات الموجوده...... وشكرا جزيلا New Microsoft Office Excel Worksheet.rar

تسلم ايدك يااستاذنا بس طلب اخير من حضرتك كنت عاوز اطبقها يوميه الاعلاف.rar

مش شغال New Microsoft Office.rar