Tarih formatında hata

[kelkitli]

Selamlar,

Criter1 = Format(DateSerial(Year(ComboBox1), Month(1), 1), "00000")

Yukarıdaki kriterde yıl olarak ComboBox1, Ay olarak 1, Gün olarak tüm günler nasıl olmalıdır.

 

[Ömer]

Merhaba,

Denemedim,

Month(1) yerine sadece 1 yazın.

Ayrıca gün olarak tüm günden kastınız nedir?

 

[kelkitli]

Cevabınız için teşekkür ederim Sayın Ömer,
Yani ayın tüm günleri. Comboboxtan yılı seçiyorum, 1. Aya ait tüm veriler işleme girecek.

 

[kelkitli]

Arkadaşlar,
Kriter1=1 olunca sonuç alıyorum. Ama tüm yılların 1. ay toplamını alıyor. Ben sadece Combobox1 deyazılı (2011) şekilde yıllara göre olmasını istiyorum.

Sub maas()
s = Sheets("Personel").[A65536].End(3).Row

sRangeB = "Personel!e2:e" & s
sRangeD = "Personel!d2:d" & s
sRangeF = "Personel!f2:f" & s

Criter1 = Format(DateSerial(Year(ComboBox1), 1, 1, "00000")

'Criter1 = 1


Criter101 = """" & Label1.Caption & """"
Criter102 = """" & Label2.Caption & """"
Criter103 = """" & Label3.Caption & """"
Criter104 = """" & Label4.Caption & """"
Criter105 = """" & Label5.Caption & """"
Criter106 = """" & Label6.Caption & """"
Criter107 = """" & Label7.Caption & """"
Criter108 = """" & Label8.Caption & """"
Criter109 = """" & Label9.Caption & """"
Criter110 = """" & Label10.Caption & """"
Criter111 = """" & Label11.Caption & """"
Criter112 = """" & Label12.Caption & """"
Criter113 = """" & Label13.Caption & """"
Criter114 = """" & Label14.Caption & """"
Criter115 = """" & Label15.Caption & """"
Criter116 = """" & Label16.Caption & """"

TextBox1 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter101 & ")*(" & sRangeF & "))")
TextBox2 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter102 & ")*(" & sRangeF & "))")
TextBox3 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter103 & ")*(" & sRangeF & "))")
TextBox4 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter104 & ")*(" & sRangeF & "))")
TextBox5 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter105 & ")*(" & sRangeF & "))")
TextBox6 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter106 & ")*(" & sRangeF & "))")
TextBox7 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter107 & ")*(" & sRangeF & "))")
TextBox8 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter108 & ")*(" & sRangeF & "))")
TextBox9 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter109 & ")*(" & sRangeF & "))")
TextBox10 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter110 & ")*(" & sRangeF & "))")
TextBox11 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter111 & ")*(" & sRangeF & "))")
TextBox12 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter112 & ")*(" & sRangeF & "))")
TextBox13 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter113 & ")*(" & sRangeF & "))")
TextBox14 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter114 & ")*(" & sRangeF & "))")
TextBox15 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter115 & ")*(" & sRangeF & "))")
TextBox16 = Evaluate("=SumProduct((" & sRangeB & "=" & Criter1 & ")*(" & sRangeD & "=" & Criter116 & ")*(" & sRangeF & "))")

Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox"
If Nesne = 0 Then Nesne = ""
End Select
Next


'MsgBox "BİLGİLER LİSTELENDİ."
End Sub

 

[Husgvarna]

Şöyle denermisiniz.
Criter1 =01

Criter1 =Format(DateSerial(Year(ComboBox1), Month(ComboBox1), 1), "mm")

Criter1 =1

Criter1 =Format(DateSerial(Year(ComboBox1), Month(ComboBox1), 1), "m")

 

[kelkitli]

Sayın Husgvarna,
Cevabınız için teşekkür ederim. Hata veriyor.