- Katılım
- 21 Aralık 2016
- Mesajlar
- 24
- Excel Vers. ve Dili
- 2015
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Pardon yanlış satırları almışım (sory)
doğrusu ek'te dir. ama yine yok hatası veriyor
yaw yine yanlış olmuş kusura bakmayın
Sub sayıyacevir()
Dim cell As Range
Columns("B:B").Select
For Each cell In Selection
If Not IsEmpty(cell) And IsNumeric(cell.Value) Then
cell.Value = CDbl(cell.Value)
End If
Next cell
End Sub