kodda yanlış olan nedir?

[ramazan uçar]

Private Sub UserForm_Initialize()
ComboBox1.AddItem "HEPSİ"
For a = 3 To [B65536].End(3).Row
If WorksheetFunction.CountIf(Range("B2" & a), Cells(a, "D")) = 1 Then
ComboBox1.AddItem Cells(a, "C")
End If
Next
For y = 2000 To 2015
For M = 1 To 12
For d = 1 To 31
Next
ComboBox2.AddItem Format(DateSerial(y, M, d, 1), "dd mmmm yyyy")
ComboBox3.AddItem Format(DateSerial(y, M, d, 1), "dd mmmm yyyy")

ListBox1.ColumnCount = 9
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "30;60;60;100;50;50;50;50;50"
End Sub

selamlar

yukarıdaki kodlamada sürekli dateserial hata veriyor yanlış olam nedir? nasıl düzeltebilirim?

 

[ramazan uçar]

arkadaşlar ben bu kod sistemini iki tarih arasında rapor almak için kullanacağım.
sitede bulabildiğim örnekler hep ay ve yıl olarak işe yarıyor.
ben ise gün ay ve yıl olarak raporlamak istiyorum.başka bir yöntemi varsa yardımcı olurmusunuz

 

[ramazan uçar]

anlaşılır bir şekilde yazamadım heralde.

kod sisteminin tamamı aşağıdaki gibi.

Private Sub CommandButton1_Click()
Set s1 = Sheets("kasarapor")
s1.[a2:ı65536].ClearContents
bastar = DateSerial(Year(ComboBox2), Month(ComboBox2),1 Day(ComboBox2) + 1, 1) - 1
bittar = DateSerial(Year(ComboBox3), Month(ComboBox3) + 1, Day(ComboBox2) + 1, 1) - 1
ad = ComboBox1.Value
For a = 3 To [d65536].End(3).Row
If ad = "HEPSİ" Then GoTo 10
If Cells(a, "d") = ad And Cells(a, "b") >= bastar And Cells(a, "b") <= bittar Then
C = C + 1
For B = 1 To 9
s1.Cells(C + 1, B) = Cells(a, B).Value
Next
End If
GoTo 20
10 If Cells(a, "b") >= bastar And Cells(a, "b") <= bittar Then
C = C + 1
For B = 1 To 9
s1.Cells(C + 1, B) = Cells(a, B).Value
Next
End If
20 Next
If s1.[a2] = 0 Then
MsgBox "UYGUN VERİ BULUNAMADI"
Exit Sub
End If
ListBox1.RowSource = "rapor!a2:ı" & s1.[a65536].End(3).Row
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "HEPSİ"
For a = 3 To [B65536].End(3).Row
If WorksheetFunction.CountIf(Range("B2" & a), Cells(a, "D")) = 1 Then
ComboBox1.AddItem Cells(a, "C")
End If
Next
For y = 2000 To 2015
For m = 1 To 12
For d = 1 To 31
Next
ComboBox2.AddItem Format(DateSerial(y, m, d, 1), "dd mmmm yyyy")
ComboBox3.AddItem Format(DateSerial(y, m, d, 1), "dd mmmm yyyy")

ListBox1.ColumnCount = 9
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "30;60;60;100;50;50;50;50;50"

End Sub

 

[ramazan uçar]

bir fikri olan yokmu arkadaşlar lütfen yardım

 

[ramazan uçar]

yanlış başlıktanmı soruyorum acaba?

 

[Zahir]

Bence evet yanlış başlıktan soruyorsunuz. Siz bu halde kendinizi excel'e yeni başlayanlar sınıfına koyuyorsanız, kod yazmayı bilmeyen benim gibiler kendini hangi sınıfa koyacak. :düsün: Kendimizi daha kötü hissetmemize sebep olmayın lütfen. :hayir:

 

[veyselemre]

hatanın nerde olduğunu bu şekilde örneksiz olarak takip etmek zor, ama sorun combobox lara tarih eklemek ise aşağıdaki şekilde ekleyebilirsiniz,

[vb:1:42d1adf8da]For tar = DateSerial(2000, 1, 1) To DateSerial(2010, 12, 31)
ComboBox2.AddItem Format(tar, "dd mmmm yyyy")
Next[/vb:1:42d1adf8da]

 

[ramazan uçar]

nihayet bir kişiden cevap geldi.
teşekkürler.

öncelikle şunu söyleyeyim kod yazmasını bilmiyorum.bir program üzerinde çalışıyorum.ve tamamen sitedeki örneklerden faydalanarak bişeyler yapmaya bu sayedede kod yazmayı öğrenmeye çalışıyorum.gönderdiğim kodlamalarda tamamen başka bir çalışmadan alınarak uyarlanmış halidir.o yüzdende belki çok basit bir düzeltmeyle çözümlenebilecek olan sorunlar hakkında mecburen sitedeki hocalarımdan yardım istemek zorunda kalıyorum. bence en kalıcı öğrenme deneme yanılma yöntemi ve uygulama yaparak edinilen bilgidir.ilgilenenlere şimdiden teşekkür ederim.

 

[ramazan uçar]

sayın veyselemre
kodu uyguladım yine hata veriyor bir örnek dosya ekliyorum inşallah faydası olur.haklısınız örnek olmadan tahminler üzerinden hareket etmek zorunda kalıyosunuz.

ilginize teşekkürler.

 

[karamurselli]

Sanki ben bu kodları bir uygulamada(örnek çalışmalar içinde) görmüştüm.
Başka bir arkadaşımız da buna benzer bir soru göndermiş ve cevabı verilmişti.
O konuyu bulup inceleseniz olur mu?

 

[ramazan uçar]

bir haftadır araştırıyorum başım döndü.bir türlü bulamadım.zaten en son çare olarak sizlere sormayı deniyorum.belkide ben yanlış arıyorum ama bulamadım maalesef.bu kodları başka bir yerde gördüğünüz doğrudur çünkü bende bunları bu siteden aldım.daha önce söylediğim gibi kod yazmasını bilmiyorum.ama o örnekte sadece ay ve yıl olarak arama yaptırılabiliyordu ben ona gün de eklemek istiyorum.yani gerektiğinde günlük raporda alabilmeliyim.eminim bunu çözebilirsek benim gibi birçok arkadaşında işine yarayacaktır.

 

[veyselemre]

ekteki örneği inceleyin

 

[ramazan uçar]

TEŞEKKÜR EDERİM İSTEDİĞİM BUYDU.