Sayfayı korumaya alınca USERFORM neden hata verir?

[vaskal]

Arkadaşlar bir kayıt ekleyip silme formu hazırladım. Sorunsuz çalışıyor. Fakat kayıt yaptığı sayfayı bozulmaması için Sayfa Koruması yaptığımda hata veriyor. Kayıt yapılan HÜCRE kilitleriin falan açtım. HATTA tüm sayfanın kilidini açtığım halde korumaya aldığım zaman hata veriyor.

 

[Levent Menteşoğlu]

Dosyanızdaki C15 sayfasındaki birleştirilmiş hücreleri çözün. Sıralama kodu birleştirilmiş hücrelerde çalışmaz.

 

[vaskal]

O hücreleri sorunumu anlatmak için birleştirmiştim. Asıl çalışmada öyle bir birleştirme yok. sorunum sayfayı korumaya alınca kayıt eklerken yada kayıt silerken hata mesajı alıyorum.

 

[vaskal]

Koruma seçeneklerinin hepsini seçtim

Yine de kayıt silerken
Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 11).Address(False, False)).Delete Shift:=xlUp

hatası veriyor. Bu komuttaki hata nedir bilemiyorum....

 

[geren36]

makronuzun çalışması için öncelikle kodunuzun içine korumayı kaldıran komutları yazın, kodun son satırına ise korumayı aktifleştirmek için tekrar komut ekleyin..

ancak böyle çalışacaktır...

activeSheet.unprotect
....
....
....
....
activeSheet.protect

 

[Skorpiyon]

Sayın vaskal,

Aktif hücreniz neresidir bilmiyorum ama, kodun aşağıdaki bölümünde -1 olarak ifade edilen kısım, A sütununun soluna geçmeye çalışıyor olabilir.
Böyle bir imkan olmadığından, ve yapmaya çalıştığınız bu ise hata mesajı vermesi doğaldır.

Range(ActiveCell.Offset(0, -1).Address

 

[vaskal]

geren36 sağolasın şimdi oldu....

 

[vaskal]

Sayın vaskal,

Aktif hücreniz neresidir bilmiyorum ama, kodun aşağıdaki bölümünde -1 olarak ifade edilen kısım, A sütununun soluna geçmeye çalışıyor olabilir.
Böyle bir imkan olmadığından, ve yapmaya çalıştığınız bu ise hata mesajı vermesi doğaldır.

Range(ActiveCell.Offset(0, -1).Address

Aktif Hücre B sütunu. Okul No ya göre silme yapıyor. Onun solunda da sıra no var yani onuda silmesi gerekiyor. Neyse geren36 nın verdiği yöntem oldu. ilgine teşekkür...

 

[geren36]

rica ederim.. iyi geceler..