فرز البيانات ذات لون معين وترحيلها من شيت الى شيت اخر

[sabah2023]

السلام عليكم

هل ممكن ترحيل البيانات من شيت الى شيت اخر المحدده بلون معين

جزيتم خير

فرز بيانات ذات اللون الازرق.xlsx

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته

  

ربما تقصد جمع قيم العمود بشرط الخلفية الزرقاء تفضل جرب وضع هدا لكود في موديول 

Function TotalRng(SumRange As Range, SumColor As Range)
Dim SumColorValue As Integer
Dim SumRng As Long
SumColorValue = SumColor.Interior.ColorIndex
Set b = SumRange
For Each b In SumRange
If b.Interior.ColorIndex = SumColorValue Then
SumRng = SumRng + b.Value
End If
Next b
TotalRng = SumRng
End Function

وفي الخلية  H17 

=TotalRng(البيانات!$H$2:$H$80;K1)

مع تلوين الخلية K1 باللون الهدف 

 

فرز بيانات ذات اللون 2الازرق.xlsm

تم تعديل نوفمبر 29, 2023 بواسطه محمد هشام.

[sabah2023]

جزيت خيرا

تمام 100 %