Finans dağılım tablosu

[fhkoksal]

MErhabalar ;

finans yönetimi esnasında aylık evrak yoğunluğunu tespit açısından bir finansal dağılım tablosu hazırlamam lazım ancak makro veya fonksiyonlardan yararlanmak gerekiyor ve bilgim yeterli değil yardımlarınızı bekliyorum.

Konu:

* firmanın ödeme olarak verilen evrakların giriş ekranından iligini cins ekranına ve vade ayına göre varsa sayfasın yoksa otomatik açılacak sayfasına dağılması ve rapor tablosundaki verilen hesaplanabilir olması için işlemlerin yapılması

* grafik ekranında aylık toplam evrak meblaları ile çizgisel grafik kullanılarak yoğunluğun belirlenmesi

 

[Muhammet Okumuş]

Function SayfaVarMi(SayfaAdi As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

Sub Sayfa_Ac()

Dim Sayfa_Adi As String
son = WorksheetFunction.CountA(Range("B5:B25")) + 4
For i = 5 To son
Sheets("EVRAK GİRİŞİ").Select
ay = Format(Month(Cells(i, 6)), "0#")
yıl = Year(Cells(i, 6))
Sayfa_Adi = ay & "." & yıl

If Not SayfaVarMi(Sayfa_Adi) Then
Sheets("EVRAK GİRİŞİ").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sayfa_Adi
Range("B5:G25") = ""

Range("B5:G5") = Sheets("EVRAK GİRİŞİ").Range("B" & i & ":G" & i).Value

Else

son = WorksheetFunction.CountA(Sheets(Sayfa_Adi).Range("B5:B25")) + 5
Sheets(Sayfa_Adi).Range("B" & son & ":G" & son) = Range("B5:G5").Value


End If

Sheets("EVRAK GİRİŞİ").Select
If Cells(i, 3) = "S" Then
a = WorksheetFunction.CountA(Sheets("Senet").Range("B5:B25")) + 5
Sheets("Senet").Range("B" & a) = Range("B" & i).Value
Sheets("Senet").Range("C" & a & ":F" & a) = Range("D" & i & ":G" & i).Value
End If

If Cells(i, 3) = "Ç" Then
a = WorksheetFunction.CountA(Sheets("Çek").Range("B5:B25")) + 5
Sheets("Çek").Range("B" & a) = Range("B" & i).Value
Sheets("Çek").Range("C" & a & ":F" & a) = Range("D" & i & ":G" & i).Value
End If

Next

End Sub

Kodu Evrak Girişinde deneyiniz. Function kodu Necdet Bey'in kodudur.

 

[fhkoksal]

Merhabalar Muhammed bey
kod için teşekkür ederim kod varolan sayfalara dağıtımda çalışıyor ancak ilk satırı kopyalıyor. yeni sayfa açılışında ana ekrandaki kayıtların tamamını her sayfaya yeniden yapıştırıyor.

 

[Muhammet Okumuş]

Kod calistiktan sonra Evrak Kayittaki verileri silmemiz gerekiyor. Kod evrak girisi sayfasındaki verileri aktarir. Siz masil olmasini istiyorsunuz?