Listview'de Sil ve Değiştir işlemleri

[udentr2002]

Merhaba arkadaşlar ;

Listview nesnesinde combobox8 (Etken Madde adına göre ara) ile süzme yapıyorum. Buraya kadar tamam.

listview e süzülen verileri listview nesnesinin altındaki textboxlara aldıktan sonra bir buton yardımı ile değiştir ve sil için nasıl bir kod yazmalıyım. Dosyamın örneğini gönderiyorum.

Not: Listviewde satırı nasıl 2 haneli rakam olarak gösterebilrim.

 

[halit3]

Merhaba arkadaşlar ;

Listview nesnesinde combobox8 (Etken Madde adına göre ara) ile süzme yapıyorum. Buraya kadar tamam.

listview e süzülen verileri listview nesnesinin altındaki textboxlara aldıktan sonra bir buton yardımı ile değiştir ve sil için nasıl bir kod yazmalıyım. Dosyamın örneğini gönderiyorum.

Not: Listviewde satırı nasıl 2 haneli rakam olarak gösterebilrim.

ekli dosyaya bir bakınız 1. sutunda gizli satır sayısı var

 

[halit3]

kodu yanlış yazmışım aşağıdaki mesajda doğrusu var

 

[udentr2002]

Hocam öncelikle ellerinize sağlık.

Fakat listview'e tıklayıp verileri textboxlara aldıktan sonra herhangi bir textboxdaki veriyi değiştiriyorum. ama değiştir butonuna bastığımda hiç bir değişiklik yapmıyor.

 

[halit3]

Hocam öncelikle ellerinize sağlık.

Fakat listview'e tıklayıp verileri textboxlara aldıktan sonra herhangi bir textboxdaki veriyi değiştiriyorum. ama değiştir butonuna bastığımda hiç bir değişiklik yapmıyor.

değiştir düğmesindeki kodu aşağıdaki ile değiştiriniz.

Private Sub CommandButton8_Click()
sat = Val(Label87)
If sat <= 0 Then
MsgBox "listeden seçim yapmadınız."
Exit Sub
End If
For i = 1 To 20
Sheets("Etken").Cells(sat, i) = Controls("TextBox" & i + 19).Value
Next i
MsgBox "işlem tamam"
Label87 = 0
End Sub

 

[halit3]

dosyanın son halini ekliyorum

 

[udentr2002]

Hocam ellerinize sağlık Allah razı olsun

 

[halit3]

Hocam ellerinize sağlık Allah razı olsun

iyi çalışmalar