كود تظليل الصف ذات الخلية النشطة - وربط كمية المنصرف والمتبقى بإسم الصنف

[MrSeen]

السلام عليكم

 

حاولت ابحث عن الكود لكن حصل اكود مختلفة عن المطلوب

 

1- فضلا احتاج كود جاهز عشان اعمل نسخ ولص للكود مع امكانية التعديل على الكود

بحيث اول ما اعمل كلك ع الخلية يتظلل السطر كامل من غير ما تتغير الوان الخلية نفسها ان وجد بها لون ( ملف رقم 1 ) 

 

2 - لدي قائمتين منصرف ومتبقي اريد فضلا عملية ربط برقم الصنف بحيث رتبط كمية المتبقي بجانب كمية المنصرف ( ملف 2 )

 

 

2.xlsx 1.xlsx

[Ali Mohamed Ali]

وعليكم السلام-اهلا بك في المنتدى 

تم عمل كود في الملف رقم 1 لتظليل الصف الذى به الخلية النشطة بدون الغاء لون الخلية القديمة ان وجدت

اما بالنسبة للملف الثانى تم انشاء صفحة أخرى بداخل الملف Report لعمل اللازم بالمعادلات

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
       If Cells(1040000, 1) <> "" Then
        Rows(1040000).Copy
        Rows(Cells(1040000, 1).Value).PasteSpecial Paste:=xlPasteFormats
    End If
    Rows(Target.Row).Copy
    Rows(1040000).PasteSpecial Paste:=xlPasteFormats
    Cells(1040000, 1) = Target.Row
    With Target
              .EntireRow.Interior.ColorIndex = 8
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

1.xlsm

 

2.xlsx

[MrSeen]

بارك الله فيك وفي علمك

الله يسعدك في الدنيا والاخره

الملف الاول تمام 

بالنسبه للملف الثاني :

اضفت اصناف زياده في الصفحة الاولي

لاكن لم تنتقل لصفحة الريبورت

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

 

[Ali Mohamed Ali]

جرب الملف رقم 2 تم تعديله يمكنك إضافة ما تشاء من الأصناف وسوف تضاف مباشرة الى صفحة Report

[بحر الحزن]

ابداع بلا حدود دائما وابدا