suçlu sürücü 2009 yılı trafik cezaları programı-Örnek amaçlı çalışma

[cems]

Değerli dostlar , değerli excel.web.tr üyeleri ,

Ekte bulunan 2009 Yılı trafik cezaları programını iki nedenle hazırladım :

Öncelikle ; sürücülerin kendisi veya kurum olarak ,alınmış olunan trafik cezalarının açıklamalarını bu program sayesinde çabucak görebilir.
İkinci olarak ,bu çalışmayı birkaç fonksiyon ve kısa bir Vba için örnek olarak hazırladım .

Umuyorum ki bazı arkadaşlarımız için bu yönden başka arkadaşlarımız için de diğer yönden
faydası olur.

Sayfalarda veya Vba kısmında şifre yoktur.Boş olarak geçmeniz yeterli veya tekrar
bunları kapatmak istediğinizde kendi şifrelerinizi veya ikonlarınızı yerleştirebilirsiniz.

PROGRAM GELİŞTİRİLDİ ...
Ekte bulunan "suçlu sürücü 2009 yılı trafik cezaları programı" na userform üzerinde WEBBROWSER ile , direk olarak SÜRÜCÜ CEZA PUANI / EHLİYET İPTALİ , ARAÇ SORGULAMA ve TC KİMLİK SORGULAMA sayfaları alınarak bu bilgilere ulaşmak kolaylaştırıldı.

 

[cems]

Bu çalışmanın iki sayfası vardır.
Birinci sayfada T.C. Emniyet Müdürlüğü'ne ait http://www.egm.gov.tr adresinde yayınlanan 2009 trafik ceza listesi bulunmakta ,
ikinci sayfada ise ceza puanına bakarak diğer bölümleri düzgün görünecek şekilde sunan DÜŞEYARA fonksiyonu bulunmakta...

Bu çalışmada kullanılan fonksiyon ve kodlar şu şekildedir:

1-Veri doğrulama :
Sayfa2 de b4 karesine , ekle-ad-tanımla yolu ile sayfa1 deki a:a sütunu getirilerek adlandırıldı ve bu ad
veri-doğrulama-liste ( =cezano) olarak alınıp açılır liste yapıldı.

2- Tek Vba kodlaması ;

Workbook 'a bir Modül ekleyerek içinde ,

Sub auto_open()
Sheets("sayfa2").Select
Range("c4").Activate
MsgBox "Lütfen ceza maddesi hücresine tıklayarak ilgili maddeyi seçiniz...", vbInformation, "Seçmeniz gerekli"
End Sub

ile sayfa iki otomatik olarak açılışta getirilerek MsgBox ile yapılması gereken işlev uyarısı gelmektedir.

3-C4 hariç tüm hücrelere biçim-hücre-kilit(kaldırıldı) diğerleri ise kilitli ve gizli işaretlenerek bırakıldı.
Bunun nedeni veri gelen hücrelere tıklandığında formül görünmemesini sağlamak oldu.

4-DÜŞEYARA fonksiyonu yardımı ile ceza madde no'suna isabet eden veriler yanyana durumdan altalta duruma getirildi.

5-Menü çubuğunda sağ tıklanarak görünen ikon menülerin çoğu kaldırıldı.

6-Araçlar-seçenekler'den alt ve sağ kaydırma çubukları , satır ve sütun başlıkları ,formül çubuğu,
sayfa sekmeleri görünümden çıkarıldı

7-Araçlar-koruma- (boş) olarak tıklanarak sayfa şifresiz korundu.

8-Araçlar-Çalışma kitabını paylaştır seçilerek ( boş ) olarak ok verip çalışma kitabı paylaştırıldı ve birden
çok kişi tarafından aynı anda kullanılır halde bırakıldı.

Yapılanları geriye doğru adımlayarak paylaştırma veya korumayı kaldırabilirsiniz.

Açıklamayı unuttuğum bir yer varsa , veya farketmediğim hatalarım varsa ikaz ederseniz anlatır ya da düzeltirim.

Saygılar.

 

[cems]

Program geliştirildi ...

Trafik cezalarına ek olarak gelen fonksiyonlar ;
userform üzerinde WEBBROWSER ile
Sürücü Ehliyet Ceza puanı soruşturma
Sürücü ehliyet iptal soruşturma
TC Kimlik No soruşturma

Eklendi ve 1ci Mesajdaki dosya güncellendi . Tekrar not ediyorum ki , hiç bir sayfada ya da Vba da şifre yok , boş olarak şifrelendi ...

 

[Altay3555]

ne diyelim kardeş.
harika bir çalışma olmuş.
elinize,emeğinize sağlık.

 

[cems]

Teşekkur ederim Altay3555

 

[parametre]

calısma guzel ama kodlara bakmak istiyoruz ve goremiyoruz neden olabilir aceba sifreledinizmi yada nasıl gorebiliriz

 

[cems]

Hiç bir yerde şifre yok ... İkinci mesajdaki uygulamaları tersine uygulayın açılır... Kod yok sayılır.
Bu şekilde , anında kullanılabilir olması için yaptım . Ama açamam derseniz , uygulamaları açık kopyasını da yüklerim

 

[makan]

Süper olmuş sayın cems. Emeğinize sağlık.

 

[cems]

İşinize bir şekilde yarayacağı ümidiyle , sağolun

 

[memoli79]

emeğinize sağlık harika olmuş

 

[single27]

ellerin dert gormesin kardeş çok güzel bir çalışma olmuş

 

[skat]

Ellerine sağlık

 

[cems]

İşlerimdeki yoğunluk nedeni ile siteye uğrayamadığım süre içinde bu konuya cevap yazan bütün arkadaşlara teşekkür ederim.
Umarım bu şekli ile ya da değiştirilerek kullanılarak işinize yardımcı olur.