otomatik sıralama

[murat42]

ekte gönderdiğim dosyada yanlarına tarih girilen kişilerin otamatik olarak alt alta sıralabmasını istiyorum yardımlarınınz için şimdiden tşşkr ederim...

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1 üzerinde bir butona bağlayarak çalıştırın.

[vb:1:968dae8dfa]Sub listele()
[a3:c65536].ClearContents
For a = 2 To [h65536].End(3).Row
If CLng(Cells(a, "i")) = CLng([e2]) Then
sonsat = [b65536].End(3).Row + 1
Cells(sonsat, "a") = sonsat - 2
Cells(sonsat, "b") = Cells(a, "h")
End If
If CLng(Cells(a, "j")) = CLng([e2]) Then
sonsat = [c65536].End(3).Row + 1
d = d + 1
Cells(sonsat, "a") = sonsat - 2
Cells(sonsat, "c") = Cells(a, "h")
End If
Next
End Sub
[/vb:1:968dae8dfa]

 

[murat42]

sayın leventm öncelikle kurban bayramınızı kutlarım bana yardım ettiğiniz için teşekkür ederim. dediğiniz gibi kodu bir butona bağladım ve istediğim mi aldım size çok minnettarım.Çalışmalarınızda başarılar dilerim. :bravo: :bravo: :bravo:

 

[murat42]

lütfen yardım leventm

Sevgili leventm;
vermiş olduğunuz kodu uyguladım şimdide bir eksiğim daha olduğunu düşünüyorum,
sizden bir ricam daha olacak bilirsiniz biz türkler hep daha iyisini yapabilmek için daha iyiye gidebilmek için yaptıklarımızı geliştirmeye çalışırız lütfen ekteki dosyayı inceleyip bana yardım edebilirmisiniz....
şimdiden teşekkür ederim.