Sayıya çevirmek

[balca]

Sayıya çevirmek

Merhaba;
Ekte bulunan dosyayı uzantısı .txt dosyasından oluşturdum.
Onbin satır civarında bilgiler mecut problem;
Ã?rnek olarak sarı ile renklendirdiğim hücreleri sayıya çevirme imkanım yokmu?

Tek yapmaya çalışıyorum (f2 ile gelip kuruş hanesindeki . (noktayı) , (virgül) yapmaya çalışıyorum bir yol yok mu? :kafa:

Ek: Bul değiştir ile de olmuyor...

 

[zafer]

Merhaba

hücreler hep aynı formattaysa

Sub AA()
aaa = Right(ActiveCell, 2) * 1
aab = Left(ActiveCell, 5) * 1
ccc = aab & "," & aaa
ddd = ccc * 1
ActiveCell = ddd
End Sub

 

[veyselemre]

aktif hücrenin bulunduğuğu sütunda 8. satırdan son satıra kadar sağdan 3.karekter . ise o hücrede noktaları atar 100 e böler

 

[isakarakus]

merhaba,
ben de fantastik bir yol denedim ve oldu,

örneğin c sutununu seçin, ve başka bir yere kopyala
daha sonra Text to Columns, (türkçesi neydi, sutunlara ayırmıydı??)
menüsünü tıkla, ayıraç olarak noktayı seç. yirgül içeren hatasız değerler,
sabir kalacaktır, nokta içerenler ayrılacaktır, şimdi bunları son iki rakamın önüne,
virgül ekleyerek birleştir. sutunu seçip özel yapıştır, ve
seçenek olarak, paste bölümünden values, operation bölümünden Add'ı seç ve okeyle,
bu şekilde makro kullandaman da yapılabiliyor.
anlatım biraz bozuk oldu ama umarım siz anlamışsınızdır.

 

[isakarakus]

sayfa 2 de anlatmaya çalıştım,
umarım başkalarına da faydalı olur.

 

[zafer]

Merhaba

Sub AA()
For Each hucre In Selection
adres = hucre.Address
Range(adres).Replace What:=".", Replacement:=""
aaa = Right(hucre, 2)
ggg = Len(hucre) - 2
lll = Mid(hucre, 1, ggg)
ccc = lll & "," & aaa
ddd = ccc * 1
Range(adres) = ddd
Next
End Sub

 

[isakarakus]

çok güzel ,
aynı şeyi bul değiştirdden de yapabilir öyleyse,,
tümünündeki noktaları ve virgulleri kaybedip, sonra 100'e böleriz
işlem tamam.

 

[balca]

Arkadaşlar teşekkür ederim problemi çözdüm (Yardımlarınızla..)

Eksik olmayın..

 

[zafer]

Merhaba

çok güzel ,
aynı şeyi bul değiştirdden de yapabilir öyleyse,,
tümünündeki noktaları ve virgulleri kaybedip, sonra 100'e böleriz
işlem tamam.

Doğru, hiç aklıma gelmemişti.

 

[isakarakus]

evet,
fikirler diğer fikirlere ışık tutuyor,

ama sn.@balca tuttu teşkkür etti konuyu kapattı,
halbuki yeni yeni ısınıyorduk.


şaka şaka,
:arkadas:

 

[balca]

 

[balca]

Yorum yok...

Yardımseverliğiniz için teşekkürler..