Hangi formülü kullanmalıyım

[Service_38]

Selam Arkadaşlar Tabloda anlatmaya çalıştım. Hangi formülü yazacağım bilemedim.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Formül değilde makro kullanmalısınız.

 

[Service_38]

Makro bilgim yok Lütfen yardımcı olurmusunuz.?

 

[YUSUF44]

Yeni kayıt nereye nasıl ekleniyor?

 

[Service_38]

sarı işaretli olan yerler yeni kayıtlar

 

[YUSUF44]

Bir kaydın yeni kayıt olduğu nasıl anlaşılıyor? Dosyanızın asıl hail nasıldır ve ne olunca/ne zaman bu sıralama işleminin yapılması gerekiyor?

 

[Service_38]

1. tablo orijinal şekli

2.tabloda protokol numarasına göre otomatik sıralama yapıyor

yeni veri girince eğer protokol 7000 den küçükse ( 2. tabloda ) 7000 ile 41 arasına alıyor

yeni veri girince eğer protokol 7000 den büyükse ( 2. tabloda ) en sona alıyor.

makro ile sıralama yapınca sırası bozulmasın istiyorum

 

[Service_38]

Tablomu değiştirdim yardımcı olurmusunuz?

 

[YUSUF44]

Aşağıdaki kodları sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneyin. B sütununa değer girdiğinizde, A sütununa sıra numarası verir, sıralama yapar ve yandaki hücreyi seçer. Dosyayı makro içerebilen excel dosyayı olarak kaydetmeniz gerekir:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B2:B10000]) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    If Selection.Count > 1 Then Exit Sub
    a = Target.Value
    son = Cells(Rows.Count, "B").End(3).Row
    Target.Offset(0, -1) = WorksheetFunction.Max(Range("A1:A" & son)) + 1
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("B2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveSheet.Sort
        .SetRange Range("A1:F" & son)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    sat = WorksheetFunction.Match(a, Range("B1:B" & son), 0)
    Cells(sat, "C").Select
End Sub

 

[Service_38]

Hocam Teşekkürler emeğinize sağlık, kendi tabloma uyarlayacağım.