• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kalorifer Yakıt Alımı Fiyat Farkı Programı

Ö

özdil1

Katılım
17 Şubat 2009
Mesajlar
83
Excel Vers. ve Dili
office 2003
Merhabalar;
Öncelikle bizlere yardımlarınızdan dolayı teşekkür ederim. Hazırlamaya çalıştığım fiyat farkı programında aşağıdaki konularda yardımınıza ihtiyacım var.
1-(TextBox4)’e sayfa2 (B2) hücresindeki rakamı taşımaya çalıştım. (B2) hücresinde virgülden sonra 5 basamak olmasına rağmen (TextBox 4)’te 4 basamak görünüyor.

2- (TextBox3)’teki rakamın,(TextBox4)’teki rakama bölünmesiyle çıkan sonuçtan 1 eksiltilerek,(TextBox7)’ye aktarılmasını bir türlü yapamadım.

3-Ayrıca TextBoxlarda rakamları yazarken (virgül) yerine sadece (nokta) kullanılmasına izin verilmesini sağlayabilirmiyiz.(TextBoxlarda rakamlar arasında virgül kullanılınca excel sayfasında hatalar meydana geliyor.)
Değerli katkılarınıza şimdiden teşekkür eder saygılar sunarım.
 

Ekli dosyalar

özdil' Alıntı:
Merhabalar;
Öncelikle bizlere yardımlarınızdan dolayı teşekkür ederim. Hazırlamaya çalıştığım fiyat farkı programında aşağıdaki konularda yardımınıza ihtiyacım var.
1-(TextBox4)’e sayfa2 (B2) hücresindeki rakamı taşımaya çalıştım. (B2) hücresinde virgülden sonra 5 basamak olmasına rağmen (TextBox 4)’te 4 basamak görünüyor.

2- (TextBox3)’teki rakamın,(TextBox4)’teki rakama bölünmesiyle çıkan sonuçtan 1 eksiltilerek,(TextBox7)’ye aktarılmasını bir türlü yapamadım.

3-Ayrıca TextBoxlarda rakamları yazarken (virgül) yerine sadece (nokta) kullanılmasına izin verilmesini sağlayabilirmiyiz.(TextBoxlarda rakamlar arasında virgül kullanılınca excel sayfasında hatalar meydana geliyor.)
Değerli katkılarınıza şimdiden teşekkür eder saygılar sunarım.
Genişletmek için tıkla ...

Textbox4 deki sorunuz için nkta virgülden kaynaklanan sorun excel noktadan sonraki 4 satırı görüyor virgülde bu sınırlama yok



Textbox3 için kod

Kod: 
Private Sub TextBox3_Change()
On Error Resume Next
If Right(TextBox3.Text, 1) = "," Then TextBox3.Text = Mid(TextBox3.Text, 1, Len(TextBox3.Text) - 1) & "."
TextBox7.Text = (TextBox3.Text / TextBox4.Text) - 1
End Sub
 
halit3' Alıntı:
Textbox4 deki sorunuz için nkta virgülden kaynaklanan sorun excel noktadan sonraki 4 satırı görüyor virgülde bu sınırlama yok



Textbox3 için kod

Kod: 
Private Sub TextBox3_Change()
On Error Resume Next
If Right(TextBox3.Text, 1) = "," Then TextBox3.Text = Mid(TextBox3.Text, 1, Len(TextBox3.Text) - 1) & "."
TextBox7.Text = (TextBox3.Text / TextBox4.Text) - 1
End Sub
Genişletmek için tıkla ...

Çok teşekkür ederim cevabınız için. Kodu uyguladım sonuç doğru çıkıyor. Ancak; bölme işleminin sonucu TextBox7'de sonucu etkilememesine rağmen farklı bir rakama dönüşüyor.Bunu düzeltmek mümkünmüdür. Birde texboxlardaki nokta virgül sorunu; virgül koyunca excel sayfalarına farklı rakamlar yansıyor. Tekrar ilgilenirseniz memnun olur saygılar sunarım.
 
