نمایش سلول تکراری در یک سطر

[ACE]

سلام :
دوستان من یک ستون رو کددهی کردم که داده تکراری ثبت نکنه ...حالا می خوام در صورتیکه داده تکراری ارائه شد جدا از اینکه پیغام خطا میده بیاد سلول تکراری رو هم نشون بده...مثلا اگر توی سطر مورد نظر شماره تلفن تکراری خواست ثبت بشه پیغام خطا بده و همچمین سلول تکراری رو نشون بده...
ممنون

[generalsamad]

با سلام
اگه سلول تکراری ثبت شد و میخواهید سلولهای تکراری نمایان بشه با استفاده از conditional formatting میتونید برای سلولهای تکراری یک قالب مشخص کنید
اگه سلول تکراری ثبت نمیشه و میخواهید آدرس سلول تکراری رو پیدا کنید باید با vba مسئلتون رو حل کنید

[ACE]

با سلام
اگه سلول تکراری ثبت شد و میخواهید سلولهای تکراری نمایان بشه با استفاده از conditional formatting میتونید برای سلولهای تکراری یک قالب مشخص کنید
اگه سلول تکراری ثبت نمیشه و میخواهید آدرس سلول تکراری رو پیدا کنید باید با vba مسئلتون رو حل کنید

با سلام و سپاس:
بله ...ثبت نمیشه و می خوام سلول تکراری رو پیدا کنم////....باید از vba کمک بگیرم....اما من اطلاعاتی ندارم...کجا سوال بپرسم که کمکم کنند؟
ممنون

[iranweld]

با سلام و سپاس:
بله ...ثبت نمیشه و می خوام سلول تکراری رو پیدا کنم////....باید از vba کمک بگیرم....اما من اطلاعاتی ندارم...کجا سوال بپرسم که کمکم کنند؟
ممنون

با سلام و کسب اجازه از جنرال صمد

با استفاده از vb در صورت وارد شدن عدد جدید در ستون A با سایر اعداد چک شده و در صورت تکراری بودن شماره ردیف عدد قبلی را نمایش میدهد

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then test
    
   
End Sub


Sub test()

Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
For x = Z - 1 To 1 Step -1
If Range("a" & Z).Value = Range("a" & x).Value Then
MsgBox "Tegrai Ba Satre: " & Range("a" & x).Row
Range("a" & Z).Value = ""
Exit For
End If
Next x
End Sub