Uygun veri sayfası oluşturmak

[milhanalp]

Merhaba,
Ekte gönderdiğim dosyada anlatmaya çalıştığım bir veri sayfası sorunum var. Formdan memurun adı seçilince ilgili bilgileri formda görüntüleyebiliyor. Ancak hastanın adı seçilince , hastanın TC. kimlik nosunu forma getiremiyor.
Bunun sebebinin Veri sayfasındaki bilgilerin kaydediliş biçimiyle ilgili olduğunu düşünüyorum. Acaba daha uygun bir veri sayfası oluşturabilirmiyiz?
Selamlar

 

[Ali]

Combobox2'nize aşağıdaki kodları ekleyin. yakın 1tc,yakın 2tc ve yakın3 tc için olanını ben yaptım siz kendinize uygun olarak diğerlerini çoğaltırsınız.

Private Sub ComboBox2_Change()
Dim Bul As Range

Set Bul = Worksheets("veri").Range("F:F").Find(ComboBox2)

If Not Bul Is Nothing Then
TextBox5 = Bul.Offset(, 6)
End If
Set Bul = Worksheets("veri").Range("G:G").Find(ComboBox2)

If Not Bul Is Nothing Then
TextBox5 = Bul.Offset(, 6)
End If
Set Bul = Worksheets("veri").Range("H:H").Find(ComboBox2)

If Not Bul Is Nothing Then
TextBox5 = Bul.Offset(, 6)
End If

End Sub

 

[eerdem]

sayın fructose,

dün tartıştığım bir konu vardı arkadaşlar tam olarak cevaplayamadılar.siz yardımcı olurmusunuz

 

[milhanalp]

Sayın fructose,
"Veri" sayfasındaki bilgi depolama biçimi iyi olmamasına rağmen güzel bir çözüm bulmuşsunuz. Teşekkür ederim. Kodlarınızı diğer satırlara da uyguladım. Sorunsuz çalıştı. Verileri silmek veya değiştirmek istediğimizde bir sorun yaşarmıyız bilmiyorum.
Ben yine de daha uygun veri depolama yöntemleri bilen arkadaşlardan kullandıkları yöntemleri yazmalarını rica ediyorum.
Selamlar