Konuyla alakalı değerli katkılarınızı bekler saygılar sunarım.
 
Merhabalar; Konuya değerli katkılarınızı bekliyor saygılar sunuyorum.Eğer programı bitirebilirsem işimize çok kolaylıklar sağlayacak. Ben bu konularda çok acemiyim. Ancak sayenizde bunu yapabilirim. Şahsımıza ve forumdaki tüm katılımcılara yardımlarını esirgemeyen siz değerli üstadlara ne kadar teşekkür etsek azdır. Bizlere çok değerli zamanınızı ayırıyorsunuz. Herkese saygı ve selamlar.
 
Değerli üstadlar; Bu proğram için elim kolum bağlandı.Bir adım yol alamadım.Değerli katkılarınızı esirgemeyeceğiniz ümidini taşımakla birlikte, gerek benim konum ve gerekse diğer konularda katkı sağlayan herkese saygı ve selamlar sunarım.
 
TextBox'ta rakam sorunu

Merhabalar;
Yukarıda izah etmeye çalıştığım sorunlarla ilgili cevap alamadım.Bunun nedenini acemiliğimden kaynaklanan soru sorma beceriksizliğime bağlıyorum. Buradan hareketle, hoşgörünüze sığınarak kademe kademe sorularımı sorarak çözüm bulmayı düşündüm. Konu hakkında forumda tarama yaptım. Benzer örnekler bulup uyarlamaya çalıştım ancak yine çözüm olmadı. Sorum şu şekilde; (Userform2) (TextBox2)’ye 2,53370 rakamını yazıp (Sayfa2) (B2) hücresine kayıt ediyorum ancak burada rakam 253.370,00000 şekline dönüşüyor. Bunu düzelttikten sonra bu rakamı (Userform1) (TextBox4)’e çekmek istiyorum. Değerli katkılarınızı esirgemeyeceğinizi biliyor saygılar sunuyorum.
 

Ekli dosyalar

özdil' Alıntı:
yardımlarınıza çok ihtiyacım var
Genişletmek için tıkla ...

Userform2 deki kaydet düğmesinin kodunu bununla değiştirin.

Kod: 
Private Sub CommandButton1_Click()
Sheets("Sayfa2").Range("B1").Value = TextBox1.Value
If Left(TextBox2.Text, 1) = "," Or Left(TextBox2.Text, 1) = "." Then
TextBox2.Text = Mid(TextBox2.Text, 2, Len(TextBox2.Value) - 1)
End If
If Right(TextBox2.Text, 1) = "," Or Right(TextBox2.Text, 1) = "." Then
TextBox2.Text = Mid(TextBox2.Text, 1, Len(TextBox2.Value) - 1)
End If

say = 0
For i = 1 To Len(TextBox2.Value)
If Mid(TextBox2.Text, i, 1) = "," Or Mid(TextBox2.Text, i, 1) = "." Then
say = say + 1
End If
Next

If say > 1 Then
For i = Len(TextBox2.Value) To 1 Step -1
If Mid(TextBox2.Text, i, 1) = "," Or Mid(TextBox2.Text, i, 1) = "." Then
deg2 = Replace(Replace(Mid(TextBox2.Text, 1, i), ".", ""), ",", "")
Exit For
End If
Next
TextBox2.Value = deg2 & Mid(TextBox2.Text, i, Len(TextBox2.Value))
End If
TextBox2.Value = Replace(TextBox2.Value, ".", ",")
Sheets("Sayfa2").Range("B2").Value = TextBox2.Value
Sheets("Sayfa3").Range("I20").Value = TextBox2.Value
son = 0
For i = 1 To Len(TextBox2.Value)
If Mid(TextBox2.Text, i, 1) = "," Then
son = 1
deg = Mid(TextBox2.Value, i + 1, Len(TextBox2.Value)) * 1
Sheets("Sayfa2").Range("B2").Value = Mid(TextBox2.Value, 1, i - 1) & "." & deg
Sheets("Sayfa3").Range("I20").Value = Mid(TextBox2.Value, 1, i - 1) & "." & deg
Exit For
End If
Next
Sheets("Sayfa2").Range("B2").NumberFormat = "#,##0 $"
Sheets("Sayfa3").Range("I20").NumberFormat = "#,##0 $"

If son = 1 Then
For j = Len(TextBox2.Value) To 1 Step -1
If Mid(TextBox2.Value, j, 1) = "," Then
Exit For
Else
alan1 = alan1 & "0"
End If
Next
End If
Sheets("Sayfa2").Range("B2").NumberFormat = "#,##0." & alan1 & " $"
Sheets("Sayfa2").Range("B4").Value = TextBox3.Value
Sheets("Sayfa2").Range("B5").Value = TextBox4.Value
Sheets("Sayfa2").Range("B6").Value = TextBox5.Value
Sheets("Sayfa2").Range("B7").Value = TextBox6.Value
Sheets("Sayfa2").Range("B8").Value = TextBox7.Value
Sheets("Sayfa2").Range("B9").Value = TextBox8.Value
Sheets("Sayfa2").Range("B10").Value = TextBox9.Value
Sheets("Sayfa2").Range("B11").Value = TextBox10.Value
Sheets("Sayfa2").Range("B12").Value = TextBox11.Value
Sheets("Sayfa2").Range("B13").Value = TextBox12.Value
Sheets("Sayfa2").Range("B14").Value = TextBox13.Value
Sheets("Sayfa2").Range("B15").Value = TextBox14.Value
Sheets("Sayfa2").Range("B16").Value = TextBox15.Value
Sheets("Sayfa2").Range("B17").Value = TextBox16.Value
Sheets("Sayfa3").Range("I20").NumberFormat = "#,##0." & alan1 & " $"
End Sub
 
halit3' Alıntı:
Userform2 deki kaydet düğmesinin kodunu bununla değiştirin.

Kod: 
Private Sub CommandButton1_Click()
Sheets("Sayfa2").Range("B1").Value = TextBox1.Value
If Left(TextBox2.Text, 1) = "," Or Left(TextBox2.Text, 1) = "." Then
TextBox2.Text = Mid(TextBox2.Text, 2, Len(TextBox2.Value) - 1)
End If
If Right(TextBox2.Text, 1) = "," Or Right(TextBox2.Text, 1) = "." Then
TextBox2.Text = Mid(TextBox2.Text, 1, Len(TextBox2.Value) - 1)
End If

say = 0
For i = 1 To Len(TextBox2.Value)
If Mid(TextBox2.Text, i, 1) = "," Or Mid(TextBox2.Text, i, 1) = "." Then
say = say + 1
End If
Next

If say > 1 Then
For i = Len(TextBox2.Value) To 1 Step -1
If Mid(TextBox2.Text, i, 1) = "," Or Mid(TextBox2.Text, i, 1) = "." Then
deg2 = Replace(Replace(Mid(TextBox2.Text, 1, i), ".", ""), ",", "")
Exit For
End If
Next
TextBox2.Value = deg2 & Mid(TextBox2.Text, i, Len(TextBox2.Value))
End If
TextBox2.Value = Replace(TextBox2.Value, ".", ",")
Sheets("Sayfa2").Range("B2").Value = TextBox2.Value
Sheets("Sayfa3").Range("I20").Value = TextBox2.Value
son = 0
For i = 1 To Len(TextBox2.Value)
If Mid(TextBox2.Text, i, 1) = "," Then
son = 1
deg = Mid(TextBox2.Value, i + 1, Len(TextBox2.Value)) * 1
Sheets("Sayfa2").Range("B2").Value = Mid(TextBox2.Value, 1, i - 1) & "." & deg
Sheets("Sayfa3").Range("I20").Value = Mid(TextBox2.Value, 1, i - 1) & "." & deg
Exit For
End If
Next
Sheets("Sayfa2").Range("B2").NumberFormat = "#,##0 $"
Sheets("Sayfa3").Range("I20").NumberFormat = "#,##0 $"

