- Katılım
- 25 Mayıs 2010
- Mesajlar
- 480
- Excel Vers. ve Dili
-
Office 2019
64bit
Tr
Win 10
- Altın Üyelik Bitiş Tarihi
- 12-07-2024
merhaba arkadaşlar yıllar sonra bu konuyu hortlatmak istedim.
Yeni çalışma sayfama bu kodu uygulamak istedim ancak kırmızı olarak hata verdi. koddaki yanlışlık nedir acaba?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B9:B100,C9:C100]) Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Target.Value = Target.Value / 1000
Application.EnableEvents = True
End Sub
Yeni çalışma sayfama bu kodu uygulamak istedim ancak kırmızı olarak hata verdi. koddaki yanlışlık nedir acaba?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B9:B100,C9:C100]) Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Target.Value = Target.Value / 1000
Application.EnableEvents = True
End Sub