otomotik rakama göre sıralama

[Yesilyurtlu]

üstadım hayırlı cumalar
ekli listede b sütununda yer alan rakamı "B4:R65536" küçükten büyüğe doğru
R sütununda enterleyince sıralatmak mümkün mü?

Yardımcı olabilir misiniz?

 

[Emir Hüseyin Çoban]

Merhaba, şuanda sayfanızdaki kodlar zaten sıralama işlemi yapıyor. Sizin istediğiniz sadece R sütununda değişiklik yapınca mı sıralasın.
Öyle ise aşağıdaki kodları deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("r4:r65536")) Is Nothing Then
    Range("B4:r65536").Sort key1:=Range("C9"), ORDER1:=xlAscending
    MsgBox "Sıralama Yapıldı", vbInformation
End If
End Sub

 

[Yesilyurtlu]

Hüseyin Abi
B Sütununda yer alan
150.01.08
150.01.05
150.01.03
150.01.07
150.01.01
150.01.04
150.01.02

rakamları
150.01.01
150.01.02
150.01.03
150.01.04
150.01.05
gibi sıralayarak dizmesini talep etmiştim. Sana zahmet abi bir bakabilirmisin?

 

[Emir Hüseyin Çoban]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("r4:r65536")) Is Nothing Then
        Range("b4:R65536").Sort Key1:=Range("B4"), Order1:=xlAscending
        MsgBox "Sıralama Yapıldı", vbInformation
    End If
End Sub

 

[Yesilyurtlu]

Hüseyin Abi Ellerine sağlık

Teşekkür Ederim. Hakkını Helal Et İnşallah

Hayırlı Cumalar

 

[yenibirsevgiCOM]

merhaba, iki konuda yardım bekliyorum,
1- A1,B1,C1 .... (seçildiği kadar) hücrelerinin, biçimlendirme ile renkli hale gelmiş olanlarını rengi ne olursa olsun istenilen hücre içine saysın.

2- A1,B1,C1....
A2,B2,C3....
A3,B3,C3....
.
.
.
seçildiği kadar kısımdaki hücrelerin dolgusuz (renksiz) olanlarının içindeki veriyi silip A1,A2,A3 ..... hücrelerinin içindeki dolgulu (renkli) olarak kalan verileri de küçükten büyüğe doğru sıralasın.

bu mümkün müdür acaba? şimdiden teşekkürler...