koddaki yanlışlık

[berkan1]

Hocalarım listview ile bir form oluşturdum yalnız silme işlemi için Sh.Rows(X).Delete hata veriyor kodu ekliyorum bakabilirmisiniz .İstedigim data sayfasından istedigimi bulup silmesi .şimdiden teşekkürler

Y = ListView1.SelectedItem.Index
X = ListView1.ListItems(Y).ListSubItems(12).Text
cevap = MsgBox("Silmek istediğinizden emin misiniz?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Set Sh = Sheets("DATA")
Sh.Rows(X).Delete
Set Sh = Nothing
ListeGuncelle

 

[Levent Menteşoğlu]

Çıkan hata mesajını belirtmemişsiniz. Büyük olasılıkla hata, X değişkenin geçerli bir sayı olmamasından yada string olarak tanınmasından kaynaklanıyor. X değişkeni ile ilgili satırı aşağıdaki ile değiştirerek deneyin.

X = cdbl(ListView1.ListItems(Y).ListSubItems(12).Text)

 

[berkan1]

teşekkür ederim

Teşekkür ederim levent bey ilgilendiginiz için gene hata verdi ve verilen msj
Compile Error
Syntax Error
Hatası veriyor ilgilendiniz için teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Küçük bir örnek dosya eklermisiniz.

 

[berkan1]

ekliyorum ana dosyayı

Korhan bey sizin sayenizde hiç birşey bilmiyorken şimdi kodlarla ugraşmaya başladım ve bir form oluşturdum şimdi formu ekliyorum bide bul dedigimde varmı yokmu diye soruyorum yoksa ekleme yapıyor kontrol edermisiniz ve başka fikirleri de bekliyorum
İlginize teşekkür ederim

 

[berkan1]

Yardımcı olabilecek kimse yokmu.adminlerim yardım

 

[berkan1]

konu günceldir.yardımlarınız için teşekkür ederim.

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Private Sub sil_Click()
' SAYFADA VERİYİ BULUP SİLER
Dim cevap
Dim a As Range
sifre = InputBox("Bu işlem için şifre girmelisiniz.")
If sifre = "" Then Exit Sub
If sifre <> "12345" Then MsgBox "Yanlış şifre girdiniz.": Exit Sub
    cevap = MsgBox(Prompt:="Seçili Kayıt Silinsin mi?", Buttons:=vbYesNo)
        If cevap = vbYes Then
        Set a = Sheets("DATA").Columns(1).Find(ListView1.SelectedItem, , xlValues, xlWhole)
            If Not a Is Nothing Then
                Sheets("DATA").Rows(a.Row).Delete
            End If
        ElseIf cevap = vbNo Then
        Exit Sub
        End If
   ListeGuncelle
End Sub

 

[berkan1]

teşekkür ederim

Murat bey Allah razı olsun ilgilendiginiz için çok teşekkür ederim çok iyi çalışıyor bide bul dedigimde varmı yokmu diye soruyorum yoksa ekleme yapıyor ve listviewde ki data sayfası görünmüyor ben yanlış birişlemmi yaptım acaba kontrol edebilirmisiniz ve başka fikirleriniz varsa da ögrenebilirmiyim .Zaman ayırdıgınız için teşekkür ederim.

 

[berkan1]

konu günceldir .yardımlarınız için teşekkür ederim