Bu bölümdeki bilgileri degistiremezsin uyarısı

[omeryılmaz]

Arkadaşlar (A1:G500) hücre aralığında bilgilerden biri değiştirilmeye çalışıldığında ...."Bu bölümdeki bilgileri degistiremezsin." uyarısı yapmalı....




Private Sub Worksheet_Change(ByVal Target As Range)
'.........................
Msg = "Bu bölümdeki bilgileri degistiremezsin!"
Application.Undo

End Sub

 

[mami68]

Bu kodu sayfa koduna yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
 If Not Application.Intersect(Target, Range("A1:G500")) Is Nothing Then
 Cells(ActiveCell.Row, 2).Select
 MsgBox "Bu bölümdeki bilgileri degistiremezsin!"
 End If
End Sub

İyi çalışmalar.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.
Her seferinde mesaj vererek insanları sıkmak istemem doğrusu
Kullanan kişi dosyayı açtığında makroları etkinleştirmezse kodların bir anlamı olmaz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:G500]) Is Nothing Then Exit Sub
Range("H" & Target.Row).Select
End Sub

 

[Orion1]

Veri doğrulama uygulandı.
Dosyanız ekte ömer bey.

 

[omeryılmaz]

Sağolun Emeğinize yüreğnize sağlık
Özellikle Evren Hocanın Veri Doğrulama yöntemi tam istediğim gibi...
Şükranlar.............

 

[Orion1]

Sağolun Emeğinize yüreğnize sağlık
Özellikle Evren Hocanın Veri Doğrulama yöntemi tam istediğim gibi...
Şükranlar.............

Rica ederim.
İyi çalışmalar.

 

[Necdet]

Makro bölümünde sor ama makrosuz çözümü beğen

Kader valla kendimi kimseye beğendiremedimkine ben 29845902874590283470 yıllık hayatım boyunca

 

[profhanddrop]

hocam nasıl bi uygulama bu ne uyguladınız yani

 

[Serdar SELEN]

Necdet Hocam allah daha uzun omur versın masallah

 

[omeryılmaz]

Makro bölümünde sor ama makrosuz çözümü beğen

Kader valla kendimi kimseye beğendiremedimkine ben 29845902874590283470 yıllık hayatım boyunca

Necdet Hocam Özür dilerim.
Sizinde Emeğinize sağlık... Ancak Evren Hocanın Koşullu olayı çalışmaya daha mantıklı oldu diye öyle oldu.... Sanada şükranlarımı sunuyorum........