نسخ خلايا بناءا على شرط معين

[أبو مسلم الحازم]

كيف يمكن نسخ الخلايا الملونة فقط في عمود معين...و بارك الله فيكم

[كمال على طارق]

تفضل 

Sub Copying_yellow_cells()
  Dim i As Long, j As Long
  For i = 5 To Range("f" & Rows.Count).End(xlUp).Row
    For j = 1 To Columns("H").Column
      If Cells(i, j).DisplayFormat.Interior.Color = vbYellow Then
        Cells(i, "H").Value = Cells(i, j).Value
        Exit For
      End If
    Next
  Next
End Sub

 

نسخ الخلايا الملونة في العمود B.xlsm

تم تعديل مايو 25, 2023 بواسطه كمال على طارق

[أبو مسلم الحازم]

اسف السلام عليكم و مرحبا

هذا هو الملف

نسخ الخلايا الملونة في العمود B.xlsx

تم تعديل مايو 25, 2023 بواسطه khadouma

[lionheart]

Simply you can filter by color then select the colored cells and paste them to the target range

[أبو مسلم الحازم]

بارك الله فيك أخي الكريم  ك .... هل يمكن ترتيب النسخ تواليا اي بخلاف نسخ المتقابل... وشكرا  

مثال 

 

تم تعديل مايو 29, 2023 بواسطه khadouma

[محي الدين ابو البشر]

حسب الصورة

عسى

Sub Test()
  Dim i&
  For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
      If Cells(i, 1).Interior.Color = vbYellow Then Cells(Range("B" & Rows.Count).End(xlUp).Row + 1, 2).Value = Cells(i, 1).Value
    Next
End Sub

 

Book1.xlsm

[أبو مسلم الحازم]

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

[محي الدين ابو البشر]

بارك الله فيك