alt+enter kodunda nasıl bir değişiklik yapabilirim.

[Kemal Demir]

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]

 

[Kemal Demir]

Arkadaslar İlginiz için teşekkur ederim.

Hatayı buldum.

1 Adet Next Eksik yazılmıs Şimdiden Teşekkur Ederim.

[vb:1:a92c4cecde]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
Next
End Sub[/vb:1:a92c4cecde]