Bir başka sayfadan otomatik tamamlama

[huseyinvurkan]

Merhaba arkadaşlar. Okul için hazırladığım gelir gider defterinde "OKUL" isimli sayfada B sütunu Sınıf şube C sütunu okul no D sütunu ise D2 den itibaren öğrencinin adı soyadı var. Ben "GELİR" sayfasında C5 ten aşağı doğru öğrencinin adını soyadını yazarken OKUL isimli sayfadanki D sütunundan isimleri getirip tamamlama yapabilirmiyiz. Benzer dosyaları inceledim ama istediğim gibi bir şey yapamadım. Şimdiden teşekkürler

 

[Necdet]

Merhaba,

Forumda Veri Doğrulama olarak arama yapınız.

 

[huseyinvurkan]

Necdet Hocam bu güne kadar bilgi ve yardımlarınızdan çok istifade ettim. Çok teşekkür ederim. Ancak veri doğrulamayla ilgili aramalarımdan istediğim gibi bir bilgi bulamadım. Ekli dosyada izah etmeye çalıştığım gibi veliler çocuğun adını soyadını söylüyor. Numarasını bilse sorun yok ama isimler uzun olduğu için yazması zaman alıyor. Listeleme yaptım ama onların içinden öğrenciyi bulmak ta zor. Yaklaşık 1300 öğrenci var. Şimdiden teşekkürler.


Sayın Ömer Baran Bey bir çalışma için benim istediğime uygun aşağıdaki kodu yazmış. Ama ben kendi dosyama uygulayamadım.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(1, 1) = ListBox1.Column(0)
TextBox1.Visible = False: TextBox1 = ""
ListBox1.Visible = False: ListBox1.Clear: [A2].Activate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If ActiveCell.Address(0, 0) = "A1" Then
TextBox1.Visible = True: TextBox1.Activate: Cells(1, 1) = ""
Else
TextBox1.Visible = False: ListBox1.Visible = False
End If
End Sub
Private Sub TextBox1_Change()
With TextBox1
.Top = [A1].Top: .Left = [A1].Left: .Width = [A1].Width: .Height = [A1].Height
End With
If TextBox1 = "" Then
ListBox1.Clear: ListBox1.Height = 0: Exit Sub
End If
ListBox1.Visible = True: ListBox1.Clear: ListBox1.Height = 0
For brn = 1 To 12
If Cells(brn, "e") Like "*" & TextBox1 & "*" Then
ListBox1.AddItem Cells(brn, "E")
End If
ListBox1.Height = 13 * (ListBox1.ListCount) + 8: ListBox1.Width = [A1].Width
Next
End Sub



http://s6.dosya.tc/server8/d6l0i9/GELiR_GiDER_DEFTERi_V1.xls.html