• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

B

basoglanh

Katılım
9 Aralık 2012
Mesajlar
5
Excel Vers. ve Dili
2011
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.
 
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.
 
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
 
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.
 
Tek sayfada tüm verileri görebilirsiniz Ayrıca arama kutusuna ister plaka, ister isim vb ne yazarsanız listeler.
 

Ekli dosyalar

vardar07' Alıntı:
Tek sayfada tüm verileri görebilirsiniz Ayrıca arama kutusuna ister plaka, ister isim vb ne yazarsanız listeler.
Genişletmek için tıkla ...

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 …
 
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?
 
vardar07' Alıntı:
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?
Genişletmek için tıkla ...

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...
 
Anlaşıldı. Cep telefonundan müdahale edemiyorum. Eve varınca bakabilirim.
 
Merhaba. Private Sub CommandButton1_Click() kodlarını komple silip aşağıdakini ekleyip denermisiniz.?
Kod: 
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
 
Teşekkür ederim. Hakkınızı helal edin.
 
İşinize yaradı ise ne mutlu.Helal olsun.
 
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.
 
Son düzenleme:
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.
 
Son düzenleme:
basoglanh' Alıntı:
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.
Genişletmek için tıkla ...

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.
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst