Kaydet Sorunu Lütfen Yardım Edin

[eldieblo]

MErhaba internette gördüğün telefon defteri isimli bir uygulamanın üzerinde oynama yaparak ve geliştirerek ekte upload ettiğim kayıt formunu yapmaya çalıştım. yalnız isimleri kayıt ederken bir sorunu çözemiyorum excel listesini isim sırasına göre dizxiyor diyelim ki yeni ekleyeceğim bilgiler alfabetik sıraya göre önceki iki kayıtın arasına giriyor. kayıt et dediğimde bir yere kadar (upload ettiğim örnekte G:3'e kadar) doğru kaydediyor bir yerden sonra liste karışıyor alfabetik sıraya göre düzeltmiyor en altta kalıyor. Lütfen bu sorunu çözer misiniz? ben elimden geldiince kod öğrene öğrene bir şeyler eklemeye çaşlıştım ama bu sorunu bir türlü çözemedim.. Yardımlarınız iiçin şimdiden teşekkür ederim. bu arada kayıt sırasında excel listesini alfabetik sıraya göre yeniden düzenlemese de olur ben sonra onu filtreleme ile yaparım. ayrıca yeni bir sayfa eklediğimde program açılmıyor bunu da düzeltirseniz sevinirim sayfa2 diye açlışma sayfası eklemek istiyroum.

 

[asi_kral]

MErhaba internette gördüğün telefon defteri isimli bir uygulamanın üzerinde oynama yaparak ve geliştirerek ekte upload ettiğim kayıt formunu yapmaya çalıştım. yalnız isimleri kayıt ederken bir sorunu çözemiyorum excel listesini isim sırasına göre dizxiyor diyelim ki yeni ekleyeceğim bilgiler alfabetik sıraya göre önceki iki kayıtın arasına giriyor. kayıt et dediğimde bir yere kadar (upload ettiğim örnekte G:3'e kadar) doğru kaydediyor bir yerden sonra liste karışıyor alfabetik sıraya göre düzeltmiyor en altta kalıyor. Lütfen bu sorunu çözer misiniz? ben elimden geldiince kod öğrene öğrene bir şeyler eklemeye çaşlıştım ama bu sorunu bir türlü çözemedim.. Yardımlarınız iiçin şimdiden teşekkür ederim. bu arada kayıt sırasında excel listesini alfabetik sıraya göre yeniden düzenlemese de olur ben sonra onu filtreleme ile yaparım. ayrıca yeni bir sayfa eklediğimde program açılmıyor bunu da düzeltirseniz sevinirim sayfa2 diye açlışma sayfası eklemek istiyroum.

Merhaba
Unitalize'deki

Range("A2:G" & Sayfa1.Range("E500").End(xlUp).Row).Sort Sayfa1.Range("A2")

Bu kodu

Range("A2:G" & Sayfa1.Range("E" & Rows.Count).End(xlUp).Row).Sort Sayfa1.Range("A2")

bununla değiştirip dener misiniz_?

 

[eldieblo]

Çok teşekkür ederim mantığını çözdüm oradaki A2:G ifadesi gye kadar sort komutu veriyor ben onu a2:y yaptım sorun çözüldü ... çok sağollun

 

[asi_kral]

Çok teşekkür ederim mantığını çözdüm oradaki A2:G ifadesi gye kadar sort komutu veriyor ben onu a2:y yaptım sorun çözüldü ... çok sağollun

Ben yanlış anlamışım G sütununa kadar zannetmiştim verileri
Kolay Gelsin.