Borçlu kişilerin tespiti ve başka sayfaya kopyalanması

[erdemturan]

Merhabalar
Çok üğraştım ama yapamadım...
Ekte gönderdiğim dosya için;
1) Ana menüde tüm günlere gidebileceğim liste şeklinde açılan bir makro yapamadım
2)Hazırladığım Eylül ayı içindi.Aynı şekilde diğer tüm aylara bunu uygulamak istiyorum
3)Borçlu kişileri, Borçlu kişiler sayfasına yanındaki bilgilerle (tüm satırı) beraber sırayla kopyalanmasını istiyorum

Bu problemlerin çözümü için yardımcı olabilirseniz çok sevinirim...
teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Dosyanızı inceledim fakat boçlu kişiyi neye göre listeleyeceksiniz bu bilgi hangi sayfadan alınacak örneklermisiniz.

 

[erdemturan]

Selamlar,

Dosyanızı inceledim fakat boçlu kişiyi neye göre listeleyeceksiniz bu bilgi hangi sayfadan alınacak örneklermisiniz.

Merhaba
Mesela 1 Eylül tarihinde Ahmet Turan borçlu durumda... ve bu nedenle Ahmet turan' ın olduğu tüm satırın kopyalanmasını istiyorum (yaptığı alışverişler ; un, bulgur, vb.. toplam tutar, verdiği para, kalan para gibi bilgilerin ...) kısacası tüm satırın.
Bu bilgide gün gün girilmiş Ay 'ın herhangi bir günündeki bir sayfadan herhangi bir kişi için alınmalı.
Borçlu kişiler sayfasını tekrar düzenledim

 

[Korhan Ayhan]

Selamlar,

Eklemiş olduğunuz örnek dosyada 1-30 Eylül sayfalarının hepsinde bahsettiğiniz isim mevcut fakat bu ismin altında başka satırlar var bu satırlar başka kişileremi ait yoksa hepsi aynı şahsınmı ? Ayrıca BORÇLU KİŞİLER sayfasına bütün günlerdeki KALAN sütununda değer bulunan tüm satırlarmı aktarılacak ?

 

[erdemturan]

Ad soyad köy sütununda bir sürü farklı müşteri olacak. Farklı bi isim düşünüp yazmadım . Sadece sistemin çalışıp çalışmadığına bakmak için rakamları doldurdum. Dolayısıyla sizden ricam ; borçlu kişinin (ki toplam tutar belli ve müşterinin nekadar ödediği belli(alınan sütunu) ) olduğu satırı tümüyle , borçlu kişiler sayfasına aktarılması...

 

[Korhan Ayhan]

Selamlar,

Anladığım kadarıyla dosyanızda gerekli düzeltmeleri yaptım kontrol edermisiniz.

 

[erdemturan]

Teşekkür ederim yalnız 1 Eylül ve Borçlu kişiler listesini birdaha inceleyebilir misiniz? Bu şekilde bir sonuç verebilir mi?
Birde bu dosyayı diğer aylar için otomatik olarak nasıl düzenlerim bu konudada bilgi verebilirseniz çok sevinirim...

 

[Korhan Ayhan]

Selamlar,

BORÇLU KİŞİLER butonundaki kodları aşağıdaki ile değiştirip denermisiniz. Diğer ayları bu dosya içinde takip edecekseniz 30 Eylül sayfasından sonra dilediğiniz kadar sayfa ekleyip takip edebilirsiniz bir problem çıkmaz.

Sub BORÇLU_KİŞİLER()
    Application.ScreenUpdating = False
    Set SBK = Sheets("BORÇLU KİŞİLER")
    SBK.[A2:N65536].Clear
    For X = 8 To Sheets.Count
    Sheets(X).Select
    SONSATIR1 = [B65536].End(3).Row
    For Y = 2 To SONSATIR1
    If Cells(Y, 13) > 0 Then
    Rows(Y).Copy
    SBK.Select
    Cells([A65536].End(3).Row + 1, 1).PasteSpecial
    Application.CutCopyMode = False
    Sheets(X).Select
    End If
    Next
    Next
    SBK.Select
    [A2] = 1
    [A3] = 2
    [A2:A3].Select
    Selection.AutoFill Destination:=Range("A2:A" & [B65536].End(3).Row), Type:=xlFillDefault
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select
    Application.ScreenUpdating = True
    MsgBox "BORÇLU KİŞİLER LİSTESİ GÜNCELLENMİŞTİR...!", vbInformation
End Sub

 

[erdemturan]

