Yevmiye Kayıtları Mizan ve Muavin oluştursun

[muzaffer.sm]

Arkadaşlar Merhaba

Yevmiye Kayıtlarına dair örnek bir çalışma oluşturdum.Bunun biraz daha otomatikleşmesi için şayet olabilirse excel içinde belirttiğim açıklamalara göre formülleştirilebilirmi ? Müsait vakitlerinizde yapılabilirliğini inceleyebilirmisiniz. ?
Saygılarımla.

 

[meslan]

Merhaba
Gerekli Ad tanımlamalarını yapın
Hesap_Adı=KAYDIR(Mizan_Muavin!$A$2;0;0;BAĞ_DEĞ_DOLU_SAY(Mizan_Muavin!$A:$A))
Borç=KAYDIR(Mizan_Muavin!$B$2;0;0;BAĞ_DEĞ_DOLU_SAY(Mizan_Muavin!$A:$A))
Alacak=KAYDIR(Mizan_Muavin!$C$2;0;0;BAĞ_DEĞ_DOLU_SAY(Mizan_Muavin!$A:$A))
D2' ye formül =EĞER(ETOPLA(Hesap_Adı;B2;Borç)-ETOPLA(Hesap_Adı;B2;Alacak)>0;ETOPLA(Hesap_Adı;B2;Borç)-ETOPLA(Hesap_Adı;B2;Alacak);0)
E2'ye formül =EĞER(ETOPLA(Hesap_Adı;B2;Borç)-ETOPLA(Hesap_Adı;B2;Alacak)>0;0;ETOPLA(Hesap_Adı;B2;Alacak)-ETOPLA(Hesap_Adı;B2;Borç))
Kolay gelsin.

 

[halit3]

dosya aşağıda yeniden düzenlenmiştir

 

[baydeniro]

Sayın halit3, tebrik ederim. Çok güzel bir çalışma. Sağlıcakla kalın.

 

[muzaffer.sm]

Sayın Meslan ve Sayın Halit

verdiğiniz yanıtlardan dolayı teşekkürlerimi sunuyorum.

Sayın Halit3 çalışmanız çok güzel fakat şöyle bir eksiklik var.
Yevmiye Sayfasındaki yazılan kayıtların B sütunundaki hesap Nosu ile kaydı yapılmış hesaplar borç ve alacak rakamları ile Mizan_muavin sayfasındaki A,B,C sütunlarınada aktarılmış olmaları gerekiyor.

Şimdi mesajımda eklemiş olduğum çalışmada belirttiğim Sarı renkli bölüme yevmiye sayfasındaki kayıtlar hesap numarasındaki borç ve alacak rakamları ile aktarılmaları gerekiyor.Aktarılan hesaplar ise toplanarak sağ tarafta bakiyeleri bulunmaları gerekiyor.Toplam alınarak bakiyelerin bulunma kısmı zaten mevcut

mizan_muavin sayfasındaki A-C sütunlarındaki kayıtları manuel olarak yazmıştım.Sizde buradan hesapların toplamlarını aldırarak borç ve alacak olmak üzere ilgili yerlerine aktarmışsınız.Bu kısımda problem yok.

Aktar butonundak tek eksiklik Yevmiye sayfasındaki (B,D,E sütunları )hesapları mizan_muavin sayfasında A,B,C sutünlarına aktarmaması
Bu eksikliğide gidermeniz mümkünmüdür ?

Saygılarımla

 

[halit3]

anladığım kadarıyla yapmaya çalıştım ancak yevmiye tarihlerini B sutunundan C sutununa aldım Sizcede mahsuru yoksa tarikleri C sutununda yazmanız zira B sutunundan kodları seçerken bu tarihlerde geliyor

 

[muzaffer.sm]

Sayın Halit3 Merhaba

Bu son çalışmanız çok mükemmel olmuş.Sonuç tam istediğim gibi.
Dediğiniz gibi tarihleri C sütununda yazabiliriz.Bunda bir problem yok.Bilginizi ve emeğinizi esirgemediğiniz için ALLAH sizden razı olsun.

Saygılarımla.

 

[muzaffer.sm]

Sayın Halit Bey Merhaba

Bu çalışmanın içindeki yazmış olduğunuz kodlar çok profesyonelce doğrusu.
Bir yandan sizlerden yardım alırken bu çalışmaların alt yapısına emek sarfederek yazmış olduğunuz kodları incelemeye çalışıyorum.Tabi anlayamadığım bir çok yerler oluyor elbette.

Halit bey bu çalışmayı biraz görüntü olarak derledim.Sizin otomasyonunuz ile çok güzel oldu.

Burada ilave olarak sizden ayrı bir ricam olacak. Şöyle ki ;
Yevmiye sayfasında yazılan kayıtlar mizan_kebir sayasına aktarılıyor,toplam borç ve alacak yekünleri ile bakiyeleri bulunuyor idi.

Yevmiye sayfasındaki kayıtlar Yevmiye tarihleri bazında aynı şekilde mizan_kebir sayfasına aktarılabilirmi ?

Yevmiye kayıtları sürekli olarak farklı aylar halinde kayıt barındırmış olacağından dolayı,Ay kıstası halinde aktarma gerekecektir.Tabi sizcede bu mümkün ve uygun ise bunu da yapabilirmisiniz ?

Saygılarımla

 

[halit3]

bir örnek yaparmısınız

 

[muzaffer.sm]

Halit Bey

Örneği belirten şekli yine aynı çalışmanın sayfasında belirttim.
İlgili belge ektedir.

