Çözüldü Textboxa gelen toplam değer

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

mertatakan3838

Normal Üye
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

Ekli dosyalar

  • HATA.webp
    HATA.webp
    19.6 KB · Görüntüleme: 4
.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 @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.
 
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.5 KB · Görüntüleme: 5
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
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.
 
Şu şekilde deneyelim. Aşağıda 2 farklı prosedür var. Bunları formunuzun kodlarına ekleyin.

VBA:
You must log in to view content
(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:
You must log in to view content
(15 satır)

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

VBA:
You must log in to view content
(3 satır)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Konuyu başlatan
Normal Üye
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
18
Üst