Girilen verilerin ekstresini alma işlemi

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

Borç-alacak takibi yapacak kadar, birazda kendimi geliştirmek için basit bir muhasebe takibi için tablo yapmaya çalışıyorum.

Veri girişi sayfasında muhasebe kayıtlarını yapıyorum.
Ancak bu işlemlerin ekstresini alabilmem gerekiyor.

Ekstre sayfasında sarı ile belirttiğim hücrelere tarih ve listelenecek hesap kodunu girdiğimde,
11.satırdan itibaren veri girişi sayfasından girdiğim hesap kodunun olduğu satırları
Tarih ve Alacak TL arasına getirmeli.
Sıra no işlem sayısına göre yazmalı ve kayıtlar tarih sıralı olmalı.

Veri girişinden kayıtları 11. satır ile toplamlar satırı arasında olmalı. Yani 2 gri satır arasında olmalı.

Ekstre sayfasına örnek olması amacıyla kayıtların olması gerektiği gibi manuel giriş yaptım.

Yardım ve fikirlerinizi bekliyorum.

 

[Emir Hüseyin Çoban]

Bu veya buna benzer bir işlem excelde yapılamaz mı.
Öyle ise tabloda değişikliğe gitmem gerekecek veya başka bir çözüm bulmalıyım.

 

[Ömer]

Merhaba,

Kodları module kopyalarak çalıştırınız...

Sub OlcutListele()
 
Set Sv = Sheets("VERİ GİRİŞİ")
 
Application.ScreenUpdating = False
 
Sheets("EKSTRE").Select
Range("A12:K65536").Clear
 
sat = 12
For i = 6 To Sv.Cells(Rows.Count, "B").End(xlUp).Row
    If Sv.Cells(i, "B") >= [C7] And Sv.Cells(i, "B") <= [E7] And _
    Sv.Cells(i, "E") = [C9] Then
        Cells(sat, "A") = sat - 11
        Cells(sat, "B") = Sv.Cells(i, "B")
        Cells(sat, "C") = Sv.Cells(i, "C")
        Cells(sat, "D") = Sv.Cells(i, "D")
        Cells(sat, "E") = Sv.Cells(i, "L")
        Cells(sat, "F") = Sv.Cells(i, "G")
        Cells(sat, "G") = Sv.Cells(i, "H")
        Cells(sat, "H") = Sv.Cells(i, "I")
        Cells(sat, "I") = Sv.Cells(i, "J")
        Cells(sat, "J") = Sv.Cells(i, "K")
        Cells(sat, "K").Formula = "=Sum(I12:I" & sat & ")-Sum(J12:J" & sat & ")"
        sat = sat + 1
    End If
Next i
 
    son = Cells(Rows.Count, "B").End(xlUp).Row + 2
    Range("A" & son & ":K" & son).Interior.ColorIndex = 48
    Range("F" & son) = "TOPLAMLAR   :"
    Range("I" & son).Formula = "=Sum(I12:I" & son - 2 & ")"
    Range("J" & son).Formula = "=Sum(J12:j" & son - 2 & ")"
    Range("K" & son).Formula = "=Sum(I12:I" & son - 2 & ")-Sum(J12:j" & son - 2 & ")"
    Columns("B:B").NumberFormat = "m/d/yyyy"
Application.ScreenUpdating = True
 
End Sub

.

 

[aslan525]

ömer hocam bu makro düzgün çalışmıyor hesap koduna ne yazarsak yazalım aynısı yazılıyor

 

[Ömer]

ömer hocam bu makro düzgün çalışmıyor hesap koduna ne yazarsak yazalım aynısı yazılıyor

Merhaba,

Hesap kodunu işleme katmamıştım. #3 nolu mesajı buna göre yeniden düzenledim. Tekrar denermisiniz..

.

 

[aslan525]

Hocam eline sağlık çok güzel olmuş
teşekkür ederim
kolay gelsin
saygılarla

 

[aslan525]

ömer hocam şimdide toplamlar kısmında borçlar doğru alacaklar ve bakiye yanlış hesaplıyor eliniz değmişken onuda düzeltebilirmisiniz.
Saygılarla

 

[Vedat Özer]

ömer hocam şimdide toplamlar kısmında borçlar doğru alacaklar ve bakiye yanlış hesaplıyor eliniz değmişken onuda düzeltebilirmisiniz.
Saygılarla

Selamlar,

Ömer beyin vermiş oldugu kodları şöyle değiştirin.
Ömer hocama çok teşekkür ederim.

Sub OlcutListele()
 
Set Sv = Sheets("VERİ GİRİŞİ")
 
Application.ScreenUpdating = False
 
Sheets("EKSTRE").Select
Range("A12:K65536").Clear
 
sat = 12
For i = 6 To Sv.Cells(Rows.Count, "B").End(xlUp).Row
    If Sv.Cells(i, "B") >= [C7] And Sv.Cells(i, "B") <= [E7] And _
    Sv.Cells(i, "E") = [C9] Then
        Cells(sat, "A") = sat - 11
        Cells(sat, "B") = Sv.Cells(i, "B")
        Cells(sat, "C") = Sv.Cells(i, "C")
        Cells(sat, "D") = Sv.Cells(i, "D")
        Cells(sat, "E") = Sv.Cells(i, "L")
        Cells(sat, "F") = Sv.Cells(i, "G")
        Cells(sat, "G") = Sv.Cells(i, "H")
        Cells(sat, "H") = Sv.Cells(i, "I")
        Cells(sat, "I") = Sv.Cells(i, "J")
        Cells(sat, "J") = Sv.Cells(i, "K")
        Cells(sat, "K").Formula = "=Sum(I12:I" & sat & ")-Sum(J12:J" & sat & ")"
        sat = sat + 1
    End If
Next i
 
    son = Cells(Rows.Count, "B").End(xlUp).Row + 2
    Range("A" & son & ":K" & son).Interior.ColorIndex = 48
    Range("F" & son) = "TOPLAMLAR   :"
    Range("I" & son).Formula = "=Sum(I12:I" & son - 2 & ")"
    Range("J" & son).Formula = "=Sum(J12:j" & son - 2 & ")"
    Range("K" & son).Formula = "=Sum(I12:I" & son - 2 & ")-Sum(J12:j" & son - 2 & ")"
 
Application.ScreenUpdating = True
 
End Sub

 

[aslan525]

çok teşekkür ediyorum
saygılarla

 

[aslan525]

hocam tarih kısmını sayı değilde tarih olarak yazdırabilirmiyiz 40470 filan yazıyor tarih yerine
saygılarla şimdikten teşekkür ederim

 

[Ömer]

#3 nolu mesajı yeniden düzenledim. Tekrar denermisiniz..

 

[aslan525]

hocam oldu tarih kısmı mesala 16.10.2010-13:45 nasıl yapabilirim
13:00 oluyorda 13:45 olmuyor
şimdikten teşekkür ediyorum
saygılarla

 

[aslan525]

HOCAM ÇÖZDÜM OLAYI HERŞEY İÇİN TEŞEKKÜR EDERİM ALLAH RAZI OLSUN
SAYGILARLA
"dd/mm/yyyy-hh:mm:ss" TARİH KISMININ OLDUĞU YERE BUNU KOPYALARSANIZ OLUR