İstenen kaydı textboxa alma

[seddur]

Arkadaşlar Merhaba.Excel sayfasına textboxlar ile aynı kişiye ait farklı satıırlarda kayıt yapıyorum.Bu kişinin kayıtlı bilgilerine düşeyara ile ulaşabiliyorum ancak bu bilgilerden bazıları özellikle ödeme bilgisi zaman içinde güncelliğini yitirmiş oluyor ve düşeyara haliyle ilk kayıtı getirdiğinden işe yaramıyor.Yapmak istediğim aranan kişinin son kayıt bilgilerine ulaşabilmek.Örneğin listviewe kişinin kayıt dökümünün ad-soyad ve tarih kısmını alıyorum listviewde görmek istediğim satıra tıkladığımda bu kişinin o satırdaki tüm bilgileri textboxlarda gösterilebilir mi? .Aşağıya örnek dosya ekledim..Konu hakkında yardımcı olacak arkadaşa şimdiden Teşekkür ederim.

 

[Orion1]

Dosyanızda düzenleme yaptım.
Ekli dosyayı inceleyiniz.

 

[seddur]

Çalışmanız için Teşekkür ederim ama bu durumda listview'de 3 kolondan fazlasını gizlemem gerekecek.Sayfada fazla yerim yok,büyütürsem sayfa düzeni bozulacak.Kolon gizleme konusunda da yardımcı olabilir misiniz?

 

[Ziynettin]

Döküm.ColumnHeaders.Add , , "ADI SOYADI",0
Döküm.ColumnHeaders.Add , , "TARİH",0
Döküm.ColumnHeaders.Add , , "ÖDEME",0
Döküm.ColumnHeaders.Add , , "TC NO",0
Döküm.ColumnHeaders.Add , , "CEP TELEFONU",0

Kırmızı sayı sutun genişliği verir. Kendinize göre uyarlayınız.

 

[Orion1]

4 ve 5nci sütunlar gizlendi.

Private Sub UserForm_Initialize()
Döküm.View = lvwReport
Döküm.ForeColor = RGB(255, 255, 100)
Döküm.BackColor = RGB(102, 0, 0)
Döküm.Gridlines = True
Döküm.Font.Name = calibri
Döküm.Font.Bold = True
Döküm.Font.Size = 10
Döküm.FullRowSelect = True
Döküm.ColumnHeaders.Add , , "ADI SOYADI"
Döküm.ColumnHeaders.Add , , "TARİH"
Döküm.ColumnHeaders.Add , , "ÖDEME"
Döküm.ColumnHeaders.Add , , "TC NO", 0
Döküm.ColumnHeaders.Add , , "CEP TELEFONU", 0
Call liste
'Sayfa1.CheckBox1 = True
End Sub

 

[Ziynettin]

Evren Bey sizi çevrimdışı olduğunuz için cevap verdim.

 

[Orion1]

Evren Bey sizi çevrimdışı olduğunuz için cevap verdim.

Estafurullah.

 

[seddur]

İlginiz için Teşekkür ederim.Uyarladım sorunsuz çalışıyor.