makro ile ekstre almak

[hayri tekin]

Arkadaşlar,ekli dosyamda "veri" ve "ekstre" olmak üzere 2 sayfam var.Ekstre sayfasına tarih aralığında ve hesap adına göre veri sayfasından makro ile ekstre almak istiyorum.

 

[hayri tekin]

selamlar, acaba sorumda anlaşılmayan bir şey mi var ?

 

[hayri tekin]

olumsuz da olsa bir yanıt beklentim vardı..

 

[halit3]

Yanıt gelmediğine göre sorunuzu ya kimse anlamadı yada eklediğiniz dosyadaki sayfalarda veriler uyumsuz gibi
exstre sayfasındaki verileri neren aldınız diyeceğim veri sayfasından diyeceksiniz.
extre sayfasında ki 4 satır birinci veriyi nereden buldunuz ve yazdınız 5. satırdaki D5 hücresindeki 10,50 veriyi neren buldunuz. veri sayfasında ben böyle veriyi görmedim.

 

[hayri tekin]

Halit hocam, öncelikle verdiğiniz cevap için teşekkür ediyorum. 10,50 benim hatam olmuş, doğrusu 10,20 olacaktı.Ayrıca anlaşılmayan başka bir şey varsa yanıtlayabilirim. saygılar..

 

[halit3]

Örnek dosyanızı o doğrultuda düzeltmeliydiniz.
örnek dosyanızı ekliyorum exstre sayfasında B1 hücresinde ilk tarih D1 hücresinde ikinci tarihi yazın sonra da B2 hücresinde de hesap adı var bu hesap adı veri sayfasında hangi sutunu sorgulayacak.

Bu veriler doğrultusunda veri sayfasındaki verileri siz olması gereken gibi exstre sayfasına manuel yazın bir bakalım.

 

[hayri tekin]

dosyam ekte hocam..

 

[halit3]

Anlayamadım extre sayfasında B2 hücresinde kasa yazıyor bu kasa yı veri sayfasında hangi sutunda arayacak açıklamalarınız yetersiz

 

[hayri tekin]

Hem borçlu hem de alacaklı hesap sütununda arayacak hocam..

 

[halit3]

İçinde kasa geçen sözcükler 13.09.2016-16.09.2016 tarihleri arasındaki veriler data sayfasındaki gibi siz farklı verileri nereden buluyorsunuz.

 

[hayri tekin]

hocam ekstre bitiş tarihi 16/09/2018,buna göre 14/09/2018 deki hareketinde 180 tl de ekstreye giriyor doğal olarak.

 

[hayri tekin]

ekli dosyada bazı açıklamalar yaptım.

 

[halit3]

Bna kısır döngüde dolaşıyormuşuz gibi geliyor.
exstre sayfasındaki C4 ve D4 hücrelerindeki bilgiler nereden geliyor
yani borçu alacağı nereden ayırt ediyor
veri sayfasında E ve F sutundaki verilerin hangisi veya hangileri exstre sayfasındaki C4 ve D4 olarak atılıyor

ben söylediklerinizi anlayamıyorum niçin konunuza cevap verilmediği buradan anlaşılıyor açıklama net değil verilerde tutarsızlıklar var.

 

[halit3]

Kırmızı bölümdeki veriler hangi hücreden alıyor

 

[halit3]

Bu kodu bir dene

Sub verial()


Dim baslangıc, bitis, aranan1, bulunan1, bulunan2
baslangıc = Sheets("ekstre").Cells(1, "b").Value
bitis = Sheets("ekstre").Cells(1, "d").Value
aranan1 = Sheets("ekstre").Cells(2, "b").Value

Sheets("ekstre").Range("A4:e" & Rows.Count).ClearContents

If IsDate(baslangıc) <> True Then Exit Sub
If IsDate(bitis) <> True Then Exit Sub

sat = 4
say1 = 0
say2 = 0

For j = 2 To Sheets("veri").Cells(Rows.Count, "A").End(xlUp).Row

If CDate(baslangıc) > CDate(Sheets("veri").Cells(j, "A").Value) Then
bulunan1 = Sheets("veri").Cells(j, "b").Value
bulunan2 = Sheets("veri").Cells(j, "c").Value

If bulunan1 = aranan1 Then
say1 = say1 + CDbl(Sheets("veri").Cells(j, "e").Value)
veri1 = CDbl(Sheets("veri").Cells(j, "a").Value)
End If

If bulunan2 = aranan1 Then
say2 = say2 + CDbl(Sheets("veri").Cells(j, "f").Value)
veri2 = Sheets("veri").Cells(j, "d").Value
End If

End If
Next



Sheets("ekstre").Cells(sat, "a").Value = veri1
Sheets("ekstre").Cells(sat, "b").Value = "devir"
Sheets("ekstre").Cells(sat, "c").Value = say1
Sheets("ekstre").Cells(sat, "d").Value = say2
Sheets("ekstre").Cells(sat, "e").Value = say1 - say2
sat = sat + 1


For i = 2 To Sheets("veri").Cells(Rows.Count, "A").End(xlUp).Row
bulunan1 = Sheets("veri").Cells(i, "b").Value
bulunan2 = Sheets("veri").Cells(i, "c").Value

If CDate(baslangıc) <= CDate(Sheets("veri").Cells(i, "A").Value) _
And CDate(bitis) >= CDate(Sheets("veri").Cells(i, "A").Value) Then

If bulunan1 = aranan1 Or bulunan2 = aranan1 Then

Sheets("ekstre").Cells(sat, "a").Value = Sheets("veri").Cells(i, "A").Value
Sheets("ekstre").Cells(sat, "b").Value = Sheets("veri").Cells(i, "d").Value
'Sheets("ekstre").Cells(sat, "c").Value = Sheets("veri").Cells(i, "d").Value
Sheets("ekstre").Cells(sat, "d").Value = Sheets("veri").Cells(i, "f").Value

Sheets("ekstre").Cells(sat, "e").Value = Sheets("ekstre").Cells(sat - 1, "e").Value - Sheets("ekstre").Cells(sat, "d").Value

sat = sat + 1

End If
End If

Next


MsgBox "işlem tamam"
End Sub

 

[hayri tekin]

Halit hocam, ekstre tarihi 13/09/2018 de başlıyor, eğer bu tarihten önce veri sayfasında "kasa" hareketleri varsa bunların borç olanları toplanıyor,alacaklı olanları toplanıyor ve devir rakamı olarak ekstrede yerini alıyor.

 

[hayri tekin]

hocam kodu denedim, 180 tl. borçlu olması gerekirken ekstrede alacaklı görünüyor.

 

[hayri tekin]

kasa "B" sütunundaysa ekstrede "C"sütununa yazacak, kasa "C" sütunundaysa ekstrede "D" sütununa yazacak.

 

[halit3]

Burada exstre sayfasındaki 4. satırdaki borç alacak çıkınca E4 Hücresi bulunuyor
dördüncü satırdan sonraki için 5. satır için E4 hücresinden alacak satırıcıkınca E sutunu bulunuyor.

 

[hayri tekin]

Hocam devir satırı oldu, ancak ekstre hareketleri hep alacak sütununa geliyor. Kodda borç sütununa küçük bir başvuru gerekiyor sanırım.