kemal turan
Altın Üye
- Katılım
- 10 Haziran 2011
- Mesajlar
- 1,527
- Excel Vers. ve Dili
- Excel 2010 32 bit
- Altın Üyelik Bitiş Tarihi
- 06-10-2032
Merhaba,
Aşağıdaki kod ile listview 1 den listview 2 ye aktarma yapıyorum.
Listview 16 ncı kolonda "sevk edildi" verisi var ise aktarma yapmasını engellemek istiyorum.
Düşünerek yaptığım
a = ListView1.ListItems.Add.SubItems(16)
If a = "SEVK EDİLDİ" Then
MsgBox "Ürün sevk edilmiş. Lütfen sevkiyatı silin"
Exit Sub
End If
ıf kontrolu isteğimi sağlamadı.
yardımlarınızı rica ediyorum.
Aşağıdaki kod ile listview 1 den listview 2 ye aktarma yapıyorum.
Listview 16 ncı kolonda "sevk edildi" verisi var ise aktarma yapmasını engellemek istiyorum.
Düşünerek yaptığım
a = ListView1.ListItems.Add.SubItems(16)
If a = "SEVK EDİLDİ" Then
MsgBox "Ürün sevk edilmiş. Lütfen sevkiyatı silin"
Exit Sub
End If
ıf kontrolu isteğimi sağlamadı.
yardımlarınızı rica ediyorum.
Kod:
Private Sub ListView1_DblClick()
Dim sevk As ListItem
Set sevk = ListView2.ListItems.Add(Text:=ListView1.SelectedItem)
'''''''düşündüğüm kontrol kodu
a = ListView1.ListItems.Add.SubItems(16)
If a = "SEVK EDİLDİ" Then
MsgBox "Ürün sevk edilmiş. Lütfen sevkiyatı silin"
Exit Sub
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
sevk.SubItems(1) = ListView1.SelectedItem.SubItems(1)
sevk.SubItems(2) = ListView1.SelectedItem.SubItems(2)
sevk.SubItems(3) = ListView1.SelectedItem.SubItems(3)
sevk.SubItems(4) = ListView1.SelectedItem.SubItems(4)
sevk.SubItems(5) = ListView1.SelectedItem.SubItems(5)
sevk.SubItems(6) = ListView1.SelectedItem.SubItems(6)
sevk.SubItems(7) = ListView1.SelectedItem.SubItems(7)
sevk.SubItems(8) = ListView1.SelectedItem.SubItems(8)
sevk.SubItems(9) = ListView1.SelectedItem.SubItems(9)
sevk.SubItems(10) = ListView1.SelectedItem.SubItems(10)
sevk.SubItems(11) = ListView1.SelectedItem.SubItems(11)
sevk.SubItems(12) = ListView1.SelectedItem.SubItems(12)
sevk.SubItems(13) = ListView1.SelectedItem.SubItems(13)
sevk.SubItems(14) = ListView1.SelectedItem.SubItems(14)
sevk.SubItems(15) = ListView1.SelectedItem.SubItems(15)
sevk.SubItems(16) = ListView1.SelectedItem.SubItems(16)
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End Sub