basit telefon rehberi yapmak istiyorum

[canerkan]

isimden numara & numaradan isim sorgulaması yapabilecek bi rehber hazırlamak istiyorum bu işte yeniyim ustatlardan yardım bekliyorum
saygılar..

 

[alpi]

VBA’da Kod Düzeni ve Kod Yazmaya Dair İpuçları

 

[canerkan]

ilginize çok teşekkür ederim yanlız buton olsun istemiyorum yani dahiliyi bilen bir kişi örn :1200 tuşlamaya başladığında ait olan aboneyi karşısına getirsin.
aynı şey isim içinde olsun.acaba mümkünmü böyle bişey

 

[canerkan]

basit demiştim değilmiş galiba çözemedim gitti yahu ama pes etmek yok

 

[mustafa155]

kardeş, örnek bir form oluşturup soruna eklersen, yardım edecek arkadaşlar için kolaylık olur

 

[canerkan]

kardeş, örnek bir form oluşturup soruna eklersen, yardım edecek arkadaşlar için kolaylık olur

mustafa bey pek iyi bir örnek değil ama ektedi gibi bişey

 

[alpi]

Örnek dosyanızdaki formun kod editörünü açıp aşağıdakileri yazınız.

Private Sub ComboBox2_Click()
    ComboBox1.ListIndex = ComboBox2.ListIndex
End Sub
Private Sub ComboBox1_Click()
    ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub
Private Sub UserForm_Initialize()
    Dim Say As Long
    Say = WorksheetFunction.CountA(Sayfa1.Range("A1:A65536"))
    ComboBox2.RowSource = "'" & Sayfa1.Name & "'!A2:A" & Say
    ComboBox1.RowSource = "'" & Sayfa1.Name & "'!B2:B" & Say
End Sub

 

[canerkan]

müthişsiniz çok teşekkür ederim

 

[hdmch]

kot dediginiz nedir

nasıl girilir bilgilendirirseniz sevinirim

 

[alpi]

nasıl girilir bilgilendirirseniz sevinirim

Aşağıdaki konuları inceleyiniz
Excelde Makro (Kaydetmek, Düzenlemek (Macro))1
Kod Yazmayı Öğreniyorum
Excel'de Form (Oluşturmak, Nesnelerle İlişkilendirmek)
VBA’da Kod Düzeni ve Kod Yazmaya Dair İpuçları

 

[canerkan]

sayın alpi ufak bi hata daha var türkçe karakterlerde problem çıkıyor,yani isimde türkçe karakter varsa numarayı getirmiyor..saygılar

 

[alpi]

Kodların bulunduğu sayfanın en üstüne

Option Compare Text

yazın.

 

[canerkan]

yapamadım olmuyor beceremedim ekledim,sana zahmet bi göz atıversen
çoooook iyisin...eyvallah

 

[canerkan]

özür dilerim ekleyememişim

 

[alpi]

Dosyanız ekte.

 

[canerkan]

teşekkürler..

 

[canerkan]

alpi abicim
ismin birden fazla dahilisi olduğunda hepsini getirebilirmiyiz..
ilgine teşekkürler

 

[memo3206]

indiremıyoruzzzz kı nasıl ındırecezz

 

[Burak01]

Bu dosyaları yenilemek mümkün müdür ?

 

[ssdestek]

isimden numara & numaradan isim sorgulaması yapabilecek bi rehber hazırlamak istiyorum bu işte yeniyim ustatlardan yardım bekliyorum
saygılar..

+++++++++++++++++++++++++++++++++++++++++++++++++++++++

merhaba,
sana kendim çok üğraşarak yazdığım profesyonel bir proğram veriyorum.
bana duacı ol yeter.

burada fh sayfa ismini değiştirmek istiyorsan C1 hücresine kendine özel yazacağın dosya ismi ile aşağıda sol alt köşede yazacağın isimler aynı olmalıdır.

yine fh sayfasındaki 2. satırda yer alan başlıkları kendine göre değiştirebilirsin (Örneğin Ünvan, telefo .... vb.)

satır 8 de yer alan hücrelere ....İLE BAŞLAYANLARI bulur, satır 9 da ise İÇİNDEN ...... GEÇEN kelimeleri bulur ve bulduğu ilk 5 değeri 3 ve 7. satırlara (üste) yazar, devamını veya tamamını görmek istiyorsanız "Diğer sonuçlara bakın... "linkine tıklayın,

örnek; ilk 2 baş harfı me ile başlayanları bul dediğinizde yapmanız gereken 8. satırda istediğiniz alanda me yazmanız, veya ilk harfı m ile başlayanlar için sadece m yazıp ENTER e basmanız, veya telefon hanesinde 212 ile başlayanları bulmak için ilgili hanenin 8. satırına 212 yazıp ENTER e basmanız,
hepsi bu...

birde aynı anda iki değere göre çapraz sorgulama yapabilirsiniz, örnek, sadece ÜNVAN için me ile başlayan ve TELEFON hanesinde 212 ile başlayanları bul dediğinizde ilgili haneleri doldurun ENTER e basın. sadece bu iki kriterleri içerenleri bulur