Tüm sayfayı (sayıyaçevir)mek

[unur]

Merhaba arkadaşlar;
Benim kullandığım proğram verileri excele atıyor ancak bunların hepsinide metin şeklinde attığı için matematiksel işlem yapmadan önce lazım olanları sayıyaçevir formulü kullanarak düzeltip çalışmaya başlıyorum.
Sormak istediğim:Acaba kodlarlada olsa tüm sayfayı sayıyaçevir olarak değiştirebilirmiyiz veya fonksiyonlarla daha kısa bir yöntemle bu işi yapabilirmiyiz.
Teşekkürler

 

[red_lion_72]

Selam,

Muhtemelen program atarken virgül yerine nokta yada rakamlar arasında boşluk bırakıyor. Sayıların olduğu sütunu seçerek(sadece sayı olarak değiştireceğiniz sütunu seçmeniz önemli aksi halde tüm sayfada değişiklik yapacaktır) ctrl+h tuş kombinasyonu ile noktaları virgüle yada sayı olmasını engelleyecek karakteri bir seferde değiştirin.

Ama yine de nihai çözüm için dosyanızın ham halinden minik bir parça eklerseniz değiştirmeniz gereken karkterin ne olduğunu bende bulabilirim.

Kolay gelsin.

 

[unur]

Malesef o imkana sahip değilim işyerinde; yazdıklarınızı dikkate alıcam.Teşekkürler

 

[Merhum İdris SERDAR]

A1 hücresine 1 yazıp, aşağıdaki kodu çalıştırın.

Sub Macro2()
Range("A1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
End Sub