- Katılım
- 17 Aralık 2008
- Mesajlar
- 780
- Excel Vers. ve Dili
- Microsoft 365
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)
Dim cell As Range
On Error Resume Next
' Değişen hücreleri kontrol et
For Each cell In Target
' Hücre içeriğinde nokta varsa
If InStr(cell.Value, ".") > 0 Then
' Noktayı virgüle çevir
cell.Value = Replace(cell.Value, ".", ",")
End If
Next
End Sub