استاذي الفاضل الكود يعمل جيد

لكن اريد اظهار  الرصيد بشكل صحيح في F2

 ان يجمع  رصيد اول المدة  E5 +العمود 5 +  العمود 9 -   العمود 7  

كل ده من الشيت 2 

يبقا كدا الكود يعمل كاملا 
 

 

 الله واكبر عليك بجد 

ممكن ادخل مدرسة حضرتك استاذ حسونة 

اتمنا تشرح لينا من الاول  

vba 

 

 اخي الفاضل  ...

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

لكني  لا افهم اخر  كود  
Dim WS As Worksheet, WSLR As Long
 
Set WS = ThisWorkbook.Worksheets("المجاميع")
 
WSLR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
 
WS.Range("A" & WSLR).Value = SERCH.Range("C2")
 
WS.Range("B" & WSLR).Value = SERCH.Range("F2")
 
Next sh
 
Application.ScreenUpdating = True
 

 لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب › watch › Z1-ogPcaA40 طباعة فاتورة المبيعات كيفية طباعة الفاتورة بدون الفراغات excel vba - TRshow

 انا هقولك تعملها ازاي هتبحث عن موضوع طباعة الفاتورة الاستاذ عماد غاذي هو نفس الفكرة اللي انت نحتاجها  

هنا نزل الملف واعمل زي بالتوفيق لك 

 بارك الله فيك  اخي الكريم 

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

عاجز عن الشكر اخي  حسونة  
 

 

 اتفضل اخي  الحل   

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

 حبيبي الغالي انت صح 

مشكور اخي الغالي   حسونة  وجزاك الله خيرا   

والله  فعلا  بجد  انتي حققت ليا خلم  ليا سنين بحاول اتعلمه   وكانبسبب لي عائق في عملي 

شكرا وعاجز فعلا عن الشكر 

الخطاء كان في كود الصنف   كان مكتوب خطاء واخد  نفس السريال   عشان كدا  كا مش راضي يعمل معي  

لكن الحمد الله 

فنعيش  نتعلم والله 

 مشكور اخي الفاضل علي الحل الجميل ورائع ده 

لكن لدي مشكلة بسيطة هنا ممكن رقن الاذن يشمل أكثر من صنف 

زي فاتورة البيع  مثلا 

لكن ازاي حددت صف يخص نفس رقم الاذن  لتعديل عليه يبقا المفروض هنا شرطين  رقم الفاتورة وإسم الصنف عشان التعديل يتم في الشيت اخي 
 

ياريت اكون وصلت المطلوب جيد 

فمثلا هنا رقم الاذن ٤٧  في اسم الصنف  هنا في الصف الأول. مانجو. وفي الصف التالي  جوافة  وفي الصف التالت موز يبقا كل ده يخص رقم الاذن او فاتورة  ٤٧

فمثلا آرت أن اعدل في اسم الصنف الجوافة وتخليها  تين برشومي 

او اي صف اختارت من الليست يتم التعديل فيه 

 

 هنا عند التحديد  رقم الاذن 47      يجلب البينات صحيحة ......

هنا بقا  عند تحديد اي صف بيتم  التعديل علية  لا يتم   التعديل   

هي دي النقطة يا استاذي   ياسر   
 

 

 لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 اخي الحبيب وضعت السطر لا تفلح معي تعطي  خطأ 
     If c Like TextBox12.Value & "*" And c.Offset(, -12).Value Like TextBox4.Value & "*" Then