Metin biçimini sayıya dönüştürme

[xternet]

Merhaba Arkadaşlar,

BAşlıktan anlaşılıyor sanırım. Eklediğim dosyada da örnekle açıklamaya çalıştım.
Amacım "metin biçiminde saklanan sayı" hatası veren bir sayı kümesini makro kodu ile "sayıya dönüştür" uygulamak.

"Makro kaydet" seçeneğiyle aradığım koda ulaşmak istedim ama makro bu işlemi kaydetmiyor. DAha doğrusu kod olarak göstermiyor.

Tüm arkadaşlara iyi çalışmalar. Şimdiden teşekkürler.

 

[Mahir64]

Merhaba,

Sıklıkla karşılaşılan bir sorundur.
Bir çözüm önereyim,

Boş bir hücreye 1(bir) yazın ve yazdığınız hücreyi kopyalayınız,
Metinden sayıya dönüştüreceğiz alanı seçin, seçili alan üzerinde Özel Yapıştır/Çarp seçeneği ile yapıştırın.

İyi çalışmalar.

 

[İhsan Tank]

Merhaba Arkadaşlar,

BAşlıktan anlaşılıyor sanırım. Eklediğim dosyada da örnekle açıklamaya çalıştım.
Amacım "metin biçiminde saklanan sayı" hatası veren bir sayı kümesini makro kodu ile "sayıya dönüştür" uygulamak.

"Makro kaydet" seçeneğiyle aradığım koda ulaşmak istedim ama makro bu işlemi kaydetmiyor. DAha doğrusu kod olarak göstermiyor.

Tüm arkadaşlara iyi çalışmalar. Şimdiden teşekkürler.

merhaba
G1 hücresine
1 yazın ve

Sub sayıyaçevir()
Dim i As Long
i = Cells(65536, "B").End(xlUp).Row
Range("G1").Copy
Range("B2:B" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("G1").Select
End Sub

bu makroyu çalıştırın.

 

[xternet]

Arkadaşlar çok teşekkürler. Mahir beyin ifade ettiği düşünceyi İhsan bey kodla ifade etmiş sanırım. Bu kod benim işimi fazlasıyla gördü.
Zihninize sağlık.

Kodu kullanacaklar için küçük bir ilave:
Kod aynen uygulandığında eğer G1 hücresinin biçimlendirmesiyle çarpma işleminin yapıldığı hücrelerin biçimlendirmesi farklı ise (ki bende öyleydi. Bir anda bütün hücre yapısı değişti ), G1 in biçimlendirmesi de kopyalanmış oluyor. Bunun önüne geçmek için

Range("B2:B" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False

yerine,

Range("B2:B" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False

demek yeterli.

 

[Mahir64]

İyi çalışmalar.