Soru iki tarih arası koşullu veri çekme

[TUNCA ERSİN]

Sy. Hocalarım

=EĞERHATA(İNDİS(A$2:A$33;TOPLAMA(15;6;SATIR(A$2:A$33)-1/(($G$2<=$A$2:$A$33)*($G$2>=$A$2:$A$33));SATIR(A1)));"")
bu Formüle cari adına göre koşul koyabilir miyiz. teşekkür ederim.

 

[tamer42]

Sy. Hocalarım

=EĞERHATA(İNDİS(A$2:A$33;TOPLAMA(15;6;SATIR(A$2:A$33)-1/(($G$2<=$A$2:$A$33)*($G$2>=$A$2:$A$33));SATIR(A1)));"")
bu Formüle cari adına göre koşul koyabilir miyiz. teşekkür ederim.

Örnek dosya ekler misiniz

 

[TUNCA ERSİN]

Sy. @tamer42 ;
buyurun hocam ekledim.

 

[tamer42]

Sy. @tamer42 ;
buyurun hocam ekledim.

Ekli dosyadaki formülü inceler misiniz

 

[TUNCA ERSİN]

Sy. @tamer42 ;
Hocam diğer veriler için formül yada kod yok mu ? iki tarih arası toplamını ben alabiliyorum. J sütunu ile P sütununda bulunan verileri MUAVİN sayfasından getirmek için kod olamaz mı ?

 

[tamer42]

Sy. @tamer42 ;
Hocam diğer veriler için formül yada kod yok mu ? iki tarih arası toplamını ben alabiliyorum. J sütunu ile P sütununda bulunan verileri MUAVİN sayfasından getirmek için kod olamaz mı ?

Söyledikleriniz Mutlaka yapılabilir, yalnız muhasebe terimlerinden çok anlamadığım için olayın mantığını kuramıyorum.
Bana hangi veri nasıl ve hangi kurala göre geleceğini detaylandırırsanız tabiki yaparız.

 

[TUNCA ERSİN]

Sy. @tamer42 ;
Hocam Sizden ricam ,
onur sayfası K1 Başlangıç Tarihi ile N1 bitiş tarihlerini seçtiğim de J2hücresinde ki Carilerin verilerini MUAVİN sayfasından çekecek , sırası ile J3 , K3,L3,M3,N3 hücrelerinde belirtilen istekleri MUAVİN sayfasında ki ilgili sütunlardan çekerek aşağıya doğru listeleyecek. listeleme yaparken eski tarihten yeni tarihe göre yapacak. Teşekkür ederim.

 

[tamer42]

Sy. @tamer42 ;
Hocam Sizden ricam ,
onur sayfası K1 Başlangıç Tarihi ile N1 bitiş tarihlerini seçtiğim de J2hücresinde ki Carilerin verilerini MUAVİN sayfasından çekecek , sırası ile J3 , K3,L3,M3,N3 hücrelerinde belirtilen istekleri MUAVİN sayfasında ki ilgili sütunlardan çekerek aşağıya doğru listeleyecek. listeleme yaparken eski tarihten yeni tarihe göre yapacak. Teşekkür ederim.

böyle bir çözüm mü istiyordunuz?

Kod yazılmıştır.

 

[TUNCA ERSİN]

Sy. @tamer42 ;

onur sayfasında Sarı olarak boyadığım gibi olarak rengi sarı olmayacak. sadece iki tarih arası cariye göre veriler gelecek.

 

[tamer42]

Sy. @tamer42 ;

onur sayfasında Sarı olarak boyadığım gibi olarak rengi sarı olmayacak. sadece iki tarih arası cariye göre veriler gelecek.

İki Tarih Arası .....

 

[TUNCA ERSİN]

Sy. @tamer42 ;
Hocam cari şartı da vardı.

 

[tamer42]

Sy. @tamer42 ;
Hocam cari şartı da vardı.

Ekli dosyayı görüntüle 243499

 

[TUNCA ERSİN]

Sy. @tamer42 ;
Hocam çok teşekkür ederim. Elinize sağlık. 20 bin veride biraz yavaş çalışıyor. Hızlandırma imkanı var mı ?

 

[TUNCA ERSİN]

