İki tarih arası veri çekme.

[feridici_genc]

Selamun aleykum, hayırlı Cumalar.

Ekte bulunan dosyada makro kaydederek sınırlı bir kısım veriyi aynı sayfada bulunan bir tabloya veri taşıyabiliyorum. Burada yapmak istediğim, veri yığınından 2 tarih arasında bulunan verileri yine aynı sayfadaki tabloya taşımak istiyorum.

 

[Ömer BARAN]

Ekteki belgeyi inceleyiniz.

 

[Orion1]

Alternatif.

Sub aktar59()
Dim sonsat As Long, sat As Long, i As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
sat = 4
Range("K4:R" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For i = 3 To sonsat
    If Cells(i, "A").Value >= Range("J3").Value And Cells(i, "A").Value <= Range("K3").Value Then
        Range("K" & sat & ":Q" & sat).Value = Range("A" & i & ":G" & i).Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam" & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[feridici_genc]

sevgili üstadlar,
ilginiz için teşekkür ederim. her ikinizin önerisini inceledim bir kaç sıkıntı var. sanırım anlatmadığımdan dolayı.

1- j stünündan R stünuna kadar olan kısım benim sorgulama tablom. oraya girdiğim isimler, tarihler bakiyeler vs. herşey buton yardımı ile v stünundan ab stünuna kadar olan kısıma gidiyor.
2- bu bilgiler gittikten sonra tarih sırasına konuluyor.

sizin kodlarınız ortadaki sorgu tablosunun altına bilgileri getiriyor. isterseniz benim yüklediğim dosyada deneme yapın. tarih kısmına 31.01.2014 yazdığınızda yada ad-soyad hanesine yani N3 e ahmet* yazdığınızda en soldaki tablodan veriler en sağdaki tabloya taşınıyor ve küçükten büyüğe tarihler sıralanıyor.

hal böyle iken ben J stünuna bir sorgu hanesi daha ekledim. ve buna başlangıç tarihi yazıp 2 tarih arasındaki verileri yine en sağdaki tabloya taşımak istiyorum.

hayırlı geceler. çok teşekkür ederim.

 

[feridici_genc]

konu günceldir.

 

[numan şamil]

Merhab
Kodlara bakar mısınız, belki bir fikir verebilir

Sub numan()
Dim son As Long, satır As Long, x As Long
son = Cells(Rows.Count, "A").End(xlUp).Row
satır = 3
Range("V3:AB" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For x = 3 To son
    If CDate(Cells(x, "A")) >= CDate(Range("J3")) And CDate(Cells(x, "A")) <= CDate(Range("K3")) Then
    If Range("D" & x) Like Range("N3") Then
        Range("V" & satır & ":AB" & satır).Value = Range("A" & x & ":G" & x).Value
        satır = satır + 1
         End If
    End If
Next x
Range("V3:AC50").Sort key1:=Range("V3"), order1:=xlAscending
Application.ScreenUpdating = True
MsgBox "İşlem Tamam" & vbLf & ""
End Sub

 

[feridici_genc]

teşekkür ederim. numan bey, ayrıca konuya yorum yapan üstadlara da saygılar.
tarihleri sıralama konusunda kendim yapabilirim makro kaydederek.
hayırlı akşamlar.

 

[numan şamil]

teşekkür ederim. numan bey, ayrıca konuya yorum yapan üstadlara da saygılar.
tarihleri sıralama konusunda kendim yapabilirim makro kaydederek.
hayırlı akşamlar.

Range("V3:AC50").Sort key1:=Range("V3"), order1:=xlAscending

kod "V" sütunundaki verileri baz alarak "V:AC" sütunları arasını küçükten büyüğe göre sıralıyor
iyi çalışmalar

 

[feridici_genc]

sağolun. varolun.