• DİKKAT

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

formülde hata var

Merhaba.

Form'un seçilen tarihli sayfadaki hücrelerle ilişkisini tam olarak anlamış değilim.
Ancak gördüğüm kadarıyla AC29 hücresindeki değer (ki sayfada bu hücre boş)
TextBox392'ye alınacak, ardından da Label87'ye bu tutar-Label86 işlemi sonucu yazılacak.

Gördüğüm kadarıyla AC29 boş olduğundan sorun oluşuyor.
İşleyişi tam anlamadım ama TextBox392'nin dolu/boş durumuna göre bir IF..ELSE..END IF yapısıyla sorun aşılabilir.
(Matematiksel durumu siz biliyorsunuz).

0 yazdırma BOŞ bırakma, artık işlem ne olacaksa aşağıdakine benzer bir yöntemle (kırmızı renklendirdiğim kısımlar kullanılarak) sorun aşılabilir.
.
Kod: 
[B]Private Sub TextBox392_Change()[/B]
[COLOR="red"]If TextBox392 = "" Then
    Label87.Caption = TaxtBox392
Else
    Label87.Caption = CDbl(TextBox392) - CDbl(Label86)
    Label87 = Format(Label87, "###,###.00")
End If[/COLOR]


[COLOR="SeaGreen"]'KAYDET KAPAT BUTONU AKTİF PASİF YAPMA[/COLOR]
If Label86 = TextBox392 Then
.....................
 
hocam dediğiniz gibi textbox 392 ve ac hücresi boş olduğundan ötüğrü hatalı davranıyor. haklısınız. dediğiniz formülü uyguladım ve sorunsuz çalışıyor. sizden bir ricam daha olucak.

combobox10 da excel sayfasında açılan sayfaları gösteriyor. ancak malumunuz üzere excel yeni sayfa açınca hep en sona atıyor. en başa açma ihtimali varmı. yani comboboxta herzaman en yeni tarihi boş olan sekme nin altında görmem gerekiyor.

saygılarımı sunuyorum
 
Tekrar merhaba.

-- Son sorunuz: UserForm'un Initalize kodlarında,
sayfa isimlerinin Combobox listesine eklenmesiyle ilgili olarak aşağıdaki satırları kullanın.
(adı BOŞLUK olan da kapsam dışı bırakıldı, onun da listelenmesini istiyorsanız kırmızı kısmı silin)
(büyükten küçüğe/küçükten büyüğe tercihinizi Before/After olarak değiştirerek belirleyebilirsiniz)
.
Kod: 
For i = 1 To ActiveWorkbook.Sheets.Count [COLOR="SeaGreen"]'ÇALIŞMA KİTABINDA İSTENMEYEN SEKMELERİ GÖSTERMEME[/COLOR]
      If Sheets(i).Name <> "ŞABLON" And Sheets(i).Name <> "SİSTEM"[COLOR="Red"] And Sheets(i).Name <> " "[/COLOR] Then[COLOR="seagreen"]  'ÇALIŞMA KİTABINDA İSTENMEYEN SEKMELERİ GÖSTERMEME[/COLOR]
            If Sheets(i - 1).Name > Sheets(i).Name Then
                Sheets(i - 1).Move [B][COLOR="Blue"]Before[/COLOR][/B]:=Sheets(i)
            End If
        ComboBox10.AddItem Sheets(i).Name[COLOR="seagreen"] 'ÇALIŞMA KİTABINDA İSTENMEYEN SEKMELERİ GÖSTERMEME[/COLOR]
      End If [COLOR="seagreen"]'ÇALIŞMA KİTABINDA İSTENMEYEN SEKMELERİ GÖSTERMEME[/COLOR]
Next 'ÇALIŞMA KİTABINDA İSTENMEYEN SEKMELERİ GÖSTERMEME
-- İlave not:
Inıtalize kodlarında çok faza satır işgal eden kodlar dikkat çekiyor.
İlk gözüme çarpan kısma ilişkin önerim aşağıda.
Örneğin aşağıdaki kırmızı kısım yerine mavi olan birkaç satır kod da yeteri olur.
.
Kod: 
[COLOR="Blue"]For a = 393 To 413
    If a < 400 Then katsayi = 1000
    If a > 399 And a < 407 Then katsayi = 100
    If a < 406 Then katsayi = 1
    Controls("Textbox" & a) = Format(Val(Controls("TextBox" & a - 392).Value) * Val(Controls("Label" & a - 384).Caption) * katsayi, "###,###.00")
Next[/COLOR]


[COLOR="Red"]TextBox393 = Val(TextBox1.Value) * Val(Label9.Caption) * 1000
TextBox393 = Format(TextBox393, "###,###.00")
TextBox394 = Val(TextBox2.Value) * Val(Label10.Caption) * 1000
TextBox394 = Format(TextBox394, "###,###.00")
TextBox395 = Val(TextBox3.Value) * Val(Label11.Caption) * 1000
TextBox395 = Format(TextBox395, "###,###.00")
TextBox396 = Val(TextBox4.Value) * Val(Label12.Caption) * 1000
TextBox396 = Format(TextBox396, "###,###.00")
TextBox397 = Val(TextBox5.Value) * Val(Label13.Caption) * 1000
TextBox397 = Format(TextBox397, "###,###.00")
TextBox398 = Val(TextBox6.Value) * Val(Label14.Caption) * 1000
TextBox398 = Format(TextBox398, "###,###.00")
TextBox399 = Val(TextBox7.Value) * Val(Label15.Caption) * 1000
TextBox399 = Format(TextBox399, "###,###.00")
TextBox400 = Val(TextBox8.Value) * Val(Label16.Caption) * 100
TextBox400 = Format(TextBox400, "###,###.00")
TextBox401 = Val(TextBox9.Value) * Val(Label17.Caption) * 100
TextBox401 = Format(TextBox401, "###,###.00")
TextBox402 = Val(TextBox10.Value) * Val(Label18.Caption) * 100
TextBox402 = Format(TextBox402, "###,###.00")
TextBox403 = Val(TextBox11.Value) * Val(Label19.Caption) * 100
TextBox403 = Format(TextBox403, "###,###.00")
TextBox404 = Val(TextBox12.Value) * Val(Label20.Caption) * 100
TextBox404 = Format(TextBox404, "###,###.00")
TextBox405 = Val(TextBox13.Value) * Val(Label21.Caption) * 100
TextBox405 = Format(TextBox405, "###,###.00")
TextBox406 = Val(TextBox14.Value) * Val(Label22.Caption) * 100
TextBox406 = Format(TextBox406, "###,###.00")
TextBox407 = Val(TextBox15.Value) * Val(Label28.Caption)
TextBox407 = Format(TextBox407, "###,###.00")
TextBox408 = Val(TextBox16.Value) * Val(Label24.Caption)
TextBox408 = Format(TextBox408, "###,###.00")
TextBox409 = Val(TextBox17.Value) * Val(Label25.Caption)
TextBox409 = Format(TextBox409, "###,###.00")
TextBox410 = Val(TextBox18.Value) * Val(Label26.Caption)
TextBox410 = Format(TextBox410, "###,###.00")
TextBox411 = Val(TextBox19.Value) * Val(Label27.Caption)
TextBox411 = Format(TextBox411, "###,###.00")
TextBox412 = Val(TextBox20.Value) * Val(Label28.Caption)
TextBox412 = Format(TextBox412, "###,###.00")
TextBox413 = Val(TextBox21.Value) * Val(Label29.Caption)
TextBox413 = Format(TextBox413, "###,###.00")[/COLOR]
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst