CengizYurek
Altın Üye
- Katılım
- 11 Ocak 2017
- Mesajlar
- 46
- Excel Vers. ve Dili
- 2019-TR
- Altın Üyelik Bitiş Tarihi
- 01-01-2026
Merhabalar
PersonelList'ten NobetList'e commandbuton ile tek tek veri eklemek istiyorum ancak ilk veriyi ekledikten sonra kod çalışmıyor. ikinci eklemek istediğim veriyi eklemiyor. Lütfen yardımcı olur musunuz ?
Aslında tek tek eklemekte problem yaşamamıştım. Ancak aynı verileri eklemesin diye if komutu ekledikten sonra maalesef kodum tek veriyi ekledikten sonra çalışmadı.
Güncelleme:
Kodlarımı düzenleyip sadece removeitem ekledim ve çözüldü. İşine yarayacaklar için ekliyorum.
PersonelList'ten NobetList'e commandbuton ile tek tek veri eklemek istiyorum ancak ilk veriyi ekledikten sonra kod çalışmıyor. ikinci eklemek istediğim veriyi eklemiyor. Lütfen yardımcı olur musunuz ?
Aslında tek tek eklemekte problem yaşamamıştım. Ancak aynı verileri eklemesin diye if komutu ekledikten sonra maalesef kodum tek veriyi ekledikten sonra çalışmadı.
Kod:
Private Sub TekEklebtn_Click()
Dim x As Integer
listesayisi = NobetList.ListCount
If listesayisi = 0 Then
For x = 0 To PersonelList.ListCount - 1
If PersonelList.Selected(x) = True Then
NobetList.AddItem (PersonelList.List(x))
For i = 1 To listesayisi
If PersonelList.List(x) = NobetList.List(i - 1) Then
MsgBox Title:="Hata", Prompt:="Bu personel daha önce listeye eklendi."
Exit Sub
End If
Next
End If
Next
End If
End Sub
Güncelleme:
Kodlarımı düzenleyip sadece removeitem ekledim ve çözüldü. İşine yarayacaklar için ekliyorum.
Kod:
Private Sub TekEklebtn_Click()
Dim x As Integer
For x = 0 To PersonelList.ListCount - 1
If PersonelList.Selected(x) = True Then
NobetList.AddItem (PersonelList.List(x))
PersonelList.RemoveItem (x)
End If
Next x
End Sub
Son düzenleme: