Sayfayı koru ve geri al seçenekleri çalışmıyor

[beymelik]

Merhaba,

Hazırladığım sayfa ad soyad bölümüne yazılanlara göre otomatik sıralama yapıyor fakat iki sorun var.

1. Sayfadaki köprü ve formülleri korumak için sayfayı koru dediğinde otomatik sıralama çalışmıyor.
2. Geri al seçeneği çalışmıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("B5:Z3000").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Yardımcı olabilirseniz çok sevinirim.

 

[Ömer]

Merhaba,

1. sorunuz için,

kod çalıştırmada sayfa koruma sorunu

2. soru ise, makroyu çalıştırdıktan sonra geri dönüş olmadığı için veri girişiyle kod çalıştığından geri al seçeneği çalışmamaktadır.

 

[beymelik]

Çok teşekkürler asıl önemli sorunum halloldu.

2010 dünya kupası ile ilgili bir fikstür programı hazırlamış ve orda geri al seçeneği çalışıyor bu nasıl olmuş olabilir bir fikriniz varmı.