Metin olarak saklanan sayıları sayıya dönüştürme

[yakup70]

Uzun makrolarla elde ettiğim yaklaşık 40 sayfalık bir tablom var.Örnekteki tek sayfa.Tablodaki metin gözüken sayıları düzen-değiştir-bul "," değiştir "," le sayıya çeviriyorum.1 yazıp kopyalayıp özel yapıştır çarp ile yapıyorum.İkisindede oluyor.Ama bunu makro içinde yaptığım zaman hiç bir değişiklik olmuyor.Yardımcı olursanız sevinirim.

 

[abdi]

Sub sayıyacevir()

son = [b65536].End(3).Row - 6
Debug.Print son

For i = 5 To son

Cells(i, "m").Value = CDbl(Cells(i, "m").Value)
Cells(i, "n").Value = CDbl(Cells(i, "n").Value)
Cells(i, "o").Value = CDbl(Cells(i, "o").Value)
Next
End Sub

şeklinde dosyanızın yedeğini alıp denermisiniz.

 

[Ayhan Ercan]

Merhaba Sn yakup70

Aşağıdaki kodları bir butona atayıp deneyiniz..

Private Sub CommandButton1_Click()
For i = 5 To Sayfa7.[n65536].End(3).Row
For j = 11 To 15
Sayfa7.Cells(i, j) = Sayfa7.Cells(i, j) * 1
Next j, i
End Sub

 

[yakup70]

Sn.Abdi Bey
vermiş olduğunuz kodu denedim.Aşağıdaki hatayı verdi.
Run-time error '13':
Type mismatch
end debug help

Ayrıca örnek tabloya baktıysanız firmaların sigorta ödemelerini gösteriyor.1. firmanın sayıları değişiyor.2.firmaya geçtiği yerde bir değişiklik olmadı.Sanırım hata da bununla ilgili.Teşekkürler.

 

[yakup70]

Sn.Ayhan Ercan Bey
İlginiz için teşekkürler.Ama ben bunu yaptığım bir makronun devamı içinde kullanmak istiyorum.Bu tablo bitince bu işle ilgili arkadaşlara vericem.Onlar sadece bir kez makro kıs yol tuşunu tuşlasın ve istediklerini alsın.O arkadaşlar pek excelden anlamıyor.yoksa makrosuz düzelt-bul-değiştir seçeneğinden oluyor.ama makro ile olmuyor.Bunun neden lmadığınıda anlayamadım.Yinede teşekkürler.

 

[Ayhan Ercan]

Sayın yakup70

Private Sub Commandbutton1_Click()

Yerine

sub yaz()

diye yazarsanız, bu kodu her şeyde makro olarak atayabilirsiniz...

 

[yakup70]

Sayın Ayhan Ercan Bey vermiş olduğunuz kodu denedim
Run-time error '13':
Type mismatch
end debug help
hatasını verdi.1. firmanın satırlarındaki metin gözüken rakamları düzeltiyor.Ama sonraki firmalarda bir değişiklikm olmuyor.

 

[Ayhan Ercan]

Sayın Ayhan Ercan Bey vermiş olduğunuz kodu denedim
Run-time error '13':
Type mismatch
end debug help
hatasını verdi.1. firmanın satırlarındaki metin gözüken rakamları düzeltiyor.Ama sonraki firmalarda bir değişiklikm olmuyor.

Merhaba sn yakup70

Kodlarda herhangi hata verecek birşey yok. Sanırım sizin başka kodlarınızda var ve hata ondan oluşuyor..

 

[yakup70]

Sayın Ayhan Ercan Bey
Başka kodlarınız var derken neyi kast ettiniz pek anlamadım.Sınırlı bir bilgim var.Ama il yolladığım dosyayı 2 firmalı örnek olarak düzeltip ayrıca sizin vermiş olduğunuz kodu kaydedip yolluyorum.Nerde yanlış yaptım anlamadım.Bakabilirseniz sevinirim.Teşekkürler.