Excel Menü Yapma

[hakans]

Merhabalar,
Excelde Biraz Yardıma İhtiyacım var yardımcı olursanız çok sevinirim.

Verilerim Şu Şekilde

doğum tarihi doğum yeri
ahmet 1 a
mehmet 3 b
ali 4 c
veli 5 d


1.)Visual Basic Denetim Araç Kutusu Kutusu Metin Kutusundan Metin Kutusunu arkaplan olarak ayarlayabilirmiyim ayarlarsam nasıl pasif hale getiririm mouse ile üstüne geldiğimde pasif değil.
Arkaplan (Menü arkaplanı için daha iyi bir seçenek varmı)

2.Menüdeki kriterim doğum yeri olacak menüden seçildiğinde başka bir sayfaya istanbulda doğanların bilgilerini çıkaracak ve oraya gidecek.

Bunları nasıl yaparım acaba?



http://www.hizliupload.com/img/698811menu.JPG

 

[fedeal]

veri sayfasında isim-doğumtarihi-dogumyeri adlı üç sütun olsun burda verilerinizin tamamı var diyelim.tablo sayfasına sonucu yazılacaksa karma kutunun oldugu sayfanın kod bölümüne;

Private Sub ComboBox1_Change()
Sheets("tablo").Range("A2:C10000").ClearContents
For i = 2 To Sheets("veri").Range("A65536").End(xlUp).Row
If ComboBox1.Text = Sheets("veri").Cells(i, 3).Value Then
son = Sheets("tablo").Range("A65536").End(xlUp).Row + 1
For t = 1 To 3
Sheets("tablo").Cells(son, t).Value = Sheets("veri").Cells(i, t).Value
Next
End If
Next
End Sub

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.Enabled = True
End Sub

Private Sub Worksheet_Activate()
ComboBox1.Enabled = False
ComboBox1.ListFillRange = "veri!c2:c" & Sheets("veri").Range("A65536").End(xlUp).Row
End Sub

sorularınızı örnek dosyayla desteklerseniz daha net ve çabuk cevaplar albilirsiniz,iyi çalışmalar.

 

[hakans]

Üstad Merhaba,
Kusura Bakma Ben Anlamadım Dosyayı Ekledim.
Yardımcı Olursanız Çok Sevinirim.
İstenen Birçok Veri var ama Bir tane örnek yapabilirseniz Ben bakarak diğerlerini Yaparım. İstenen veriler tablo sayfasında başlıkları yazdım. Seçilen ildeki personel bilgileri

Ayrıca Menü Arkaplanını Nasıl Pasif yapıyoruz onuda anlamadım.

 

[fedeal]

Dosyanız ekte,iyi çalışmalar.

 

[hakans]

Çok Teşekkür ederim ellerinize sağlık.