otamatik sıralasın ve uyarsın

[merhaba]

sayın üstadlarım
ekdeki dosyada A sutununa yazdığım değerleri otomatik sıralasın şayet aynı değer varsa beni uyarıp yazmasın.şimdiden herkeze teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.
Veri doğrulama yaptım.
=EĞERSAY($A:$A;$A10)=1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
sat = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & sat).Sort Range("A1")
End Sub

 

[merhaba]

Dosyanız ektedir.
Veri doğrulama yaptım.
=EĞERSAY($A:$A;$A10)=1

üstad teşekkür ederim birde otomatik sıralama yaptırabilirmiyiz ?

 

[Orion1]

üstad teşekkür ederim birde otomatik sıralama yaptırabilirmiyiz ?

Nereye yapılacak?

 

[Orion1]

üstad teşekkür ederim birde otomatik sıralama yaptırabilirmiyiz ?

Dosyayı güncelledim.
2 numaralı mesajdan indirebilirsiniz.

 

[merhaba]

üstadım
A sütününa yazdığım değerleri aynı sütünda otomatik sıralasın hemde aynı değer girildiğinde yazmasın uyarsın

 

[Orion1]

üstadım
A sütününa yazdığım değerleri aynı sütünda otomatik sıralasın hemde aynı değer girildiğinde yazmasın uyarsın

2 numaralı mesajdan dosyanızı indiriniz.

 

[merhaba]

orion1
üstadım şimdi oldu seni gereksiz yere yordum üzgünüm herşey için teşekkür eder.başarılar diler ve saygılarımı sunarım.