Çok teşekkür ederim makrolar tam istediğim gibi olmuş. Elinize ve bilginize sağlık. Son olarak aslında ben diğer ayları bu dosya içinde takip etmeyecektim Mesela Eylül yazan yerleri Ekim yapan, girilmiş kayıtları ve rakamları silen, formüllere zarar vermeyip yepyeni bir hazır dosya nasıl hazırlayabilirim.?

 

[erdemturan]

Son olarak aslında ben diğer ayları bu dosya içinde takip etmeyecektim Mesela Eylül yazan yerleri Ekim yapan, girilmiş kayıtları ve rakamları silen, formüllere zarar vermeyip yepyeni bir hazır dosya nasıl hazırlayabilirim.?

 

[erdemturan]

Selamlar,

BORÇLU KİŞİLER butonundaki kodları aşağıdaki ile değiştirip denermisiniz. Diğer ayları bu dosya içinde takip edecekseniz 30 Eylül sayfasından sonra dilediğiniz kadar sayfa ekleyip takip edebilirsiniz bir problem çıkmaz.

Sub BORÇLU_KİŞİLER()
    Application.ScreenUpdating = False
    Set SBK = Sheets("BORÇLU KİŞİLER")
    SBK.[A2:N65536].Clear
    For X = 8 To Sheets.Count
    Sheets(X).Select
    SONSATIR1 = [B65536].End(3).Row
    For Y = 2 To SONSATIR1
    If Cells(Y, 13) > 0 Then
    Rows(Y).Copy
    SBK.Select
    Cells([A65536].End(3).Row + 1, 1).PasteSpecial
    Application.CutCopyMode = False
    Sheets(X).Select
    End If
    Next
    Next
    SBK.Select
    [A2] = 1
    [A3] = 2
    [A2:A3].Select
    Selection.AutoFill Destination:=Range("A2:A" & [B65536].End(3).Row), Type:=xlFillDefault
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select
    Application.ScreenUpdating = True
    MsgBox "BORÇLU KİŞİLER LİSTESİ GÜNCELLENMİŞTİR...!", vbInformation
End Sub

Merhaba yukarıdaki kod çalışıyor ancak ben günlerin içindeki hersayfanın A1 hücresine o sayfanın adını (yani tarih) yazdığımda ise sorun çıktı. Sorunu nasıl giderebilirim.?
Diğer bir sorun ise borçlu kişiler listesinde Her borçlunun hangi tarihte borçlandığı bilgisininde eklenmesini istiyorum bunu nasıl yapabilirim yardımcı olabilirmisiniz? (yani tarih bilgisini A1 hücresinde yazan tarihten alacak)

 

[Korhan Ayhan]

Selamlar,

Sorun çıktığını belitmişsiniz ama sorunun ne olduğunu yazmamışsınız. İkinci sorununuza gelince örnek dosya üzerinde tarif ederseniz daha sağlıklı olur.

 

[erdemturan]

merhaba
1)Ekteki dosyada , Borçlu kişiler listesindeki sorunu görebilirsiniz . Sayfaların A1 hücresine tarih bilgisini ekledikten sonra oldu...
2)Yine borçlu kişiler listesinde, tarih bilgisininde yer alması gerekli.(Müşterinin borçlandığı sayfada A1 hücresindeki tarih bilgisini alıp , Borçlu kişiler listesine eklemeli)
3)Birde formül içeren hücrelerin yanlışlıkla değer girilip bozulmaması için koruduğumda makroların çalışmasını engeller mi?


Teşekkür ederim tüm yardımlarınız ve ilginiz için..

 

[Korhan Ayhan]

Selamlar,

Sn. erdemturan bey,

1. sorunuz;
Veri aktarma makrosunu incelerseniz sayfalardaki bazı hücreleri referans alarak işlem yapıyor. Siz araya bir satır veya sütun eklediğinizde doğal olarak ayarlar bozulur bu durumda makrodaki kodlardada düzenleme yapmak gerekir.

2. sorunuz;
İstediğiniz tarih bilgisi ekteki dosyada düzenlenmiştir.

3. sorunuz;
Sayfa korumasını eklediğiniz sayfa makroda kullanılıyorsa doğal olarak kodların çalışmasını engelleyecektir. Bunuda makro çalışmaya başlarken ilk önce sayfa korumalarını kaldırıp işlem bittikten sonrada tekrar sayfaları korumaya alarak aşabilirsiniz.

 

[erdemturan]

Teşekkür ederim. Herşey süper olmuş.