مرحبا
انا احاول استخدم الماكرو بس ببرنامج اكسل
احتاج برنامج يقارن بين ورقتين
ينسخ كل خلية من الورقة الاولى sheet = "jde" ويبحث عنها في الورقة الثانية اذا لقى البيانات موجودة يظلل الخليتين باللون الازرق واذا لم يجد الخلية في الورقة الثانية يظللها في الورقة الاولى الاخضر
ويفعل نفس العملية للورقة الثانية tops غير انها يظللها باللون الاحمر ان لم يجدها في الورقة الاولى
حاولت استخدم الماكرو عبر الـ تسجيل وطلع لي هذا الكود واحاول افهمه واعدل عليه
Worksheet("jde").Range("d8:d1240").Select
Selection.Copy
Sheets("tops1").Select
Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With