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

[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.

Ben böyle bir öneri getirmiştim ama,form kurallarına aykırı :hayir:
Yapmaya çalıştığımın gizli bir yeri yok,sadece benim gibi acemi birisi bunu eski haline getiremez,sıkıntı o

 

[abtani]

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")

Hocam "Veri" adlı sayfadaki ($D$2:$P$18 ve $U$2:$AO$27) bölümleri arasında bulunan verilerin hepsini tek bir kod ile textbox içinde 0,00 formatında gözükmesi için üstteki kod düzenlenebilirmi,tek tek yapmayı beceremedim, İçersine gelen verilen hep aynı oluyor.

 

[Orion1]

Aşağıdaki kodu kendi dosyanıza göre çoğaltınız.

TextBox1.Value = Format(sheets("Veri").Range("D2").Value, "#,##0.00")

 

[abtani]

Yine dediklerinizi çoğaltamadım.Veri aynı veri olarak geliyor.Hocam en iyisi ben bu konuyu daha karıştırmayayım."15" nolu mesajda kodlar vardı,belli bilgili bir arkadaş neyi nasıl düzelteceğimi belirtir.Ben noktalı,virgüllü falan devam edim,bu gidişle hiç kullanılmaz hale getirecem.Zaten bu hale getirene kadar çok kişiyi meşgul ettim.

 

[abtani]

Orion 2 hocam sile sile kuşa çevirdiğim deneme ile ilgili sorunlarım şimdilik aşağıda;
1-"Gelirler" user formda toplamı 00,00 formatında alamıyorum.
2-"Giderler" user formda haziran veya sonraki aylar seçtiğimde kayıt yapamıyorum ve verileri 00,00 formatında alamıyorum.
3-"Isınma" user formunda tarih bölümünü gün.ay.yıl formatında gösteremiyorum.Verdiği sütunlarına 1,2,3,.....23,24 yazdım.Ton fiyatına 10,20,30,.... 230,240 yazdım.Bazı verileri kaydedemiyiorum.
Sabrınız için teşekkür ederim.

 

[chevmet]

hepinizin bilgileri için teşekkür ederim

 

[Orion1]

Orion 2 hocam sile sile kuşa çevirdiğim deneme ile ilgili sorunlarım şimdilik aşağıda;
1-"Gelirler" user formda toplamı 00,00 formatında alamıyorum.
2-"Giderler" user formda haziran veya sonraki aylar seçtiğimde kayıt yapamıyorum ve verileri 00,00 formatında alamıyorum.
3-"Isınma" user formunda tarih bölümünü gün.ay.yıl formatında gösteremiyorum.Verdiği sütunlarına 1,2,3,.....23,24 yazdım.Ton fiyatına 10,20,30,.... 230,240 yazdım.Bazı verileri kaydedemiyiorum.
Sabrınız için teşekkür ederim.

Ekli dosyayı inceleyiniz.
Isınma userform'undaki textbox'ları yerli yerine koyunuz ve dosyayı tekrardan ekleyiniz ki tarihleri formatlayaybileyim.Yahutta Bul butonunda ekim textbox'ına bakınız ve diğer textbox'larıda o şekilde formatlayınız.

 

[abtani]

Orion 2 hocam Isınma user formdaki karışıklığın altından kalkamıyorum.a kişine sıralı veriler girdim,hatalı olan textboxlar kendini belli ediyor,beceremiyorum.Bu bölüm hariç diğer userformlardaki sorunlarım için yardımlarınızı bekliyorum.Artık millet ısınmasın,ne yapalım olmuyor,saygılarımla.

 

[Orion1]

Orion 2 hocam Isınma user formdaki karışıklığın altından kalkamıyorum.a kişine sıralı veriler girdim,hatalı olan textboxlar kendini belli ediyor,beceremiyorum.Bu bölüm hariç diğer userformlardaki sorunlarım için yardımlarınızı bekliyorum.Artık millet ısınmasın,ne yapalım olmuyor,saygılarımla.

Diğer userformlarla ilgili olarak sorduğunuz soruları yaptım.
İnceleyiniz.Olmayanı varsa açıklayınız.

 

[abtani]

Hocam dosyayı eklemeyi unuttunuzmu?

 

[Orion1]

Hocam dosyayı eklemeyi unuttunuzmu?

27 numaralı mesajda.Sanırım indirdiniz ama usreformları denemediniz.

 

[abtani]

peki gider user formda ekim kişi,aralık kişi,vb seçildiğinde excelde 00,00 şeklindeki verilerin user formda 00.00 şeklinde gözükmesi matematiksel işlem yaptığı içinmidir,yoksa bunlarda düzeltilebilirmi?

 

[Orion1]

peki gider user formda ekim kişi,aralık kişi,vb seçildiğinde excelde 00,00 şeklindeki verilerin user formda 00.00 şeklinde gözükmesi matematiksel işlem yaptığı içinmidir,yoksa bunlarda düzeltilebilirmi?

Düzeltilir.Bir bakayım.

 

[Orion1]

Giderler userformunda bul butonundaki elektrik textbox'ını aşağıdaki şekilde formatladım.Bul butonundaki diğer textbox'larıda aşğıdaki örneği inceleyerek siz yapabilirsiniz.

elektrik.Value = Format(ActiveCell.Offset(0, 1).Value, "#,##0.00")

 

[abtani]

Peygamber sabrınız için teşekkür ederim,sağolun...

 

[bezl]

V.Basic For Applications bir özür borçlu sayılırım. Ben Office 2007 İngilizce kullanıyorum. Önerdiğiniz kodu 2007'de deneyince çalışmıyormuş ancak 2003'te çalışıyor. Ama bu benim sorunumu yine çözmüyor 2007'de çalışmıyor denemedim ama ","ü "," le değiştir desem yine 2003'de çalışır sanırım. Ama 2007'nin sıkıntısının ne olduğunu anlamadım. Bu konuyla ilgili bir sorunum da 2003 ve önceki versiyonlarda metin alma sihirbazın gelişmiş seçeneği ile sayı olarak belirtilen metin dosyasında sutundaki binlik ve ondalık ayraçları belirtilerek dönüşüm yaptırılabiliyordu. Ama 2007'de aynı metin dosyası için aynı ayarları yapsanız hiçbirşey değişmiyor. Bu konu ile ilgili bilgisi olanları bekliyorum.
Selamlar...

 

[bezl]

V.Basic For Applications sizin makronuzu benim dosyama denedim (bu arada dosyanın örneğini ektedir) bir sutunda boşluk varsa 0 yaptı ama "1.206,25" gibi bir rakam olan yerde hiçbir değişiklik yapmadı 2003 ve 2007 versiyonlarında da aynı şekilde davrandı. Ekteki dosyadaki H ve I sutunlarını sayıya çevirecek bir kod bulabilirseniz sevinirim. İyice sinirimi bozdu bu olay çok basit bir olay gibi gözüküyor ama bir türlü sonuca ulaşamıyorum.
Cevabınız için şimdiden teşekkürler...

 

[veyselemre]

Sub Makro1()
    With Range("H2:I" & [A65536].End(3).Row)
    .Replace What:=".", Replacement:=""
    .Replace What:=",", Replacement:=Application.DecimalSeparator
    .NumberFormat = "#,##0.00"
    End With
End Sub

 

[emaldemir]

Merhaba,

Çarpma işi çok başarılı,

Saatlerdir uğraşıyorum, sayıya çevir ünleminin kısayolunu bulmaya çalışıyorum, her yolu denedim sanıyordum, bu fikir aklıma gelmemişti,

yardımları geçen arkadaşlara teşekkür ederim,

işimi çok kolaylaştırdınız, sağolun.

iyi çalışmalar.