Sayıyaçevirme (Tüm sayfalarda)

[ozanyazar]

Aşağıdaki makro ile anca bulunduğum çalışma sayfasında ve sutun sutun çevirebiliyorum. Tüm excel dosyasında makro ile çevirme imkanı varsa yardım rica ediyorum.

Aşağıdakinde A, B, C sutunlarını çevirebildim M'ye kadar gitmem gerek ama eminim daha kolay/pratik bir yolu vardır

Sub SAYIYA()
For x = 1 To [a65536].End(3).Row
Range("A" & x).Select
Selection.NumberFormat = "General"
Range("A" & x) = WorksheetFunction.Clean(Range("A" & x))
Next

For x = 1 To [a65536].End(3).Row
Range("b" & x).Select
Selection.NumberFormat = "General"
Range("b" & x) = WorksheetFunction.Clean(Range("b" & x))
Next

For x = 1 To [a65536].End(3).Row
Range("C" & x).Select
Selection.NumberFormat = "General"
Range("C" & x) = WorksheetFunction.Clean(Range("C" & x))
Next
End Sub

 

[peleryn]

Merhabalar;

makro kaydet yoluyla yaptım.Aşağıdaki kodlarda Array içerisinde yazılı olan sayfaların yerine kendi sayfa isimlerinizi yazın.

Sub Makro1()
'
' Makro1 Makro
' Makro pc tarafından 26.04.2011 tarihinde kaydedildi.
'

'
Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Select
Sheets("Sayfa1").Activate
Cells.Select
Selection.NumberFormat = "General"
Range("A1").Select

End Sub

 

[ozanyazar]

Bu makro sayıya çeviremeden beni bulunduğum sayfadan "sayfa 1" e attı sadece.
Belki bölgesel ayarlardaki nokta, virgül farkındandır

 

[peleryn]

Bu makro sayıya çeviremeden beni bulunduğum sayfadan "sayfa 1" e attı sadece.
Belki bölgesel ayarlardaki nokta, virgül farkındandır

Bir örnek dosya ekleyebilirseniz o dosya belki de bizi belkilerden kurtarabilir