adres

[crabby]

merhaba,
adres defteri ile yapmak istedigim şey şu,
yanyana 4 ayrı kutucuk(alan,liste v.s) olsun..
bunlar; Mahalle, Cadde, Sokak, Site Adı
ve ben bunlardan herhangi birine bir deger girdiğimde bana diğerlerinide listelesin. mesela sokak adını girdiğimde bana bu sokagın bağlı oldugu mahalleyi ve caddeyi göstersin istiyorum.

yardımcı olursanız cok sevinirim...

 

[crabby]

arkadaşlar bu konuda yardım edin lutfen,,,

 

[muygun]

Merhaba;
Örneksiz çözüm bulamayacağınız bir soru...
Eki inceleyin. Size fikir verecektir.
İyi çalışmalar.

 

[crabby]

öncelikle çok tesekkür ederim..
istedigim %90 oranında ekte göndermiş oldugunuz dosya ile birebir aynı,
buna ilave olarak, SÜZ tabında bulunan gri renkli alanı gizli yapabilirmiyiz acaba,
sadece üstteki ilgili arama kutucuguna herhangi bir kelime girildiğinde alttaki gri alanda sadece sonuclar görünür olsun gibi mesela..?

 

[muygun]

Merhaba;
Satır gizleme ilgili döngüden dolayı bir gecikme mevcut.
Bence crabby-adres-2 tablosunu deneyin.

Kodlar alıntıdır.
İyi çalışmalar.

 

[crabby]

Merhaba;
Örneksiz çözüm bulamayacağınız bir soru...
Eki inceleyin. Size fikir verecektir.
İyi çalışmalar.

en iyisi bu olmus elinize sağlık, (#3 nolu mesajdaki ek)
işyeri pc lerimiz dısarıdan usb baglantısına ve veri aktarımına izin vermiyor,
rica etsem bu dosyanın yapılısını anlatabilirmisiniz? simdiden tesekkurler..

 

[muygun]

Merhaba;
Kısaca işlemi açıklamak gerekirse;
süz sayfası;
4 adet textbook oluşturuldu. Oluşturulan bu textbook ların verileri aşağıdaki kodlar ile B1,C1,D1 ve E1 hücrelerine yazdırıldı.

Private Sub TextBox1_Change()
[b1] = TextBox1.Text
End Sub
Private Sub TextBox2_Change()
[c1] = TextBox2.Text
End Sub
Private Sub TextBox3_Change()
[d1] = TextBox3.Text
End Sub
Private Sub TextBox4_Change()
[e1] = TextBox4.Text
End Sub
Sonra bu hücreler mahalle,cadde,sokak ve site olarak adlandırıldı.
adlandırılan hücredeki veriler kullanılarak veri sayfasında E2 hücresinden itibaren kıyaslama yapıldı. Yani mahalle için;
EĞER(EĞER(A2="";0;EĞER(mahalle="";1;EĞER(EHATALIYSA(MBUL(mahalle;A2;1));0;1)))
formülü ile;
eğer mahalle sütununda ilgili hücre boş ise=0, değilse;
eğer mahalle adı ile adlandırılan süz sayfası B1 hücresi boş ise=1, değilse;
eğer mahalle adı ile adlandırılan süz sayfası B1 hücresine grilen karakter kadar veri veri sayfası ilgili hücresinde var ise=1 sayısal değer üretildi.
Bu işlem diğer 3 alan için tekrarlanarak bu değerler toplatıldı.
Bu toplam 4 sayısına eşit değil ise boş değer atandı.
eşit ise MAK($E$1:E1)+1) formülü ile rasyonal sayı oluşturuldu.
Artık bu sayı kullanılarak süz sayfasında A sütununa var olan veri kadar sıra no'su yazdırıldı.
Yine bu sayı ve sıra no'su kullanılarak süz sayfasında B3 : E3 aralığına İNDİS,KAÇINCI komutları ile seçilen veriler çekildi.
Biçim>koşullu biçimlendirme ile veri var ise kenarlık çizdirildi.
Bu kadar.
İyi çalışmalar.