[Çözüldü]  Listview toplu güncelleme

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

Listview toplu güncelleme

İleti#1)  osmanyd » 30 Haz 2018 12:27

Merhaba arkadaşlar,

Aşağıdaki kodlar sayesinde listviewde seçtiğim satırı textboxlar üzerinden güncelleyebiliyorum.

Yapmak istediğim listview'de birden fazla satırı güncellemek.

Yani 1'den 5'e kadar olan satırları seçip Textbox4 ' e girdiğim veriyi tüm satırlarda güncellemesi.

Yardımcı olan arkadaşlara şimdiden teşekkürler.


Kod: Tümünü seç
Set a = Sheets("veri").Range("A:A").Find(ListView1.SelectedItem, , xlValues, xlWhole)

Cells(a.Row, 4) = TextBox4.Value
Cells(a.Row, 11) = TextBox10.Value
Cells(a.Row, 17) = TextBox13.Value
Cells(a.Row, 18) = TextBox14.Value
Cells(a.Row, 19) = TextBox16.Value
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 17:35
Konum: istanbul
Meslek: öğrenci
Yaş: 54
İleti: 55
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: Listview toplu güncelleme

İleti#2)  Enes Recep BAĞ » 30 Haz 2018 14:17

Listview bende yok o yüzden ezbere yazayım, anlatayım siz uygulayın.

Mevcut butonunuza;
listbox1.multiselect=fmmultiselectmulti bu kodu yazın veya listview özelliklerinden multiselect aktif edin.
Sonra mevcut çalıştığınız kodlara for döngüsü kurun.

Kod: Tümünü seç
for i = 0 to listbox1.listcount-1
if listbox1
.selected(i)=true then
sizin mevcuttaki kodlarınız
end if
next i
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8116
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Listview toplu güncelleme

İleti#3)  osmanyd » 30 Haz 2018 15:08

Enes bey,

İlgilinize çok teşekkür ederim.

Fakat kodları listbox'a göre yazdığınızdan dolayı listview'e göre uyarlayamadım. Yardımcı olabilirmisiniz.
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 17:35
Konum: istanbul
Meslek: öğrenci
Yaş: 54
İleti: 55
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: Listview toplu güncelleme

İleti#4)  Enes Recep BAĞ » 30 Haz 2018 15:32

Mantık aynı olması lazım, o yüzden yazdım.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8116
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Listview toplu güncelleme

İleti#5)  osmanyd » 30 Haz 2018 15:38

bende değiştirdim fakat olmadı.
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 17:35
Konum: istanbul
Meslek: öğrenci
Yaş: 54
İleti: 55
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: Listview toplu güncelleme

İleti#6)  osmanyd » 30 Haz 2018 16:42

arkadaşlar konu ile ilgili yardımcı olabilecek kimse yokmu.
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 17:35
Konum: istanbul
Meslek: öğrenci
Yaş: 54
İleti: 55
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Listview toplu güncelleme

İleti#7)  Ali ÖZ » 02 Tem 2018 15:49

Deneyin,olmazsa dosyanızı ekleyin.

Kod: Tümünü seç
Dim l As ListItem
Set a = Sheets("veri").Range("A:A").Find(ListView1.SelectedItem, , xlValues, xlWhole)
For i = 1 To ListView1.ListItems.Count
  If ListView1.ListItems(i).Selected = True Then
    Set l = ListView1.SelectedItem
    Cells(a, 4) = l.SubItems(1)
    Cells(a, 11) = l.SubItems(2)
    Cells(a, 17) = l.SubItems(3)
    Cells(a, 18) = l.SubItems(4)
    Cells(a, 19) = l.SubItems(5)
  End If
Next
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9293
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Listview toplu güncelleme

İleti#8)  osmanyd » 03 Tem 2018 11:33

Ali bey,

Malesef olmadı örnek çalışmamı ekledim ilgiliniz için teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 17:35
Konum: istanbul
Meslek: öğrenci
Yaş: 54
İleti: 55
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: Listview toplu güncelleme

İleti#9)  Ali ÖZ » 03 Tem 2018 14:11

Bu şekilde revize edin.Listviewde seçtiklerinizi günceller.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
For i = 1 To ListView1.ListItems.Count
  If ListView1.ListItems(i).Selected = True Then
    Cells(i + 1, 3) = ComboBox1.Value
  End If
Next
Call veriler
MsgBox "Tüm Kayıtlar Güncellendi.!", vbInformation, ""
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9293
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Listview toplu güncelleme

İleti#10)  osmanyd » 03 Tem 2018 16:40

Ali bey,

Çok teşekkür ederim elinize sağlık.
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 17:35
Konum: istanbul
Meslek: öğrenci
Yaş: 54
İleti: 55
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: Listview toplu güncelleme

İleti#11)  Ali ÖZ » 03 Tem 2018 17:09

Rica ederim,iyi çalışmalar.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9293
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe