DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D4:G43")) Is Nothing Then Exit Sub
Cells(Target.Row, "C").Select
MsgBox "D4 ile G43 arasında işlem yapamazsınız.", vbInformation, "UYARI"
End Sub
Sayın @ASLAN7410,Merhaba.
Sayfanın kod bölümüne aşağıdaki kodu yapıştırın.
Kod:Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("D4:G43")) Is Nothing Then Exit Sub Cells(Target.Row, "C").Select MsgBox "D4 ile G43 arasında işlem yapamazsınız.", vbInformation, "UYARI" End Sub
Sorun kalktı teşekkür ederim. Ancak bunu kaldırmak, güvenlik sorununa veya dosyanın düzgün çalışmamasına neden olur mu?.Dosyanızın sol üst köşesindeki Dosya menüsünden Seçenekler/Güven Merkezi/Güven Merkezi Ayarları/Gizlilik Seçenekleri menüsünden Kaydederken dosya özelliklerinden kişisel bilgileri kaldır yazan yerin başındaki çentik işaretini kaldırın.
Bu çentik bu sorunu veriyor galiba, bir deneyin.