|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next 'skip all run-time errors'
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
X = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Y = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row
For I = 1 To X
For J = 1 To Y
If Sheet1.Range("A" & I).Value = Sheet2.Range("A" & J).Value Then
Sheet2.Range("A" & J).Value = ""
End If
Next J
Next I
End If
Application.EnableEvents = True
On Error GoTo 0
End Sub
کامنت