أحمد الزيادى

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

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

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