Userform açıldığında textbox değerleri farklı formatta geliyor

U

User24621

Katılım
3 Şubat 2021
Mesajlar
11
Excel Vers. ve Dili
Vba
Merhaba arkadaşlar,

Excel vba üzerinden hesaplama programı hazırlamıştım. Ancak dosyayı ilk açtığımda userform ekranı açılınca textbox değerleri 2 haneli olarak tanımlanmasına rağmen milyon basamaklı olarak geliyor. (ÖR: 0,32 TL YERİNE 31.932.00 TL OLARAK GELİYOR.)

Yardımcı olursanız çok sevirim.


İyi günler dilerim
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,357
Excel Vers. ve Dili
2019 Türkçe
Dosyanızı eklerseniz yardımcı olmaya çalışırız.
 
Y

yanginci34

Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,654
Excel Vers. ve Dili
excel2016
Altın Üyelik Bitiş Tarihi
12-10-2026
Virgül yerine nokta kullanıp deneyin
 
U

User24621

Katılım
3 Şubat 2021
Mesajlar
11
Excel Vers. ve Dili
Vba
Muzaffer Ali' Alıntı:
Dosyanızı eklerseniz yardımcı olmaya çalışırız.
Genişletmek için tıkla ...
Kod: 
Private Sub CommandButton10_Click()

If ComboBox1.Value = "x" Then
Dim a, y, j, k, c As Integer
Dim b As Double
Dim m, l, i As Integer

j = Sheets("Sayfa1").Range("D9").Value
TextBox2.Value = 0
For k = 5 To 10
    If Worksheets("BİLGİ").Cells(j + 1, k).Value > 0 Then
    If k = 5 Then
    b = Worksheets("BİLGİ").Cells(j + 1, k).Value
    m = (2 * 1 * Worksheets("Sayfa1").Range("S28").Value) / b
    TextBox2.Value = TextBox2.Value + m

    Else
    b = Worksheets("BİLGİ").Cells(j + 1, k).Value
    m = (1 * Worksheets("Sayfa1").Range("S28").Value) / b
    TextBox2.Value = TextBox2.Value + m
    End If
 
    ElseIf Worksheets("BİLGİ").Cells(j + 1, k).Value = 0 Then
   
    End If
   
    Next k

TextBox9.Value = Range("F9")

j = Sheets("Sayfa1").Range("D9").Value
If 58 <= j And j <= 61 Then

TextBox4.Value = TextBox4.Value + ((1 * Cells(14, 16) * (1 + Cells(5, 10)) + 1 * Cells(15, 16) * (1 + Cells(5, 10))) * (Cells(9, 5) / Cells(8, 10)) / Cells(9, 6) + Cells(17, 15) * Cells(17, 16) * (1 + Cells(5, 10)) * (Cells(9, 5) / Cells(8, 10)) / Cells(9, 6))

Else
TextBox4.Value = TextBox4.Value + (1 * Cells(14, 16) * (1 + Cells(5, 10)) + 1 * Cells(15, 16) * (1 + Cells(5, 10))) / Cells(9, 6) + Cells(17, 15) * Cells(17, 16) * (1 + Cells(5, 10)) * (Cells(9, 5) / Cells(8, 10)) / Cells(9, 6)

End If

TextBox4.Value = TextBox4.Value + (Cells(26, 15) * Cells(26, 16) + Cells(25, 15) * Cells(25, 16)) * (1 + Cells(4, 10)) * Cells(9, 5) / Cells(10, 10) / Cells(9, 6)

TextBox4.Value = TextBox4.Value + (Cells(20, 15) * Cells(20, 16) + Cells(18, 15) * Cells(18, 16) + Cells(19, 15) * Cells(19, 16)) * (1 + Cells(4, 10)) * (Cells(9, 5) / Cells(8, 10)) / Cells(9, 6)


If CheckBox1 = True Or CheckBox2 = True Or CheckBox3 = True Then
TextBox4.Value = TextBox4.Value + Cells(24, 15) * Cells(24, 16) * (1 + Cells(5, 10)) * (Cells(9, 5) / Cells(10, 10)) / Cells(9, 6)
End If
If CheckBox4 = True Then
TextBox4.Value = TextBox4.Value + Cells(16, 15) * Cells(16, 16) * (1 + Cells(5, 10)) * (Cells(9, 5) / Cells(8, 10)) / Cells(9, 6)
End If
If CheckBox5 = True Then
TextBox4.Value = TextBox4.Value + Cells(23, 15) * Cells(23, 16) * (1 + Cells(5, 10)) * (Cells(9, 5) / Cells(10, 10)) / Cells(9, 6)
End If
If CheckBox6 = True Then
TextBox4.Value = TextBox4.Value + Cells(22, 15) * Cells(22, 16) * (1 + Cells(5, 10)) * (Cells(9, 5) / Cells(10, 10)) / Cells(9, 6)
End If


If Range("D9") <= 8 Or 11 <= Range("D9") And Range("D9") <= 12 Or 15 <= Range("D9") And Range("D9") <= 22 Or 25 <= Range("D9") And Range("D9") <= 26 Or 29 <= Range("D9") And Range("D9") <= 36 Or 39 <= Range("D9") And Range("D9") <= 40 Or 43 <= Range("D9") And Range("D9") <= 50 Or 53 <= Range("D9") And Range("D9") <= 54 Or Range("D9") = 57 Then
TextBox8.Value = Range("S3") * (1 + Range("J6"))
TextBox7.Value = Range("T3") * (1 + Range("J7"))
End If
If Range("D9") = 10 Or Range("D9") = 24 Or Range("D9") = 38 Or Range("D9") = 52 Then
TextBox8.Value = Range("S5") * (1 + Range("J6"))
TextBox7.Value = Range("T5") * (1 + Range("J7"))
End If
If Range("D9") = 58 Then
TextBox8.Value = Range("S6") * (1 + Range("J6"))
TextBox7.Value = Range("T6") * (1 + Range("J7"))
End If
If Range("D9") = 59 Then
TextBox8.Value = Range("S7") * (1 + Range("J6"))
TextBox7.Value = Range("T7") * (1 + Range("J7"))
End If
If Range("D9") = 9 Or 13 <= Range("D9") And Range("D9") <= 14 Or Range("D9") = 23 Or 27 <= Range("D9") And Range("D9") <= 28 Or Range("D9") = 37 Or 41 <= Range("D9") And Range("D9") <= 42 Or Range("D9") = 51 Or 55 <= Range("D9") And Range("D9") <= 56 Then
TextBox8.Value = Range("S4") * (1 + Range("J6"))
TextBox7.Value = Range("T4") * (1 + Range("J7"))
End If
If Range("D9") = 60 Or Range("D9") = 61 Then
TextBox8.Value = Range("S8") * (1 + Range("J6"))
TextBox7.Value = Range("T8") * (1 + Range("J7"))
End If


TextBox1.Value = CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox7.Value) + CDbl(TextBox8.Value)

If CheckBox9 = True Then
TextBox15.Value = Worksheets("BİLGİ").Cells(j + 1, 14).Value * Cells(11, 10).Value
End If
If CheckBox11 = True Then
TextBox15.Value = Worksheets("BİLGİ").Cells(j + 1, 15).Value * Cells(11, 10).Value
End If

TextBox14.Value = CDbl(TextBox1.Value) + CDbl(TextBox15.Value)
TextBox1 = Format(TextBox1, "#,#0.00 TL")
TextBox2 = Format(TextBox2, "#,#0.00 TL")
TextBox7 = Format(TextBox7, "#,#0.00 TL")
TextBox8 = Format(TextBox8, "#,#0.00 TL")
TextBox9 = Format(TextBox9, "#,#0 ADET")
TextBox3 = Format(TextBox3, "#,#0.00 TL")
TextBox4 = Format(TextBox4, "#,#0.00 TL")
TextBox14 = Format(TextBox14, "#,#0.00 TL")
TextBox15 = Format(TextBox15, "#,#0.00 TL")
TextBox11 = Format(TextBox11, "#,#0.00 TL")

End If



TextBox1.Value = CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox8.Value) + CDbl(TextBox11.Value) + CDbl(TextBox16.Value)
TextBox14.Value = CDbl(TextBox1.Value) + CDbl(TextBox15.Value)
TextBox7.Text = ""
TextBox1 = Format(TextBox1, "#,#0.00 TL")
TextBox8 = Format(TextBox8, "#,#0.00 TL")
TextBox9 = Format(TextBox9, "#,#0 ADET")
TextBox3 = Format(TextBox3, "#,#0.00 TL")
TextBox4 = Format(TextBox4, "#,#0.00 TL")
TextBox14 = Format(TextBox14, "#,#0.00 TL")
TextBox11 = Format(TextBox11, "#,#0.00 TL")
TextBox16 = Format(TextBox16, "#,#0.00 TL")
TextBox15 = Format(TextBox15, "#,#0.00 TL")
End If
End Sub

Private Sub CommandButton2_Click()
Unload hesaplama
End Sub

'formu temizleme butonu'
Private Sub CommandButton3_Click()
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox8.Text = ""
TextBox7.Text = ""
TextBox1.Text = ""
TextBox9.Text = ""
TextBox11.Text = ""
TextBox15.Text = ""
TextBox14.Text = ""
End Sub
 
E

erenb

Katılım
7 Ağustos 2019
Mesajlar
28
Excel Vers. ve Dili
16.0 - Türkçe -- Office 365
Merhaba.
Gözden kaçırmadıysam Userform ilk görüntüleme kodu paylaştığınız commandbuttona değil başka bir tetikliyiciye bağlı. userform ilk açıldığında üzerindeki textbox değerleri başka bir kod ile dolduruluyor. O kodları gözden geçirmeniz gerekiyor.
 
U

User24621

Katılım
3 Şubat 2021
Mesajlar
11
Excel Vers. ve Dili
Vba
erenb' Alıntı:
Merhaba.
Gözden kaçırmadıysam Userform ilk görüntüleme kodu paylaştığınız commandbuttona değil başka bir tetikliyiciye bağlı. userform ilk açıldığında üzerindeki textbox değerleri başka bir kod ile dolduruluyor. O kodları gözden geçirmeniz gerekiyor.
Genişletmek için tıkla ...
atanan makro kodu :

userformun adı hesaplama

Sub Düğme1_Tıklat()
Sheets("Sayfa1").Select
hesaplama.Show

End Sub
 
E

erenb

Katılım
7 Ağustos 2019
Mesajlar
28
Excel Vers. ve Dili
16.0 - Türkçe -- Office 365
User24621' Alıntı:
atanan makro kodu :

userformun adı hesaplama

Sub Düğme1_Tıklat()
Sheets("Sayfa1").Select
hesaplama.Show

End Sub
Genişletmek için tıkla ...

Merhaba.
Anlatmaya çalıştığım; userform ilk çalıştığında veya ilk görüntülendiğinde userforma değer atayan kodlar nerede ise onları gözden geçirmelisiniz. Verdiğiniz blgilere göre; kodlar "Hesaplama" isimli userform ile ilgili öğelerde olabileceği gibi, "sayfa1" in aktif olmasına da bağlanmış olabilir. (Fakat çalıştığınız çalışma sayfasının kapatılması gibi bambaşka bir öğeye de atanmış olabilir)

VBA editöründe iken Useforma çitf tıklamaz halinde varsa userforma bağlı olarak çalışan kodlar görülecektir. Genellikle "Private Sub UserForm_Initialize()" veya "Private Sub UserForm_Activate()" kısmında oluyor, Burada yoksa VBA editöründe iken "Sayfa1" nesnesinin "Private Sub Worksheet_Activate()" gibi özelliklerine bakınız.
 
U

User24621

Katılım
3 Şubat 2021
Mesajlar
11
Excel Vers. ve Dili
Vba
erenb' Alıntı:
Merhaba.
Anlatmaya çalıştığım; userform ilk çalıştığında veya ilk görüntülendiğinde userforma değer atayan kodlar nerede ise onları gözden geçirmelisiniz. Verdiğiniz blgilere göre; kodlar "Hesaplama" isimli userform ile ilgili öğelerde olabileceği gibi, "sayfa1" in aktif olmasına da bağlanmış olabilir. (Fakat çalıştığınız çalışma sayfasının kapatılması gibi bambaşka bir öğeye de atanmış olabilir)

VBA editöründe iken Useforma çitf tıklamaz halinde varsa userforma bağlı olarak çalışan kodlar görülecektir. Genellikle "Private Sub UserForm_Initialize()" veya "Private Sub UserForm_Activate()" kısmında oluyor, Burada yoksa VBA editöründe iken "Sayfa1" nesnesinin "Private Sub Worksheet_Activate()" gibi özelliklerine bakınız.
Genişletmek için tıkla ...

öncelikle teşekkür ederim söyledğiniz kısımdan kontrol ettim ancak dosyayı farklı bir bilgisayarda açtığımda şu uyarıyı veriyor:

Kaldırılan Kayıtlar: /xl/worksheets/sheet1.xml parçasından Formül

Kaldırılan Kayıtlar: /xl/calcChain.xml parçasından Formül (Hesaplama özellikleri)
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst