Metin olarak Algılanan Sayıyı Makro ile Sayıya çevirme

[bezl]

İyi günler,
bir metin dosyasından makro ile ve schema.ini yardımı ile verileri excele alıyorum. Ancak bu metin dosyasında binlik ve ondalık ayraçları benim sistemime göre ters olduğundan bu sutunları (schema.ini özelliklerinden ayarlamaya çalıştım ama olmadı bunla çözebilsem daha iyi olur herhalde ama bulamadığım için devam ediyorum) metin olarak gösteriyorum sonra excelde işte "." yı "x" le değiştiriyorum sonra "," ü "." ile değiştiriyorum sonunda "x" leri "," e değiştiriyorum. Ama sonuçta bu sutunlar yine metin tanımlı oluyor. Sonra bu sutunların biçimini sayı biçimi veriyorum. Sorun ise şu makro ile yapmaksızın dosya önünüzdeyken "." yı "." ve "," ü "," değiştir dediğiniz de otomatik olarak hepsini sayıya çeviriyor. Ama bu işlemi makro ile yaptığınızda hiçbir şey değişmiyor. Makro ile bu metin gibi algılanan sayıları nasıl sayıya çevirebilirim.
İlgi ve bilgileriniz için şimdiden teşekkürler...

 

[mehmett]

Makrosuz bir yöntem; Boş bir hücreye 1 yazın ve kopyalayın, metin olarak algılanan ve sayıya çevirmek istediğiniz hücrelerin tümünü seçin, seçili alanı sağ tıklayın, Özel yapıştır, Çarp, Tamam'ı tıklayın.

 

[N.Ziya Hiçdurmaz]

yanıt

Makrolu örnek.

Private Sub CommandButton1_Click()
On Error Resume Next
[IV1] = "1"
[IV1].Copy
    Range(RefEdit1).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
End Sub

 

[bezl]

makronuzu çalıştırdım ama işe yaramadı.

 

[N.Ziya Hiçdurmaz]

Formdaki seçim kutusundan Metin olarak saklanan sayıları seçip denedinizmi.

 

[bezl]

Bu konuda yardımcı olabilecek arkadaşlar aranıyor, buluruz inşaallah...

 

[veyselemre]

Bahsettiğiniz txt, ini ve excel dosyalarını eklerseniz daha iyi olur.

 

[abtani]

Makrolu örnek.

Private Sub CommandButton1_Click()
On Error Resume Next
[IV1] = "1"
[IV1].Copy
    Range(RefEdit1).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
End Sub

Hocam peki bu çalışmada sayı formatını 0,00 veya 00,00 veya 000,00 yani virgülden sonra iki basamak şeklinde gösterebilmek için verdiğiniz koda nasıl bir ekleme yapabiliriz acaba?Şimdiden teşekkür eder,saygılar sunarım.

 

[kelkitli]

Sayın bezl selamlar,

Bu konuda yardımcı olabilecek arkadaşlar aranıyor, buluruz inşaallah...

Sayın V.Basic For Applications ve Sayın veyselemreden Sayın mehmett ten daha iyi kimi bulacaksınız ki anlatılanlara kulak verseniz daha iyi olur.

 

[N.Ziya Hiçdurmaz]

yanıt

Sayın Abtani isteğiniz böyle birşey sanırım.
Private Sub CommandButton1_Click()
On Error Resume Next
[IV1] = "1"
[IV1].Copy
Range(RefEdit1).Select
Selection.NumberFormat = "0.00"
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub

 

[abtani]

Sayın V.Basic For Applications anlamak istediğim buydu,teşekkürler.Excelde hallettim,fakat user formda 0,00 formatında göstermiyor,sanırım bir yerlerde yanlış yapıyorum.Kararlıyım öğreneceğim bu kod işini.

 

[Orion1]

Hocam peki bu çalışmada sayı formatını 0,00 veya 00,00 veya 000,00 yani virgülden sonra iki basamak şeklinde gösterebilmek için verdiğiniz koda nasıl bir ekleme yapabiliriz acaba?Şimdiden teşekkür eder,saygılar sunarım.

Merhaba.
Sayın VisualBasicForAapplication'un kodlarına aşağıdaki kırmızı ile yazılmış kodu ekledim .İsterseniz bir deneyiniz.

Private Sub CommandButton1_Click()
    On Error Resume Next
    [IV1] = 1
    [B][COLOR="Red"]Range("IV1").NumberFormat = "#,##0.00"[/COLOR][/B]
    [IV1].Copy
    Range(RefEdit1).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
End Sub

 

[abtani]

Sayın Orion2 dediklerinizi uyguladım,excel tablolarında veriler 0,00 formatında, fakat veriler user formda 00 şeklinde gösteriyor.Form üzerinde 0,00 şeklinde düzeltme yaptığımda en altta alması gereken toplamı alamıyor.Şunu öğrenebilirmiyim acaba sizlerden.User formda bulunan bir text.box içindeki bir verinin 0,00 şeklinde gösterilmesini sağlayan bir yer varmıdır.Özel çalışmaların formda yayınlanması ve özel mesajlara cevap verilmeyeceği şeklinde bir uyarı okuduğum için buraya dosyayı ekleyemiyorum.Benzer hatalı yeni bir dosyada oluşturamıyorum.Özür dilerim.

 

[Orion1]

Tetxbox'a verileri aldığınız zaman veriyi formatlı şekilde alınız.
Aşağıdaki örnekte Textbox1'e ,a1 hücresindeki değer ,istediğiniz şekilde formatlanarak alınıyor.
Siz kendi çalışmanıza uyarlayınız.

TextBox1.Value = Format(Range("A1").Value, "#,##0.00")

 

[abtani]

Hocam beceremedim,veri sayfasında 0,00 şeklinde gösterilen verilerin bazıları user formda 0,00 bazıları 00 bazıları 0.00 şeklinde görülüyor.Kodları bir word belgesi olarak ekledim.Yeni öğrenmeye başlayan bir kişinin anlayacağı dilde değiştirmem gereken kodlardan bir kaç tanesini farklı bir renk ile düzenlemeniz dileği ile.Fazla yorduğum için tekrar özür diliyorum.

 

[Orion1]

Merhaba.
Eklediğiniz excel dosyasında userform ve vba kodları yok.

 

[abtani]

Hocam kodları word belgesi olarak eklemiştim.Özel programlarızı sitede yayınlamayın dendiği için böyle yaptım.Uygun görürseniz bir dosya paylaşım sitesi yardımı ile özel mesaj ile gönderebilirim.

 

[Orion1]

Hocam kodları word belgesi olarak eklemiştim.Özel programlarızı sitede yayınlamayın dendiği için böyle yaptım.Uygun görürseniz bir dosya paylaşım sitesi yardımı ile özel mesaj ile gönderebilirim.

Niye ki.Herkez örnek dosya yolluyor.

 

[abtani]

Elimdekini örnek dosya haline getirirsem,tekrar eski haline getiremem. Bilgisayar,kod,excel konusunda tam bir acemiyim hocam.

 

[Orion1]

Elimdekini örnek dosya haline getirirsem,tekrar eski haline getiremem. Bilgisayar,kod,excel konusunda tam bir acemiyim hocam.

Ne yapacağız öyleyse.