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...
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]
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:
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.