Kg Tona Cevirmek

[polis-53]

Merhaba Arkadaşlar Kg tona çevireceğim excel tablomda 1000 den fazla rakamlarım var bunları teker teker değiştirmek uzun sürer Bul Değiştirle örneğin 100000 rakamına virgül nasıl Bul Değiştirle koyabilirim.

 

[Murat OSMA]

Virgül koymadan direkt 1000'e bölseniz olmaz mı ?

 

[Mahir64]

Merhaba Arkadaşlar Kg tona çevireceğim excel tablomda 1000 den fazla rakamlarım var bunları teker teker değiştirmek uzun sürer Bul Değiştirle örneğin 100000 rakamına virgül nasıl Bul Değiştirle koyabilirim.

Merhaba,

Neresine virgül konulacak.

 

[Milady Meriç]

#,###," TON"

Verilerin bulunduğu hücre biçimlendirmesine bunu uygulayın. İşinizi görebilir.

 

[YUSUF44]

Gerşekten sayı olarak da ton olmasını istiyorsanız herhangi boş bir hücreye 1000 yazıp kopyalayın ve dönüştürülecek hücreleri seçip özel yapıştırdan Böl'ü seçin. Hücre biçimini istediğiniz gibi ayarlayın.

 

[polis-53]

merhabalar örneğin 98500-100500-212- 2123 gibi rakamları 98,500-100,500-0,212-2,123 gibi yapmak istiyorum

 

[YUSUF44]

Benim yöntemim işinizi görmedi mi?

 

[Seyit Tiken]

Bu şekilde bir deneyin, işe yarayacak mı?
A1 hücresi için geçerli.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([a1]) = 4 Then [a1].NumberFormat = "0"",""000"
If Len([a1]) = 5 Then [a1].NumberFormat = "00"",""000"
If Len([a1]) = 6 Then [a1].NumberFormat = "000"",""000"
End Sub

 

[polis-53]

Beni yanlış anladınız arkadaşlar ben yazılmış olan rakamları virgülle ayırmak istiyorum

 

[Murat OSMA]

Verilerinizin A sütununda olduğu düşünülmüştür...
Deneyiniz...

[SIZE="2"]Sub Emre()
    Dim i As Integer
    For i = 1 To Range("A65536").End(3).Row
    Cells(i, 1) = CDbl(Cells(i, 1) / 1000)
    Next i: i = Empty
End Sub[/SIZE]

 

[polis-53]

Murat OSMA

Merhaba çok teşekkür ederim vermiş olduğunuz bu kodu aynı anda A,B,C sutunlarınada uygulayabilirmiyiz

 

[Murat OSMA]

İsterseniz bu kodun altına;

 Cells(i, 1) = CDbl(Cells(i, 1) / 1000)

Bu kodları ilave edin;

Cells(i, 2) = CDbl(Cells(i, 2) / 1000)
Cells(i, 3) = CDbl(Cells(i, 3) / 1000)

yada kodu şu şekilde değiştirin;

[SIZE="2"]Sub Emre()
    Dim i, a As Integer
    For a = 1 To 3
    For i = 1 To Range("A65536").End(3).Row
    Cells(i, a) = CDbl(Cells(i, a) / 1000)
    Next i: Next a: i = Empty: a = Empty
End Sub[/SIZE]