Excelde otomatik sırala hk

[vesak]

slm arkadaşlar bu siteye emeği geçenlere çok tşk.çok faydalandım sorum şu ekteki tablodada görüleceği gibi satıcalar listesi oluşturdum ancak her defasında ünvana göre sıralama yaptırmam gerekiyor ben kayıt yaptıkça otomatik olarak ünvanları sıralama yaptırabilirmiyiz.tşk.

 

[Necdet]

Merhaba,

Dosyanızda küçük bir değişikliği kabul ederseniz aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyebilirsiniz.

A sütununa fonksiyon ekledim, sıra numarası otomatik verilir.
Siz sadece b ve c sütunu yazacaksınız. C sütununa bağlı olarak kod sıralama yapar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Target.Offset(0, -2).FormulaR1C1 = "=ROW()-1"
Range("B2:C" & [B65536].End(3).Row).Sort Key1:=[B1]
End Sub

 

[vesak]

slm necdet bey çok tşk ilginize ama kod hata verdi
Range("B2:C" & [B65536].End(3).Row).Sort Key1:=[B1]

 

[seismic]

Sayın vesak, bilgisayarınızdaki exd dosyalarını bulup, silin ve dosyayı tekrar çalıştırmayı deneyin. Bunun için windows'un arama fonksiyonundan yararlanıp *.exd diye tarama yaptırabilirsiniz. Aynı hatayı ben de aldım ve bu şekilde düzelttim.

 

[Necdet]

Merhaba,

Merak ettim Sayın seismic, bu exd türü dosya neyin nesidir?
Sayın vesak, hata vermemesi gerek diye düşünüyorum, isterseniz özgün dosyanızı kod ile birlikte ekleyin uzman arkadaşlar incelerler.

 

[seismic]

Microsoft Office 2000 ve üzeri versiyonlarda, user form gibi objeler eklendiğinde oluşturulan bir nevi temp dosyaları diye biliyorum. Bu tür dosyaları Word, Powerpoint, Ecxel ve ActiveX uygulamaları kullanıyor. Bahsi geçen sorun benim bilgisayarımda da oluştu ve tarif edilen satırda hata verdi. Arama yapıp 4 adet dosya sildim ve sorun düzeldi. Dosyaları çöp kutusuna yollamadığım için isimlerini veremiyorum ama hatırladığım bir tanesinin ismi "MsForms.exd" idi. Yanlış yönlendirme yapmış olmayayım ancak dediğim gibi, bire bir yaşadığım bir sorundu.

Bu arada, sayın vesak deneyip sonucu yazarsa diğer arkadaşlar da faydalanabilir diye düşünüyorum.

 

[Excelance]

The first time you insert a control into a document or UserForm, the Office program creates an .exd file for that control in the appropriate folder. After a program creates the .exd file for a specific control, it takes less time to insert the same control again. This is because the .exd file caches information for the control.

The program that creates the .exd files does not delete them when you quit the program. The next time you start the same program and insert the same control, the .exd files are still available for the program to use.

If you delete any of the folders listed above, or any of the .exd files they contain, you do not receive any error messages, and no problems occur. However, you may notice a slight decrease in performance the first time you insert a control because the .exd file for that control does not exist. After the program recreates the .exd file, you can reinsert the control with improved performance.

http://support.microsoft.com/kb/199830 linkli sayfadan alıntıdır, Syn. Seismic'i destekler. Teşekkürler.

 

[Necdet]

Merhaba,

Açıklamalarınız için teşekkürler, bilmiyordum. Acemelik işte öğreniyoruz yavaş yavaş

 

[Excelance]

Aman Hocam, Saygılar Bizlerde sizlerden nasipleniyoruz Allah razı olsun

 

[seismic]

Estağfirullah sayın Yeşertener, asıl biz sizden çok şeyler öğreniyoruz. Zaten bu sitenin kurulma amacı ve asıl önemli olan da bilgi alış-verişi değil mi? Buraya yazan en acemi excel kullanısının bile, bizim bilmediğimiz ama onun dikkatini çeken bir nokta vardır diye düşünüyorum. Aynı zamanda, yardımcı olabildiysem ne mutlu bana. Teşekkür ediyor, hayırlı ramazanlar diliyorum...!!!

 

[ofbalki]

Sub Sirala()
Range("B3:IV65000").Sort _
Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers
End Sub


Sayın vesak, dosyadan çok fazla bişey anladığımı söyleyemem ama, yukarıdaki makroyu, herhangi bir module kopyalarsanız daha sonra da, formunuzdaki kayıt düğmesinin kod bölümünde "End Sub" dan önce "Call Sirala" yazarsanız istediğiniz sıralamayı otomatik yapar.

Haaa unutmadan söyliyim, "Toplam" satırını en sona değilde, 2. satıra alın.

İyi çalışmalar...

 

[vesak]

slm.yakın ilginize ve bu mesaja katılanlara çok tşk.sorunum yukarıda necdet ve seismic arkadaşın katkıları ile düzeldi sayın ofbalki sizede ayrıca tşk.ederim.

 

[ersoyalan]

Necdet hocam merhaba,

Ekli dosyanızı indirip açtığımda excel donuyor bunun sebebi ne olabilir acaba..?

Syg,
E.ALAN

 

[Necdet]

Merhaba Sayın ersoyalan,

Ben orijinal dosyayı kullandım, onun da içinde form ve modüller vardı,

Acaba Sayın vasak'ın dosyasını (ilk mesajdaki) açtığınızda da aynı sorunla karşılaşıyor musunuz?

 

[ersoyalan]

Hayır hocam aynı sorunla karşılaşmıyorum.

 

[ersoyalan]

Hocam verdiğiniz kodu kendim başka dosyada kullanınca problem olmuyor...
Syg.

 

[Necdet]

acaba winzipin içindeyken açtığınızda mı çalışmıyor olabilir? bir dizine çıkarıp dener misiniz?

 

[ersoyalan]

Zip içinden çıkartıp deniyorum zaten hatta az önce birde dll hatası verdi..dosyada oluşan bir hata olabilir..Sizin vermiş olduğunuz kodları ben başka dosyada denedim düzenli bir şekilde çalışıyor..

 

[Necdet]

Siz öyle deyince bende siteden indirdim ve denedim bende doğru çalıştı bir hata vermedi.

Belki geçici bir hata oluşmuştur. Başka dosyada çalıştıysa sorun yoktur.
Bu arada muhabbet etmiş olduk Sayın ersoyalan

 

[ersoyalan]

Evet hocam doğru söylüyorsunuz..Gerçektende pazertesi başlangıcı için güzel bir muhabbet oldu..

İyi çalışmalar.
E.ALAN