- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Merhaba hayırlı geceler.
Ekte göndermiş olduğum izin takip dosyamın ARŞİV sayfasında sayfa üzerinde kendimin eklemiş olduğum sıralama butonuna bastığımda
İZİN sayfasının kod sayfasında bulunan aşağıdaki kodun 2.satırını sarıya boyuyor hata veriyor.
Yardımcı olur musunuz?
Ekte göndermiş olduğum izin takip dosyamın ARŞİV sayfasında sayfa üzerinde kendimin eklemiş olduğum sıralama butonuna bastığımda
İZİN sayfasının kod sayfasında bulunan aşağıdaki kodun 2.satırını sarıya boyuyor hata veriyor.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Range("N8:N17")) Is Nothing Then
Application.OnKey "{F2}"
Application.OnKey "^{c}"
Application.OnKey "^{v}"
Application.OnKey "^{x}"
Else
Application.OnKey "{F2}", ""
Application.OnKey "^{c}", ""
Application.OnKey "^{v}", ""
Application.OnKey "^{x}", ""
End If
End Sub
Yardımcı olur musunuz?
Ekli dosyalar