Sy. @tamer42 ;
P Sütunun da Vade G. Koşula göre A sütununda onu da P sütununa getirebilir misiniz.

 

[TUNCA ERSİN]

Sy. @tamer42 ;

hocam cari = Sh2.Range("J2").Value j2 den değil de L2 den düşey ara ile getirdiğim cari için nereyi değiştirmem gerekiyor .cari = Sh2.Range("L2").Value Yapmama rağmen boş geliyor.

Sub MakeDate()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim dt As Long, dt1 As Long, dt2 As Long
Dim cari As String, deg As String
Dim x As Long, LR As Long, z As Long

Set Sh1 = Sayfa4
Set Sh2 = Sayfa18

LR = Sh1.Cells(Sh1.Rows.Count, "A").End(xlUp).Row

cari = Sh2.Range("J2").Value
dt1 = CLng(Sh2.Range("K1").Value)
dt2 = CLng(Sh2.Range("N1").Value)

Sh2.Range("J5:O1000").ClearContents

x = 5

For z = 2 To LR

deg = Sh1.Range("F" & z).Value
dt = CLng(Sh1.Range("J" & z).Value)

If cari = deg And dt >= dt1 And dt <= dt2 Then


Sh2.Cells(x, "J").Value = Sh1.Cells(z, "J").Value
Sh2.Cells(x, "K").Value = Sh1.Cells(z, "O").Value
Sh2.Cells(x, "L").Value = Sh1.Cells(z, "S").Value
Sh2.Cells(x, "M").Value = Sh1.Cells(z, "T").Value


'' Sh2.Cells(x, "N").Value = Sh1.Cells(z, "T").Value
x = x + 1

End If

deg = ""

Next


Set Sh1 = Nothing
Set Sh2 = Nothing

End Sub

 

[tamer42]

Sy. @tamer42 ;

hocam cari = Sh2.Range("J2").Value j2 den değil de L2 den düşey ara ile getirdiğim cari için nereyi değiştirmem gerekiyor .cari = Sh2.Range("L2").Value Yapmama rağmen boş geliyor.

Sub MakeDate()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim dt As Long, dt1 As Long, dt2 As Long
Dim cari As String, deg As String
Dim x As Long, LR As Long, z As Long

Set Sh1 = Sayfa4
Set Sh2 = Sayfa18

LR = Sh1.Cells(Sh1.Rows.Count, "A").End(xlUp).Row

cari = Sh2.Range("J2").Value
dt1 = CLng(Sh2.Range("K1").Value)
dt2 = CLng(Sh2.Range("N1").Value)

Sh2.Range("J5:O1000").ClearContents

x = 5

For z = 2 To LR

deg = Sh1.Range("F" & z).Value
dt = CLng(Sh1.Range("J" & z).Value)

If cari = deg And dt >= dt1 And dt <= dt2 Then


Sh2.Cells(x, "J").Value = Sh1.Cells(z, "J").Value
Sh2.Cells(x, "K").Value = Sh1.Cells(z, "O").Value
Sh2.Cells(x, "L").Value = Sh1.Cells(z, "S").Value
Sh2.Cells(x, "M").Value = Sh1.Cells(z, "T").Value


'' Sh2.Cells(x, "N").Value = Sh1.Cells(z, "T").Value
x = x + 1

End If

deg = ""

Next


Set Sh1 = Nothing
Set Sh2 = Nothing

End Sub

  Sh2.Cells(x, "J").Value =  Sh1.Cells(z, "L").Value

 

[TUNCA ERSİN]

Sy. @tamer42 ;

Hocam Hata veeriyor.

 

[tamer42]

Sy. @tamer42 ;

Hocam Hata veeriyor.

Ekli dosyayı görüntüle 243508

yanlış anlamaışım

cari = Sh2.Range("L2").Value

 

[TUNCA ERSİN]

sy. @tamer42 ;

Hocam hiç bir veri gelmiyor. acaba nerede yanlış yaptım.
L2 hücresine veri formülle geliyor. ondan mı sorun çıkıyor acaba
cari = Sh2.Range("L2").Value

 

[tamer42]

Kod üzerinde bir çok noktayı değiştirdiğiniz görünüyor, Eğer siz makroyu bilmiyorsanız, bu işin içinden çıkmanız zor olur
Dosyanızı gönderin orada bakalım