Raporlamada Listbox'da tarih görünmüyor...

[satan22]

Selam arkadaşlar sayenizde üzerinde çalıştığım program yavaş yavaş bitmek üzere. Sadece ufak bir sorunumu var yardımcı olursanız sevinirim. Ekteki dosyada roporlama bölümünde iki tarih arasını listele dediğimde listeleme yapıyor ama lisbox penceresinde tarih gözükmüyor. Bakıp yardımcı olursanız sevinirim.

Programa Girişte Kullanıcı adı ve Şifre istiyor..

Kullanıcı Adı: satan
şifre : satan

şimdeden teşekkürler.

 

[Orion1]

Dosyanız ekte.

myarr(k, a) = Cells(i, [B][COLOR="Red"]k[/COLOR][/B])
[B][COLOR="red"]myarr(2, a) = Format(myarr(2, a), "dd.mm.yyyy")[/COLOR][/B]

 

[satan22]

sayın Evren Gizlen raporla dediğimde aşağıdaki kodu hatalı gösteriyor bakabilirmisiniz...

Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
Calendar1.Visible = False
Calendar2.Visible = False
Calendar1.Value = Date
Calendar2.Value = Date
TextBox1.Text = Format(Date, "dd.mm.yyyy")
TextBox2.Text = Format(Date, "dd.mm.yyyy")
ListBox1.ColumnCount = 7
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = "60;60;60,90,60,60"
ListBox1.RowSource = "sayfa1!A2:G" & Cells(65536, "A").End(3).Row
ListBox1.ListIndex = ListBox1.ListCount - 1
TextBox3.Text = Format(WorksheetFunction.Sum(Range("G2:G65536")), "#,##0.00")
For i = 1 To 1000
If Sheets("sayfa1").Cells(i, 2) = "" Then GoTo 10:
UserForm5.ComboBox3.AddItem (Sheets("sayfa1").Cells(i, 5))
10: Next
End Sub

 

[Orion1]

Ben çalıştırdım şimdi hata göstermiyor.Hangi satırı hatalı gösteriyor onu belirtirmisiniz?

 

[satan22]

Calendar1.Value = Date

 

[satan22]

"Date" yazan bütün satırlar hatalı gibi gösteriyor acaba sorun ne olabilir

 

[Orion1]

Dosyayı eklemeden önce çalışıyormuydu.Ben değişiklik yaptıktan sonramı çalışmadı?
Bu kodda hata yok.Sanırım Windowsunuzda olmayan bir nesneyi çalıştırmak istiyorsunuz.Calendar olabilir.Birde referanslara(VBE'de) bir bakın orada missing ile başlayan satırlar varsa onların tikini kaldırıp öyle deneyin.

 

[satan22]

bende öyle düşünüyorum onlara bakıyorumdum. sizde çalışıyosa dediğiniz hatadan kaynaklanabilir. Bakıp haber vericem size.. Teşekkürler..

 

[satan22]

Üstadım tamamdır. Dediğiniz gibi bazı nesneler gösterilmediği için çalışmıyodu düzeldi şimdi. Tekrar Teşekkürler...

 

[Orion1]

Üstadım tamamdır. Dediğiniz gibi bazı nesneler gösterilmediği için çalışmıyodu düzeldi şimdi. Tekrar Teşekkürler...

Rica ederim.
İyi çalışmalar.