Merhaba arkadaşlar, aşağıdaki kodlarda kırmızı renkli satırı düzenleyemedim.Ben listbox yerine listview kullanıyorum ve ilgili satıra çift tıklayarak verileri combo ve text boxlara alıyorum.İnceleyip karar verisem siliyorum.yada başka bir command button yardımıyla değiştiriyorum.Aşağıdaki kodlar seçilen veriyi siliyor ama listboxta.
ben bu kırmızı satırdaki veriyi nasıl listviewe uyarlıcam acaba.
Herkese teşşekkürederim şimdiden.
Private Sub CommandButton4_Click()
If TextBox18.Value = "" Then
MsgBox "LÜTFEN İLGİLİ VERİYİ SEÇİNİZ..."
Exit Sub
End If
sor = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ...?", vbYesNo)
If sor = vbNo Then Exit Sub
Application.Wait Now + TimeValue("00:00:02") / 1.5
CommandButton4.Caption = "SİL"
sat = ListBox1.ListIndex + 2
Range("A" & sat & ":V" & sat).Delete
[a65536].End(2).Delete
MsgBox "SEÇİLEN KAYIT SİLİNMİŞTİR"
End Sub
ben bu kırmızı satırdaki veriyi nasıl listviewe uyarlıcam acaba.
Herkese teşşekkürederim şimdiden.
Private Sub CommandButton4_Click()
If TextBox18.Value = "" Then
MsgBox "LÜTFEN İLGİLİ VERİYİ SEÇİNİZ..."
Exit Sub
End If
sor = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ...?", vbYesNo)
If sor = vbNo Then Exit Sub
Application.Wait Now + TimeValue("00:00:02") / 1.5
CommandButton4.Caption = "SİL"
sat = ListBox1.ListIndex + 2
Range("A" & sat & ":V" & sat).Delete
[a65536].End(2).Delete
MsgBox "SEÇİLEN KAYIT SİLİNMİŞTİR"
End Sub