Seçili Sütundaki Verileri Sayıya Çevirme Hakkında

[bilal5412]

S.a arkadaşlar, aşağıdaki makro seçili bir sütundaki metin gibi görünen karakterleri sayıya çeviren makrodur. Fakat bu makro seçili sütunda satırlar arasında boşluk var ise veya seçili sütunün en üsttündeki satır boş ise yukarı doğru kayma hareketi yapıyor. bu kayma hareketini engelleme konusunda yardımcı olabilir misiniz.

Sub CEVİRR()
On Error Resume Next
If sutun = "" Then
End If
Selection.TextToColumns Destination:=Selection.Cells(1, 1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

End Sub

 

[Asri]

Alternatif;

Excel mouse sağ tuş eklentisi ile, sayılar üzerinde aşağıdaki işlemleri yapabilirsiniz. Ayrıca 100 den fazla işlemi.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html

SAYILAR
* Rastgele tam sayı üret arasında n ile n arasında n adet
* Rastgele ondalık sayı üret arasında n ile n arasında n adet
* Sayıyı bu kadar eksilt
* Sayıyı bu kadar arttır
* Sayıyı bu kadar eksilt %
* Sayıyı bu kadar arttır %
* Sayılarda virgülden sonra n hane sonrasını kes.
* Sayıları eksi - yap
* Sayıları artı + yap
* Sayıların virgünden sonrasını kes.
* Sayıların virgünden öncesini kes.
* Onluk nokta (.) ondalık virgül (,) olsun
* Onluk virgül (,) ondalık virgül (.) olsun
* Sayıya çevir
* Sayıları metne çevir
* Parayı yazıya çevir

 

[bilal5412]

Aşağıdaki kod için tşkler. Yukarıdaki kod için ne yapabiliriz.

Alternatif;

Excel mouse sağ tuş eklentisi ile, sayılar üzerinde aşağıdaki işlemleri yapabilirsiniz. Ayrıca 100 den fazla işlemi.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html

SAYILAR
* Rastgele tam sayı üret arasında n ile n arasında n adet
* Rastgele ondalık sayı üret arasında n ile n arasında n adet
* Sayıyı bu kadar eksilt
* Sayıyı bu kadar arttır
* Sayıyı bu kadar eksilt %
* Sayıyı bu kadar arttır %
* Sayılarda virgülden sonra n hane sonrasını kes.
* Sayıları eksi - yap
* Sayıları artı + yap
* Sayıların virgünden sonrasını kes.
* Sayıların virgünden öncesini kes.
* Onluk nokta (.) ondalık virgül (,) olsun
* Onluk virgül (,) ondalık virgül (.) olsun
* Sayıya çevir
* Sayıları metne çevir
* Parayı yazıya çevir

 

[Asri]

Aşağıdaki kod için tşkler. Yukarıdaki kod için ne yapabiliriz.

Kodu aşağıdaki şekilde deneyiniz.

Sub CEVİRR()
 On Error Resume Next
 If sutun = "" Then
 End If
 sonsatir = Cells(Rows.Count, ActiveCell.Column).End(3).Row
 For i = 1 To sonsatir
   If Cells(i, ActiveCell.Column) = "" Or Cells(i, ActiveCell.Column) = Empty Then
    
   Else
    Cells(i, ActiveCell.Column) = 0 + Cells(i, ActiveCell.Column)
   End If
 Next i

End Sub

 

[bilal5412]

aşağıdaki kod için teşekkürler. fakat satır arasındaki veya satır üstlerindeki hücrelerdeki boş hücrelere sıfır yazıyor. sıfır yazması engellenebilir mi. ve ayrıca, boş hücrelerde çalışmaması gerekiyor.

saygılar.

Kodu aşağıdaki şekilde deneyiniz.

Sub CEVİRR()
 On Error Resume Next
 If sutun = "" Then
 End If
 sonsatir = Cells(Rows.Count, ActiveCell.Column).End(3).Row
 For i = 1 To sonsatir
    Cells(i, ActiveCell.Column) = 0 + Cells(i, ActiveCell.Column)
 Next i

End Sub

 

[Asri]

aşağıdaki kod için teşekkürler. fakat satır arasındaki veya satır üstlerindeki hücrelerdeki boş hücrelere sıfır yazıyor. sıfır yazması engellenebilir mi. ve ayrıca, boş hücrelerde çalışmaması gerekiyor.
saygılar.

Boş hücre durumuna göre kod güncellendi.

 

[bilal5412]

Tüm yardımlarınız için teşekkürler.

Allah (c.c) sizin de işlerinizi kolaylaştırsın.

Boş hücre durumuna göre kod güncellendi.

 

[Asri]

Tüm yardımlarınız için teşekkürler.

Allah (c.c) sizin de işlerinizi kolaylaştırsın.

Cümlemizin, amin.