Filtre ve Kayıt Silme (Kilitli Sayfada)

[alibal]

Değerli arkadaşlar; tıkandığım bir proje hakkında 2 sorum olacak.

1- Ekte gönderdiğim dosyada veritabanında filtre kullanıyorum. Amcak sayfayı uygun bir şekilde kilitlediğim (kilitlediğimi sandığım) halde filtre işlemi yapmıyor. Yani satırları gizleyip uygun kaydı süzmüyor. Bunun yerine sadece kayda konumlanıyor.

2- A sütünundaki checkbox ile işaretli olan kayıtları, sayfanın yukarısında "Seçili Kaydı Sil" butonunu kullanarak silmek istiyorum. (Makro ile)

Şimdiden Teşekkür ederim....

 

[alibal]

Yardım edebilecek biri varmı acaba??

Teşekkürler...

 

[cqners]

Selam ,

Şifren ?

 

[alibal]

Selam ,

Şifren ?

Hocam, Şifre yok Kilidi açın yeterli.

 

[cqners]

Sn. Alibal

Komutlarının başına ve sonuna aşağıdaki komutu eklersen şifre açılacak işlem bittikten sonra tekrar şifreliyecektir.

Sub Konu()
ActiveSheet.Unprotect "Şifren"

Komutların

ActiveSheet.Protect "Şifren"
End Sub

 

[alibal]

Hiç düşünmemiştim bu yöntemi. Teşekkür ederim. Deneyeceğim

 

[Mahmut Kök]

Bana da böyle bir şey lazımdı, iyi oldu. Kolay gelsin.

 

[alibal]

Sn arkadaşlar.

Yukarıda belirttiğim sorumun kayıt silme bölümüne cevap verebilecek tecrübeli bir arkadaşım mı ?

Teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub KayitSil()
ActiveSheet.Unprotect
For a = [c65536].End(3).Row To 8 Step -1
If Cells(a, "ac") = True Then
Cells(a, "b").Select
onay = MsgBox(Cells(a, "c") & " " & Cells(a, "d") + " isimli kayıt silinecek. Onaylıyor musunuz?", vbYesNo, "Dikkat")
If onay = vbYes Then
Range("b" & a & ":ac" & a).ClearContents
End If
End If
Next
ActiveSheet.Protect
End Sub

 

[alibal]

Sn. leventm Teşekkür ederim.