Makro ile Otomatik Sıralama

[celikomerh]

Merhaba, benimde şu şekilde bi sorum olucak. Forumu aradım ama malesef bulamadım. Mevcut bir konuyu açtıysam özür dilerim.
"CariListe" sayfasına bir kayıt eklediğimde Firma adı "Sabitler" sayfasında J satırına otomatik gelsin ve aynı zamanda alfabetik sıralansın.
Bunu makro ile yapabilirmiyim, veya daha kolay yöntemi varmıdır.
Örnek dosya = https://dosya.co/l82twbq6q6qs/AnaDosya.xlsm.html
yardımını esirgemeyen tüm forum üyelerine şimdiden şükranlarımı sunarım.

 

[btanju]

Merhaba, benimde şu şekilde bi sorum olucak. Forumu aradım ama malesef bulamadım. Mevcut bir konuyu açtıysam özür dilerim.
"CariListe" sayfasına bir kayıt eklediğimde Firma adı "Sabitler" sayfasında J satırına otomatik gelsin ve aynı zamanda alfabetik sıralansın.
Bunu makro ile yapabilirmiyim, veya daha kolay yöntemi varmıdır.
Örnek dosya = https://dosya.co/l82twbq6q6qs/AnaDosya.xlsm.html
yardımını esirgemeyen tüm forum üyelerine şimdiden şükranlarımı sunarım.

Umarım işinize yarar ama satır eklerken en üste mi ekleyeceksiniz.

İndir Ana Dosya

Dosyayı indir Ana Dosya

dosya.co

 

[veyselemre]

Merhaba, benimde şu şekilde bi sorum olucak. Forumu aradım ama malesef bulamadım. Mevcut bir konuyu açtıysam özür dilerim.
"CariListe" sayfasına bir kayıt eklediğimde Firma adı "Sabitler" sayfasında J satırına otomatik gelsin ve aynı zamanda alfabetik sıralansın.
Bunu makro ile yapabilirmiyim, veya daha kolay yöntemi varmıdır.
Örnek dosya = https://dosya.co/l82twbq6q6qs/AnaDosya.xlsm.html
yardımını esirgemeyen tüm forum üyelerine şimdiden şükranlarımı sunarım.

Kodu CariListe isimli sayfanın kod sayfasına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim firmalar As Variant
    With Range("B3:B" & Cells(Rows.Count, 2).End(3).Row)
        If Intersect(Target, .Cells) Is Nothing Then Exit Sub
        If WorksheetFunction.CountA(.Cells) = 0 Then Exit Sub
        firmalar = .Value
        With Sheets("Sabitler")
            .Range("J2:J" & Rows.Count).ClearContents
            With .Range("J2").Resize(UBound(firmalar))
                .Value = firmalar
                .Sort .Cells, , , , , , , xlNo
                End With
        End With
    End With
End Sub

 

[celikomerh]

Umarım işinize yarar ama satır eklerken en üste mi ekleyeceksiniz.

İndir Ana Dosya

Dosyayı indir Ana Dosya

dosya.co

carilisteden bahsediyosanız satırlar daime alta eklenecek.

kodu hemen deniyorum. şimdiden tskler.

 

[celikomerh]

Kodu CariListe isimli sayfanın kod sayfasına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim firmalar As Variant
    With Range("B3:B" & Cells(Rows.Count, 2).End(3).Row)
        If Intersect(Target, .Cells) Is Nothing Then Exit Sub
        If WorksheetFunction.CountA(.Cells) = 0 Then Exit Sub
        firmalar = .Value
        With Sheets("Sabitler")
            .Range("J2:J" & Rows.Count).ClearContents
            With .Range("J2").Resize(UBound(firmalar))
                .Value = firmalar
                .Sort .Cells, , , , , , , xlNo
                End With
        End With
    End With
End Sub

İstediğim gibi oldu fakat ufak bi problem var.
"cariliste"'nin en altına yeni kayıt yapıldığı zaman "sabitler" sayfasındaki ilgili sütunda sıralamada hata yapıyor. 1.satırı yani başlığı sabitleyemiyor hatta siliyor. Onun yerine 2.satırdaki veriden ikitane oluyo

 

[veyselemre]

İstediğim gibi oldu fakat ufak bi problem var.
"cariliste"'nin en altına yeni kayıt yapıldığı zaman "sabitler" sayfasındaki ilgili sütunda sıralamada hata yapıyor. 1.satırı yani başlığı sabitleyemiyor hatta siliyor. Onun yerine 2.satırdaki veriden ikitane oluyo

İlginç ilk defa başıma geliyor. Sanırım sayfanın daha önceki sort ayarları ilk çalıştırmada geçerli oluyor.
Sort.SortFields.Clear ile sildim yine aynısını yaptı.
Kod bir defa çalıştıktan sonra başlığı yerine taşıyın. İlk kez çalıştıktan sonra bir daha sorun çıkartmıyor.

 

[celikomerh]

İlginç ilk defa başıma geliyor. Sanırım sayfanın daha önceki sort ayarları ilk çalıştırmada geçerli oluyor.
Sort.SortFields.Clear ile sildim yine aynısını yaptı.
Kod bir defa çalıştıktan sonra başlığı yerine taşıyın. İlk kez çalıştıktan sonra bir daha sorun çıkartmıyor.

teşekkürler üstat, o şekilde bende de çalıştı.