هایلایت کردن سلول های ویرایش شده

[rasools13]

سلام
کد ها را داخل یک شرط if به صورت ذیل قرار دهید

Dim Cel As String
 Cel = Target.Address
IF Cel = $A$1 Or $B$1 then     
If Target.Value <> "" Then
           Target.Interior.ColorIndex = 6
     End If
End If 

این باعث میشه فقط برای سلول های A1 و B1 کد اعمال بشه.... آدرس هر سلولی را که میخواهید به صورت آدرس دهی مطلق همانند نمونه به سطر IF اضافه کنید

[hasa2]

من میخوام در صورتی که داده های وارد شده در اکسل ویرایش شد رنگ سلول عوض بشه

[COLOR=#0A0101][FONT=&quot][TABLE="width: 100%"]
[TR]
[TD="class: code"]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Value <> "" Then
        Target.Interior.ColorIndex = 6
    End If
End Sub



[/TD]
[/TR]
[/TABLE]

[/FONT][/COLOR]

استفاده از کد بالا شامل تمامی سلول ها میشه
یعنی وقتی یک سلول سفید هم داده ای واردش میشه به عنوان ویرایش شده محسوب میشه
در حالی که من میخوام این قابلیت تنها شامل سلول هایی باشه که اطلاعات توش وارد شده
به بیان ساده تر :
اگر من به انتهای سلول ها ردیف و ستونی اضافه کنم و اطلاعات وارد اون کنم ؛ هیچ اتفاقی نیوفته, اما حالا که اطلاعات وارد شد، اگه تغییری روی سلول هایی که حاوی اطلاعات هستند اتفاق افتاد اون سلول های لایت بشه.
چه تغییری باید تو کد بالا داد تا این عملیات شامل سلول های خالی از اطلاعات نشه ؟