Saygılarımla.

 

[halit3]

ekli dosyanızı kontrol ediniz

tarih ile ilgili birer sutun ekledim

 

[metinavci23]

Muzaffer bey merhaba

hotmail'deki e-maillerinizi kontrol edermisiniz.size bu sorunuz ile ilgili bir örnek gönderdim.

 

[muzaffer.sm]

Halit Bey

Tarih bazındaki aktarmalar da çok güzel.Allah işlerinizde kolaylık versin.
Esen kalın.


Saygılarımla

 

[ZuCChiNi]

Eski bir konuyu hortlatmak istedim
En son revize edilen Monografi3.rar dosyasını bir çalışmamda kullanmak istedim.
denemeAktarTopla modülü "Yevmiye" semesinden aldığı bilgileri "Mizan_kebir" sekmesine aktarıyor.
Modüldeki a = s1.Range("C3:F" & s1.Cells(65536, "C").End(xlUp).Row) satırındaki sütunlar bende ayrı yerlerde olduğu için aktarımı yapamadım.

Orijinalinde "yevmiye" sekmesinde olan sütunlar benimkinde şöyle:
OR = BEN
B = A
C = I
D = J
E = O
P = P

Konunun daha iyi anlaşılması için örnek dosya ekliyorum.
Yardımlarınızı rica ediyorum.
Not: Office 2010

 

[halit3]

Eski bir konuyu hortlatmak istedim
En son revize edilen Monografi3.rar dosyasını bir çalışmamda kullanmak istedim.
denemeAktarTopla modülü "Yevmiye" semesinden aldığı bilgileri "Mizan_kebir" sekmesine aktarıyor.
Modüldeki a = s1.Range("C3:F" & s1.Cells(65536, "C").End(xlUp).Row) satırındaki sütunlar bende ayrı yerlerde olduğu için aktarımı yapamadım.

Orijinalinde "yevmiye" sekmesinde olan sütunlar benimkinde şöyle:
OR = BEN
B = A
C = I
D = J
E = O
P = P

Konunun daha iyi anlaşılması için örnek dosya ekliyorum.
Yardımlarınızı rica ediyorum.
Not: Office 2010

Kodların bazılarını ben yazmadım.
Alternatif olarak bunları denermisiniz.

kod1:

'Yevmiyeden Kebire Aktar
Sub aktar1()

Sheets("Mizan_kebir").Range("A3:d65000").ClearContents
For i = 3 To Sheets("Yevmiye_2").Cells(Rows.Count, "ı").End(xlUp).Row
Sheets("Mizan_kebir").Cells(i, "a").Value = Sheets("Yevmiye_2").Cells(i, "a").Value
Sheets("Mizan_kebir").Cells(i, "b").Value = Sheets("Yevmiye_2").Cells(i, "ı").Value
Sheets("Mizan_kebir").Cells(i, "c").Value = Sheets("Yevmiye_2").Cells(i, "o").Value
Sheets("Mizan_kebir").Cells(i, "d").Value = Sheets("Yevmiye_2").Cells(i, "p").Value
Next i

End Sub

kod 2:

'Yevmiyeden Toplam Mizan Raporu Al
Sub aktar2()

Dim i As Long
sat = 3
Dim baslangıc, bitis, aranan1, yer1, yer2
baslangıc = Sheets("Mizan_kebir").Cells(1, 1).Value
bitis = Sheets("Mizan_kebir").Cells(1, 2).Value
Sheets("Mizan_kebir").Range("F3:J65000").ClearContents

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

If CDate(baslangıc) <= CDate(bitis) Then
yer1 = CDate(baslangıc)
yer2 = CDate(bitis)
Else
yer2 = CDate(baslangıc)
yer1 = CDate(bitis)
End If


For r = 3 To Sheets("Yevmiye_2").Cells(Rows.Count, "ı").End(xlUp).Row

aranan1 = Sheets("Yevmiye_2").Cells(r, "ı").Value

If Sheets("Yevmiye_2").Cells(r, "ı").Value <> "" Then
If WorksheetFunction.CountIf(Worksheets("Yevmiye_2").Range("ı3:ı" & r), aranan1) = 1 Then
say5 = 0
say6 = 0

For i = 3 To Worksheets("Yevmiye_2").Cells(Rows.Count, "ı").End(3).Row
bulunan1 = Sheets("Yevmiye_2").Cells(i, "ı").Value


If CDate(yer1) <= CDate(Worksheets("Yevmiye_2").Cells(i, "a").Value) _
And CDate(yer2) >= CDate(Worksheets("Yevmiye_2").Cells(i, "a").Value) _
And bulunan1 = aranan1 Then
say5 = say5 + CDbl(Sheets("Yevmiye_2").Cells(i, "o").Value)
say6 = say6 + CDbl(Sheets("Yevmiye_2").Cells(i, "p").Value)
End If

Next i


Sheets("Mizan_kebir").Cells(sat, "f").Value = aranan1
Sheets("Mizan_kebir").Cells(sat, "g").Value = say5
Sheets("Mizan_kebir").Cells(sat, "h").Value = say6

If say6 > say7 Then
Sheets("Mizan_kebir").Cells(sat, "j").Value = say6 - say5
Else
Sheets("Mizan_kebir").Cells(sat, "ı").Value = say5 - say6
End If

sat = sat + 1

End If
End If

Next r

End Sub

 

[ZuCChiNi]

Yarım günüm bununla geçti.
Elinize, kolunuza sağlık.
Çok teşekkür ederim.