sıralama

[sbzade]

selam arkadaşalar;
exceli fazla bilmiyorum. bana gerekli olan çok uğraştığım bir konu var üstesinden gelemedim bir türlü. umarım bir yardım bulabilirim.
a1 hücresine yazdığım değer b1 hücresinde çıksın ve
a1 'e yeni değer girdiğimde b2 yazsın.
a1 de girilen her yeni değer b sütununda sıralama oluştursun istiyorum.

eğer yardımcı olabilirseniz memnun olurum. şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

Sayfa kod bölümüne yerleştiriniz.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
s = WorksheetFunction.CountA([b1:b65000])
Range("b" & s + 1) = [a1]
End Sub

 

[Necdet]

Sayın V.Basic For Applications'ın izniyle kodlarına bir satır ekledim, B sütununda sıralama yapması için

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
s = WorksheetFunction.CountA([b1:b65000])
Range("b" & s + 1) = [a1]
[B][COLOR=green]Range("b" & s + 1).Sort key1:=[B1][/COLOR][/B]
End Sub

 

[sbzade]

evet dediğinizi uyguladım,
istediğim gibi, emeğinize teşekkür ederim.