GÜzel Bİr Carİ OluŞturulabİlİr

[taseraydin]

DeĞerlİ Üstad ArkadaŞlar
Çok Öncelerİ Formdan AldiĞim Bİr Dosyayi Sutunlar İlave Ederek DeĞİŞtİrmek İstedİm Ancak Kodlamalar Hakkinda Fazla Bİr Bİlgİm OlmadiĞindan İstedİĞİmİ GerÇekleİŞtİremedİm
Ancak Üstad ArkadaŞlarin Bunu Hemen Halledeceklerİne İnaniyorum

1 Numarali Dosya Normal Olanidir Userformdalİ Lİst Boxtakİ KİŞİyİ Çİft TiklandiĞinda O KİŞİye Aİt Bİlgİler SÜzÜlÜp Lİstboxta Siralaniyor.

2 Numarali Dosyada Benİm DÜŞÜndÜĞÜm Şekİlde İkİ Sutun İlave EdİlmİŞ Durumda

 

[Skorpiyon]

Sayın taseraydin,

Dosyanız Ek'tedir.

 

[taseraydin]

İLGİNİZE TEŞEKÜR EDERİM.
DÜZENLEMİŞ OLDUĞUNUZ DOSYADA
LİSTBOXTA ÇİFT TIKLAMA İLE İLGİLİ ŞAHSA AİT OLUŞAN MUAVİN DÖKÜMÜ ÇIKMIYOR

DİĞER DOSYAYI İNCELEYEBİLİRSENİZ ORADA İLGİLİ KİŞİNİN İŞLEMLERİ SIRALANIYOR

ZANNEDERSEM AŞAĞIDAKİ MACRODA DEĞİŞİKLİK YAPILMASI GEREKİYOR

Private Sub ListView1_DblClick()
Dim Kriter As String, Satir As Integer
Kriter = ListView1.SelectedItem
Static Say As Byte
Say = Say + 1
Say = IIf(Say = 2, 0, Say)
If Say = 0 Then
Call UserForm_Initialize
Else
Call UserForm_Initialize
For Satir = 1 To ListView1.ListItems.Count
If Satir > ListView1.ListItems.Count Then Exit Sub
If ListView1.ListItems(Satir) <> Kriter Then
ListView1.ListItems.Remove ListView1.ListItems(Satir).Index
Satir = Satir - 1
End If
Next
End If
End Sub

 

[Skorpiyon]

Sayın taseraydin,

Gece vakti kafam ancak bu kadar bastı desem yeridir.
Dosyanız biraz değişmiş halde Ek'tedir.

 

[taseraydin]

Teşekür

Geçenin Bu Vakti uğraştınız
Emeğiniz için teşekür ederim.
Yarın Zamanınız olursa bakarsınız.
ve diğer arkadaşlarda zannedersem el atarlar
Herşey için teşekür ederim Elinize sağlık

 

[Skorpiyon]

Say&#305;n taseraydin,

Dosyan&#305;n son hali (4.mesajdaki Ek) i&#351;inizi g&#246;rmedi mi acaba ?

 

[taseraydin]

sıra numaralarına ait stunu başa alabilirsek daha uygun olacak