tarihe göre filtre

[Barons]

merhaba
ekli dosyada sayfa1 de tarih kısmına girdiğim tarihe göre database'den verileri almak istiyorum.İndis ile yapılacağını biliyorum ama olmuyor.
Yardımcı olursanız çok memnun olurum.

Tüm foruma başarılar

 

[leumruk]

Selamlar,
Dosyanız ekte.

 

[Barons]

Sn.Leumruk çok teşekkürler ancak ufak bir sorun oluşuyor..önceki verileri silmediği için üstüste veriler biniyor.
Bunu çözmek mümkünmü acaba?

 

[leumruk]

Merhaba,
Kırmızı satırı ekleyerek bu sorunu çözebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [h1]) Is Nothing Then Exit Sub
[COLOR="Red"][b4:h44].ClearContents[/COLOR]
Sat = 4
For i = 2 To [database!b65536].End(3).Row
If Target = Sheets("database").Cells(i, "b") Then
Cells(Sat, "b") = Sheets("database").Cells(i, "f")
Cells(Sat, "c") = Sheets("database").Cells(i, "g")
Cells(Sat, "d") = Sheets("database").Cells(i, "c")
Cells(Sat, "e") = Sheets("database").Cells(i, "h")
Cells(Sat, "f") = Sheets("database").Cells(i, "j")
Cells(Sat, "g") = Sheets("database").Cells(i, "k")
Cells(Sat, "h") = Sheets("database").Cells(i, "ı")
Sat = Sat + 1
End If
Next i
End Sub

 

[Barons]

Çok teşekkürler..inanın çok makbule geçti...
Birde sat=4 ifadesinin koddaki mantığını açarsanız çok memnun olacağım.
Saygılarımla

 

[leumruk]

Cells(Sat, "b") = Sheets("database").Cells(i, "f") Sat ifadesine 4 değeri atayarak, döngüden elde edilen verileri 4. satırdan itibaren kaydetmeye başlamak için 4 değerini atadım. Çünkü kayıt sayfanız 4. satırdan başlıyordu. Döngünün sonuna da Sat=Sat+1 değerini atayarak, döngü bitene kadar satırı 1 sayı artırdım. Böylece bulunan veri sırayla 4, 5, 6, 7, 8... satırlara kaydedilmiş oldu.

 

[Barons]

çok teşekkürler

 

[leumruk]

Rica ederim. İyi çalışmalar...