Excel Plakaya-Modele-İlçeye Göre Araç Takibi

[basoglanh]

Merhaba;
Arkadaşlar çalıştığım yer için gerekli bir uygulama yapacağım. En iyisi excel olacağını düşündüm. Sorunum yani yapmak istediğim şudur.

Elimde 4 adet excel dosyası var. Şu şekilde;

Ağır Araçlar - Hafif Araçlar - İş Makinaları - Taksiler

İçerikleri ise;
Ağır Araçlar içerisinde tablolarda;

Plaka - Model - İlçe - Sürücü - Yılı gibi bilgileri mevcut. Ortalama 100'er araç mevcut, herbir excel dosyasında.
Ben bir sayfada form oluşturmak istiyorum. Formda Ağır Araçları seçtik diyelim hemen bir kutu daha bu kutudanda plaka sorgulama - model sorgulama vb.. gibi bilgiler gelecek.

Örneğin plakayı yazdığımızda altta veya sağ kısımda o plakadaki aracın diğer bilgi dosyamızda yazan tüm bilgileri listelenebilsin. Aynı özellik modelini-ilçesini sürücüsünü gibi arama kriterlerini seçtiğimizde de olacak.

Bunun için izleyebileceğim yol hakkında bilgi verirmisiniz. Ücretli yaptırmak istemiyorum nedeni ise bunu öğrenmem ve bundan sonraki uygulamalarımda da kullanma gerekliliğidir.

 

[Erdal]

Siz örnek bir çalışma yapın. Takıldığınız yerlerde buradan yardım isteyin. Ayrıca tüm araçlarınızın bilgilerini tek bir excel sayfasına "Veri Tabanı" olarak aktarırsanız ve bunun üzerinde çalışırsanız işlem yapmanız daha kolay olur.

 

[basoglanh]

Merhaba;

=DÜŞEYARA(A3;Sayfa1!A3:Sayfa1!C9;3 ile yapmaya çalışıyorum ama sadece ilgili satırda yazanı alıyor. Ben hangi plakayı girersem onu almasını istiyorum. Ekte bulunan dosyada sayfa 2'de plaka kısmına yazdığımızı çekiyor, fakat diğer plakaları çekmiyor. Sadece o hücrede bulunan bilgileri çekiyor. Burdan yola çıkarak yardımcı olabilirmisiniz.

Yapmaya çalıştığım excel dosyası: Burada

 

[vardar07]

Merhaba. Erdal Arkadaşa ek olarak üç beş dosya ile uğraşmaktansa veri tabanı uygulamalarını araştırmanızı öneririm. Excel dosyanızın bozulma ihtimali var. Kullandığınız office programına göre Access ile yapmanız daha uygun ve güzel olur.

 

[Erdal]

Merhabalar
Ekli dosyayı inceler misiniz.
http://www.yukletr.com/download.php?file=65a74bddbc61096a309fed36f08f9110

 

[vardar07]

Tek sayfada tüm verileri görebilirsiniz Ayrıca arama kutusuna ister plaka, ister isim vb ne yazarsanız listeler.

 

[Erdal]

Tek sayfada tüm verileri görebilirsiniz Ayrıca arama kutusuna ister plaka, ister isim vb ne yazarsanız listeler.

Merhabalar Sayın vardar07
Çok güzel bir paylaşım da bulunmuşsunuz. Emeğinize sağlık. Yaptığınız program “içerir” mantığıyla kelime veya harfe göre arama yapıyor. Acaba yine aynı userform üzerinde bunlara ilave olarak “ile başlayan” mantığıyla arama ekleyebilirmiyiz. Saygı ve selam ile …

 

[vardar07]

Açılışta "harfe göre ara" seçeneği işaretli olduğu için içerie arıyor."kelimeye göre ara" seçeneğini seçerseniz tam eşleşme ile çalışır. Denedinizmi?

 

[Erdal]

Açılışta "harfe göre ara" seçeneği işaretli olduğu için içerie arıyor."kelimeye göre ara" seçeneğini seçerseniz tam eşleşme ile çalışır. Denedinizmi?

Benim demek istediğim şuydu; ara kutusuna "h" yazdığımda sadece "h" ile başlayanları listeleyecek. Şu anki durumda h yazıp kelimeye göre aratırsam hiç sonuç çıkmıyor. Harfe göre aratırsam fazla sonuç çıkıyor. Ben sadece "hasan-hüseyin-hafif araç" sonucunun çıkmasını istiyorum. Saygı ve selam ile...

 

[vardar07]

Anlaşıldı. Cep telefonundan müdahale edemiyorum. Eve varınca bakabilirim.

 

[vardar07]

Merhaba. Private Sub CommandButton1_Click() kodlarını komple silip aşağıdakini ekleyip denermisiniz.?

Private Sub TextBox1_Change()
CommandButton1_Click
End Sub

Private Sub CommandButton1_Click()
If TextBox1 = "" Then MsgBox "aranacak değeri yazmadınız.?": Exit Sub
Set sh = Sheets(ActiveSheet.Name)
If OptionButton1.Value = True Then
ad = TextBox1.Text
yer = xlFormulas
yer1 = xlPart
Else
ad = TextBox1.Text & "*"
yer = xlValues
yer1 = xlWhole
End If
ListView1.ListItems.Clear
sat = 0
x = 0
If WorksheetFunction.CountA(Sheets(ActiveSheet.Name).Cells) > 0 Then
satır = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sutun = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Else
satır = 1
sutun = 1
End If
With sh.Range(Cells(2, 1), Cells(satır, sutun))
Set d = .Find(What:=ad, After:=.Cells(.Cells.Count), LookIn:=yer, lookat:=yer1, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not d Is Nothing Then
FirstAddress = d.Address
Do
If Val(d.Row) > sat Then
sat = d.Row
x = x + 1
ListView1.ListItems.Add , , d.Row
With ListView1.ListItems(x).ListSubItems
For r = 1 To sutun
.Add , , sh.Cells(d.Row, r)
If r = d.Column Then
ListView1.ListItems(x).ListSubItems(d.Column).ForeColor = 255
End If
Next
End With
Else
End If
ListView1.ListItems(x).ListSubItems(d.Column).ForeColor = 255
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
End If
End With
Set sh = Nothing
End Sub

 

[Erdal]

Teşekkür ederim. Hakkınızı helal edin.

 

[vardar07]

İşinize yaradı ise ne mutlu.Helal olsun.

 

[basoglanh]

Sayın Erdal ve vardar07 ilgi ve alakanız için çok teşekkürler. Sadece excel üzerindenmi yapıldı bu işlemlerin tamamı. Düzenleme ve eklemeler için ne gibi bir yol izleyebilirim.
vardar07 eklediğiniz dosyayı altın üyelik nedeniyle indiremedim.

Edit: Altın üyelik için gerekli ödemeyi gerçekleştirdim.

 

[basoglanh]

vardar07 ben verdiğiniz dosyayı malesef çalıştıramadım. "Form Aç" tıkladığımda kod sayfasına yönlendiriyor beni. Excel 2013 kullanıyorum.

Edit: Missing işaretini kaldırdım, 2007'de çalışıyor fakat 2013'te çalışmıyor. Tüm sürümlerde uyumu sağlamak için ne yapılabilir.

 

[vardar07]

vardar07 ben verdiğiniz dosyayı malesef çalıştıramadım. "Form Aç" tıkladığımda kod sayfasına yönlendiriyor beni. Excel 2013 kullanıyorum.
Edit: Missing işaretini kaldırdım, 2007'de çalışıyor fakat 2013'te çalışmıyor. Tüm sürümlerde uyumu sağlamak için ne yapılabilir.

Merhaba. Ben 2007 kullandığım için 2010 ve üzerinde nasıl olur bilmiyorum. Ancak bazı makalelerde office de 32 bit 64 bit olayı var incelemenizi tavsiye ederim.

 

[polis-53]

Merhaba sayın vardar07 ben formu açamıyorum aşağıdaki hatayı veriyor.


Çalışma zamanı hatası '424': Nesne gerekli hatası

 

[systran]

kullandığınız ofis 64 bitlik mi? Eğer öyleyse örnekte ListView nesnesi kullanıldığı için nesne gerekli hatası alırsınız, maalesef bildiğim kadarıyla 64 bitlik ofislerde Listview nesnesi çalışmıyor, 32 bitlik sürümde de aynı hatayı alırsanız mscomctl2.ocx dosyasını register edince problem çözülüyor. sıkıntı olmuyor. Aynı sorunu bende çözemedim, bende 64 bitlik versiyon kurulu.

 

[polis-53]

cevabınız için teşekkür ederim

 

[Korhan Ayhan]

Zeki beyin bununla ilgili ücretli bir çalışması var. Kullanmak isteyenler alttaki linkten edinebilirler.

https://www.excelarsivi.com/uygulama/program/exeuygulama/excel-vba-32-64-bit-listview-ve-dtpicker-uygulamasi/