Elektrik faturası hesaplama

[Fecir01]

Selamlar , apartmanda her oturanın elektrik sayacı var , Orda kişisel sarfiyatlar gözüksede fatura Dışardaki tek saatten 1 tane geliyor , dolayısıyla Daira başına kullanılan sarfiyatlara toplam faturayı bölüştürmemiz gerekiyor , Ordaki endeks bilgileri birim fiyatlarıyla alakalı bir program olursa ona göre hesap çıkarırsa çok makbule geçer Tşkler

 

[vardar07]

Merhaba .Kendimin kullanmış olduğum bir program. İşinizi görür sanırım.

 

[sirkülasyon]

Vardar bey aynı dosyanızı başka bir download sitesine yükleme yapabilir misiniz?
Teşekkür Ederim

 

[vardar07]

2.mesajdakini inceleyemeyenler için alternatif link.

ELEKTRİK HESAP

 

[Fecir01]

Tşkler zahmet oldu , benimki biraz daha karışık bakalım birşeyler yapmaya çalışıyorum artık =) saolun

 

[ZorBey_]

Merhaba Sayın Fecir01 iyi çalışmalar.
Ekli dosyayı denermisiniz.

 

[sirkülasyon]

Vardar bey 4.'cü mesajınızda ki dosyayı indirdim ama Userform açılmıyor. Bakabilmeniz mümkün mü?

 

[honestman]

Merhaba,

2. mesajdaki dosyadaki user form un açılması için kütüphaneye hangi objeyi eklemem gerekiyor? Userform açılmıyor.

 

[vardar07]

Arkadaşlar ben 2007 sürümünü ve xp kullanıyorum üst versiyondaki olayı bilmiyorum (kulanmadığım için). Eğer 2007 üstüne uyarsa ekteki dosyaları deneyebilirsiniz.

 

[loressima]

Bende bu tarz bir excel tablosu arıyorum yardımcı olur musunuz elektrik hesabı için

 

[Korhan Ayhan]

İnceleyiniz.

APARTMAN ELEKTRİK SU HESAPLAMA NASIL YAPILABİLİR?

Merhaba 10 dairelik bir apartmandayım benden başka ilgilenen yok.Binanın iskanı yok elektrik su sayaçları ortak.Ama herkesin saati var .Ben her ay gelen elektrik ve su faturalarında yazan tüketimi gelen fatura tutarına bölüyor ve birim fiyatı hesaplıyorum. Dairelerin sayaçlarından okuduğum...

www.excel.web.tr

 

[gicimi]

Merhaba,
https://lisans.epdk.gov.tr/epvys-web/faces/pages/online/tarifeFatura/tarifeFatura.xhtml

 

[htsumer]

Merhaba,

2. mesajdaki dosyadaki user form un açılması için kütüphaneye hangi objeyi eklemem gerekiyor? Userform açılmıyor.

Userformdaki tüm kodları silin bunu ekleyin

DefDbl T

Private Sub CommandButton1_Click()

    t1 = Val(TextBox1.Value)
    t2 = Val(TextBox2.Value)
    t3 = Round(t1 - t2, 2)
    TextBox3.Value = t3

    t4 = Val(TextBox4.Value)
    t5 = Round(t3 * t4, 2)
    TextBox5.Value = t5

    t6 = Val(TextBox6.Value)

    t7 = Val(TextBox7.Value)
    t17 = Round(t3 * t7, 2)
    TextBox17.Value = t17

    t8 = Val(TextBox8.Value)
    t18 = Round(t3 * t8, 2)
    TextBox18.Value = t18

    t9 = Val(TextBox9.Value)
    t19 = Round(t3 * t9, 2)
    TextBox19.Value = t19

    t11 = Val(TextBox11.Value)
    t20 = Round(t5 * t11, 2)
    TextBox20.Value = t20

    t12 = Val(TextBox12.Value)
    t21 = Round(t5 * t12, 2)
    TextBox21.Value = t21

    t13 = Val(TextBox13.Value)
    t22 = Round(t5 * t13, 2)
    TextBox22.Value = t22

    t23 = Round(t6 + t17 + t18 + t19, 2)
    TextBox23.Value = t23

    t10 = Round(t5 + t20 + t21 + t22 + t23, 2)
    TextBox10.Value = t10

    t14 = Val(TextBox14.Value)
    t15 = Round(t10 * t14 / 100, 2)
    TextBox15.Value = t15

    t16 = Round(t15 + t10, 2)
    TextBox16.Value = Round(WorksheetFunction.RoundDown(t16, 1), 2)

End Sub


Sub Kaydet()

    Dim s1 As Worksheet
    Dim say As Long
    Dim Son_Dolu_Satir As Long
    Dim Bos_Satir As Long

    Set s1 = Sheets("Endex")

    say = WorksheetFunction.CountIf(s1.Range("B:B"), TextBox2.Value)

    If say > 0 Then
        MsgBox "Daha önce kayıt edilmiştir. Tekrar kayıt edilemez!", _
               vbCritical, "DİKKAT"
        Exit Sub
    End If

    Son_Dolu_Satir = s1.Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1

    s1.Range("A" & Bos_Satir).Value = Label.Caption
    s1.Range("B" & Bos_Satir).Value = TextBox2.Value
    s1.Range("C" & Bos_Satir).Value = TextBox1.Value
    s1.Range("D" & Bos_Satir).Value = TextBox3.Value
    s1.Range("E" & Bos_Satir).Value = TextBox16.Value

End Sub


Private Sub CommandButton3_Click()

    Kaydet

End Sub


Private Sub UserForm_Initialize()

    TextBox10.Value = Format(TextBox10.Value, "#.##0,00")
    TextBox15.Value = Format(TextBox15.Value, "#.##0,00")
    TextBox23.Value = Format(TextBox23.Value, "#.##0,00")

    Label.Caption = Format(Date, "dd.mm.yyyy")

End Sub


Private Sub CommandButton2_Click()

    Unload Me

End Sub