If son = 1 Then
For j = Len(TextBox2.Value) To 1 Step -1
If Mid(TextBox2.Value, j, 1) = "," Then
Exit For
Else
alan1 = alan1 & "0"
End If
Next
End If
Sheets("Sayfa2").Range("B2").NumberFormat = "#,##0." & alan1 & " $"
Sheets("Sayfa2").Range("B4").Value = TextBox3.Value
Sheets("Sayfa2").Range("B5").Value = TextBox4.Value
Sheets("Sayfa2").Range("B6").Value = TextBox5.Value
Sheets("Sayfa2").Range("B7").Value = TextBox6.Value
Sheets("Sayfa2").Range("B8").Value = TextBox7.Value
Sheets("Sayfa2").Range("B9").Value = TextBox8.Value
Sheets("Sayfa2").Range("B10").Value = TextBox9.Value
Sheets("Sayfa2").Range("B11").Value = TextBox10.Value
Sheets("Sayfa2").Range("B12").Value = TextBox11.Value
Sheets("Sayfa2").Range("B13").Value = TextBox12.Value
Sheets("Sayfa2").Range("B14").Value = TextBox13.Value
Sheets("Sayfa2").Range("B15").Value = TextBox14.Value
Sheets("Sayfa2").Range("B16").Value = TextBox15.Value
Sheets("Sayfa2").Range("B17").Value = TextBox16.Value
Sheets("Sayfa3").Range("I20").NumberFormat = "#,##0." & alan1 & " $"
End Sub
Genişletmek için tıkla ...

Sayın Halit 3;
Size ne kadar teşekkür etsem azdır. Userform2 için verdiğiniz kodları uyguladım. Diğer sorunlar için yeniden yardımınızı bekliyorum. (Userform1)’de; (TextBox3/TextBox4)-1 işleminin sonucunu (Sayfa3) (J20) hücresinde gerçek değerini alamıyorum.Burada farklı bir sayı çıkıyor. Ayrıca (Userform1) TextBox4’te virgülde sonra 5 basamak olmasına rağmen 4 basamak görünüyor. Size ne kadar zahmet verdiğimin farkındayım. Hakkınızı helal edin lütfen. Saygılarımla.
 

Ekli dosyalar

özdil' Alıntı:
Sayın Halit 3;
Size ne kadar teşekkür etsem azdır. Userform2 için verdiğiniz kodları uyguladım. Diğer sorunlar için yeniden yardımınızı bekliyorum. (Userform1)’de; (TextBox3/TextBox4)-1 işleminin sonucunu (Sayfa3) (J20) hücresinde gerçek değerini alamıyorum.Burada farklı bir sayı çıkıyor. Ayrıca (Userform1) TextBox4’te virgülde sonra 5 basamak olmasına rağmen 4 basamak görünüyor. Size ne kadar zahmet verdiğimin farkındayım. Hakkınızı helal edin lütfen. Saygılarımla.
Genişletmek için tıkla ...

Ekli dosyanızı inceleyiniz
kodlarda textbox nesnelerindeki RowSource olaylarını kaldırdım virgülden sonraki değerleri etkiliyordu
 

Ekli dosyalar

halit3' Alıntı:
Ekli dosyanızı inceleyiniz
kodlarda textbox nesnelerindeki RowSource olaylarını kaldırdım virgülden sonraki değerleri etkiliyordu
Genişletmek için tıkla ...

Sayın halit3; proğram hata verdi kullanamadım. Ancak bu konuda sizi daha fazla yoramayacam. yardımlarınız için gerçekten bütün samimiyetimle çok teşekkür ederim. Saygı ve selamlar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst