sıfır olan malların sıralanması

[engam]

150 kalem mal takibinde buton koydum.butona bastğımda 0 olan malları isimleriyle beraber sıralamasını istiyorum.buton için kod a ihtiyacım var. dosya ektedir. saygılar

 

[Kemal Demir]

Sn.engam,

Benim size Önerim Eğer Kabul Ederseniz.

Başlangıcta ki sıralama baz alınarak ilk kolondaki değerlerin ilgili hücreleri yazdıralım.

Tabi Bir Öneridir.

Sub Ekle_Sortla()
For x = 4 To [a65536].End(3).Row
Cells(x, 2) = Cells(x, 2) & "/" & Cells(x, 1)
Cells(x, 3) = Cells(x, 3) & "/" & Cells(x, 1)
Cells(x, 4) = Cells(x, 4) & "/" & Cells(x, 1)
Cells(x, 5) = Cells(x, 5) & "/" & Cells(x, 1)
Cells(x, 6) = Cells(x, 6) & "/" & Cells(x, 1)
Cells(x, 7) = Cells(x, 7) & "/" & Cells(x, 1)
Cells(x, 8) = Cells(x, 8) & "/" & Cells(x, 1)
Next
[a1].Select
Range("B4:B20").Select
    Selection.Sort Key1:=Range("B4")
    Range("c4:c20").Select
    Selection.Sort Key1:=Range("c4")
    Range("d4:d20").Select
    Selection.Sort Key1:=Range("d4")
    Range("e4:e20").Select
    Selection.Sort Key1:=Range("e4")
    Range("f4:f20").Select
    Selection.Sort Key1:=Range("f4")
    Range("g4:g20").Select
    Selection.Sort Key1:=Range("g4")
    Range("h4:h20").Select
    Selection.Sort Key1:=Range("h4")
End Sub

Yukarıdaki kodu calıstır denermisiniz.

Umarım Önerimi Beyenirsiniz.

 

[engam]

hata gösteriyor

çalıştırdım ama hata verdi

 

[Kemal Demir]

engam

çalıştırdım ama hata verdi

Bende Bir Problem Yok.Tekrar Deneyebilirmisiniz.

 

[engam]

örnek dosya

problem veriyor.örnek dosya koyabilirmisiniz.

 

[Kemal Demir]

Dosyayı inceleyiniz.