[osmanyd]

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

[Enes Recep BAĞ]

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

[osmanyd]

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.

[Enes Recep BAĞ]

Mantık aynı olması lazım, o yüzden yazdım.

[osmanyd]

bende değiştirdim fakat olmadı.

[osmanyd]

arkadaşlar konu ile ilgili yardımcı olabilecek kimse yokmu.

[Ali ÖZ]

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

[osmanyd]

Ali bey,

Malesef olmadı örnek çalışmamı ekledim ilgiliniz için teşekkürler.

[Ali ÖZ]

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

[osmanyd]

Ali bey,

Çok teşekkür ederim elinize sağlık.

[Ali ÖZ]

Rica ederim,iyi çalışmalar.