- Katılım
- 26 Nisan 2019
- Mesajlar
- 221
- Excel Vers. ve Dili
- İş'te:Excel 2016 eng
Ev'de:Excel 2013 tr
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 1000 Then Target = "BİN"
If Target = 10000 Then Target = "10 BİN"
If Target = 100000 Then Target = "100 BİN"
End Sub
Diğerlerini siz yaparsınız.
Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Target = 1000 Then Target = "BİN" If Target = 10000 Then Target = "10 BİN" If Target = 100000 Then Target = "100 BİN" End Sub
çok özür diliyorum dosyadaki değişikliği farkedemedim ya da bende çalışmadıİstediğiniz böyle bir şey mi?