sıralama

[dyrbkr]

Selamlar ekteki dosyayı koda göre sıralıyamadım yardımcı olurmusunuz.

 

[Levent Menteşoğlu]

Sayfa1 deki verilerinizin sicile göre sıralı olması kaydı ile size döngüsüz bir kod öneriyorum.

Sub listele()
Set s1 = Sheets("sayfa2")
Set s2 = Sheets("sayfa1")
s1.[a4:c65536].ClearContents
ilk = WorksheetFunction.Match(s1.[a1], s2.[a:a], 0)
son = WorksheetFunction.CountIf(s2.[a:a], s1.[a1]) + ilk - 1
s1.Range("a4:c" & son - ilk + 4) = s2.Range("a" & ilk & ":c" & son).Value
End Sub

 

[kombo]

Sayfa1 deki verilerinizin sicile göre sıralı olması kaydı ile size döngüsüz bir kod öneriyorum.

Sn. leventm'in affına sığınarak, onun kodlarına yeşil alanı eklerseniz sicile göre Sayfa1 de sıralama yaparsınız.

Sub listele()
[COLOR=darkgreen]Range("A1:D200").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _[/COLOR]
[COLOR=darkgreen]    , Order2:=xlAscending, Key3:=Range("D1"), Order3:=xlAscending[/COLOR]
Set s1 = Sheets("sayfa2")
Set s2 = Sheets("sayfa1")
s1.[a4:c65536].ClearContents
ilk = WorksheetFunction.Match(s1.[a1], s2.[a:a], 0)
son = WorksheetFunction.CountIf(s2.[a:a], s1.[a1]) + ilk - 1
s1.Range("a4:c" & son - ilk + 4) = s2.Range("a" & ilk & ":c" & son).Value
End Sub

 

[Levent Menteşoğlu]

Sn. leventm'in affına sığınarak, onun kodlarına yeşil alanı eklerseniz sicile göre Sayfa1 de sıralama yaparsınız.

Rica ederim Sn kombo bu tür ifadelere hiç gerek yok, her zaman gerekli ilaveyi yapabilirsiniz. Bu önce sıralama satırıda kodun açığını gidermiş oldu. Teşekkür ederim.

 

[dyrbkr]

teşekkür ederim