TextBox Toplam Değerini Biçimlendirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Kısa Açıklama

TextBox Toplam Değerini Biçimlendirme isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Herkese hayırlı sabahlar öncelikle benim sorunum userformdaki combobox ile textboxlara veri getirtiyorum. Ancak textboxlara değer getirttiğimde TL ibaresini ve sayının sağına virgülden sonra iki sayı daha gelsin istiyorum örneğin 325,00 TL gibi çalışma sayfam ektedir. Yardımlarınız için şimdiden teşekkürler
 

Ekli dosyalar

textbox66 da denedim şu hatayı verdi hocam

HATA.webp
 
.cells den önce bu hücrenin nerede olduğunu belirtmeniz lazım. Aktif sayfadan alıyorsanız noktasız olarak sadece cells yazın. Farklı bir sayfadan sa thisworkbook.worksheets("sayfa1").cells(.... Gibi deneyin
 
Merhaba Sayın @mertatakan3838
Sayın @selmank Beyefendi şuan forumda çevrimiçi değil.

Örnek belgenize baktığımda, mevcut kodlarınızda TextBox lar ile ilgili satırların başında
With Sheets("ÖZEL") , sonunda da End With satırları var.
Dolayısıyla, bu With...End With arasındaki kod satırlarında Cells ibaresinin başına yazılan NOKTA Sheets("ÖZEL") anlamına geliyor durumda
ve TexkBoxa ilişkin o satırlarda her seferinde sayfa adının yazılmasına gerek kalmıyor sonuç olarak.

TextBox içeriğinin BİÇİMi için Sayın @selmank'nın önerdiği yöntemde bir sorun yok.
Deneme yaparken işlemi doğru yaptığınızdan emin misiniz?
Örneğin TextBox66 nın kod satırında TextBox66 = Format(.Cells(rngBul.Row, "D"), "#0.00 TL")
şeklinde düzenleme yaptığımda bir sorun görmedim.

Userform'daki nesnelerin adlandırılması/numaralandırılması için bir önerim olsun;
bu isimlendirme sırasında mümkün olduğunca nesnenin veri aldığı sütun numaralarıyla nesne numaraları arasında
matematiksel bir ilişki
olursa kodlamaların daha kısa yapılması, düzenleme gereği duyulduğunda hata/kontrol işlemlerinde çok kolaylık yaşarsınız.
Örneğin TextBox66 veriyi D (4'üncü sütun) sütunundan alıyor o zaman bu TextBox'un adını TextBox4 yaparsanız, kodlamanın ileriki aşamalarında çok kolaylık olur.
 
Merhaba Sayın @mertatakan_3838 .
Sayın @Selman Beyefendi şuan forumda çevrimiçi değil.

Örnek belgenize baktığımda, mevcut kodlarınızda TextBox lar ile ilgili satırların başında
With Sheets("ÖZEL") , sonunda da End With satırları var.
Dolayısıyla, bu With...End With arasındaki kod satırlarında Cells ibaresinin başına yazılan NOKTA Sheets("ÖZEL") anlamına geliyor durumda
ve TexkBoxa ilişkin o satırlarda her seferinde sayfa adının yazılmasına gerek kalmıyor sonuç olarak.

TextBox içeriğinin BİÇİMi için Sayın @Selman 'ın önerdiği yöntemde bir sorun yok.
Deneme yaparken işlemi doğru yaptığınızdan emin misiniz?
Örneğin TextBox66 nın kod satırında TextBox66 = Format(.Cells(rngBul.Row, "D"), "#0.00 TL")
şeklinde düzenleme yaptığımda bir sorun görmedim.

Userform'daki nesnelerin adlandırılması/numaralandırılması için bir önerim olsun;
bu isimlendirme sırasında mümkün olduğunca nesnenin veri aldığı sütun numaralarıyla nesne numaraları arasında
matematiksel bir ilişki
olursa kodlamaların daha kısa yapılması, düzenleme gereği duyulduğunda hata/kontrol işlemlerinde çok kolaylık yaşarsınız.
Örneğin TextBox66 veriyi D (4'üncü sütun) sütunundan alıyor o zaman bu TextBox'un adını TextBox4 yaparsanız, kodlamanın ileriki aşamalarında çok kolaylık olur.
yine olmadı hata verdi ömer hocam
 

Ekli dosyalar

  • HATA2.webp
    HATA2.webp
    21 KB · Görüntüleme: 29
Dosyada herhangi bir mesaj almadım. Zaten resimde gösterdiğiniz textbox66 ile ilgilide bir kod göremedim. Problemi tam anlamadığım için yardımcı olamıyorum, üzgünüm.
 
Selman bey ben textbox66 daki kodu hata verince sildim userformdaki combobox ile textboxlara veri getirtiyorum ancak toplam değerin olduğu textboxlara gelen sayıların sağına iki sıfır ve tl ibaresi getirtmek istedim sadece
 
Şu şekilde deneyelim. Aşağıda 2 farklı prosedür var. Bunları formunuzun kodlarına ekleyin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(11 satır)

Combobox' ların Change olayında textbox' lara değerlerini atıyorsunuz. Bunun sonunda TumTextBoxlariFormatla prosedürünü çağırın.. Böylece numerik veri içeren tüm textboxlar istediğiniz şekilde formatlanacaktır.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(15 satır)

Tek bir textboxı formatlamak için ise EXIT olayının kodunu şekilde yazın:

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst