- Katılım
- 14 Haziran 2006
- Mesajlar
- 575
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Degistir()
Range("M:M").Replace "/", ""
End Sub
Application.ScreenUpdating = False
For i = 1000 To 1 Step -1
If Cells(i, "A") = 0 Then Cells(i, "A") = ""
Next