Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Arkadaslar Öncelikle iyi akşamlar.
[vb:1:315acaa490]Sub DUZEN()
ActiveCell.Value = Application.WorksheetFunction.Clean(ActiveCell.Value)
ActiveCell.Value = Application.WorksheetFunction.Trim(ActiveCell.Value)
End Sub[/vb:1:315acaa490]
Yukarıdaki kodu Aşagıdaki Şekilde yazdım çalışmadı.Bu konuda yardımcı olabilirmisiniz.
[vb:1:315acaa490]Sub DUZEN()
for x=1 to 10
for y=1 to 10
Cells(x,y).select
ActiveCell.Value = Application.WorksheetFunction.Clean(ActiveCell.Value)
ActiveCell.Value = Application.WorksheetFunction.Trim(ActiveCell.Value)
next
End Sub[/vb:1:315acaa490]
[vb:1:315acaa490]Sub DUZEN()
ActiveCell.Value = Application.WorksheetFunction.Clean(ActiveCell.Value)
ActiveCell.Value = Application.WorksheetFunction.Trim(ActiveCell.Value)
End Sub[/vb:1:315acaa490]
Yukarıdaki kodu Aşagıdaki Şekilde yazdım çalışmadı.Bu konuda yardımcı olabilirmisiniz.
[vb:1:315acaa490]Sub DUZEN()
for x=1 to 10
for y=1 to 10
Cells(x,y).select
ActiveCell.Value = Application.WorksheetFunction.Clean(ActiveCell.Value)
ActiveCell.Value = Application.WorksheetFunction.Trim(ActiveCell.Value)
next
End Sub[/vb:1:315acaa490]