Mükerrer Toplam

alperalper · 27 Ocak 2008

Evet arkadaşlar 2 nolu dosyayı inceledim istidğim aslında böyle birşey ama benim ihyiyacım biraz daha farklı ondan dolayı bir bakarsanız sevinirim. Ben beceremedim. 2 nolu dosyadadaki gibi bende hesap yazan dosyada girdiği verileri borç sekmesinde toplamak istiyorum. eğer olmazsa bildiğiniz bir yöntem varsa onuda yapabiliriz. bilgisi olan arkadaşlardan yardım bekliyorum... Not sadece para olarak borcu olanları toplayacağım borcu olmayanlara gerek yok....:hihoho:

Korhan Ayhan · 27 Ocak 2008

Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:

Sub BOR&#199;_RAPOR()
    Application.ScreenUpdating = False
    Set SB = Sheets("BOR&#199;")
    SB.[C7:P46,W7:AH46] = Empty
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "DATA"
    Set SD = ActiveSheet
    SD.[A1] = "&#304;S&#304;MLER"
    SD.[B1] = "REFERANSLAR"
    For X1 = 1 To 12
    If Sheets(X1).[C6] <> "" Then
    Sheets(X1).Range("C6:D" & Sheets(X1).[C65536].End(3).Row).Copy SD.[A65536].End(3).Offset(1)
    End If
    Next
    SB.Select
    Sat&#305;r = 7
    For X2 = 2 To SD.[A65536].End(3).Row
    If WorksheetFunction.CountIf(SB.[C7:C46], SD.Cells(X2, 1)) = 0 Then
    SB.Cells(Sat&#305;r, 3) = SD.Cells(X2, 1)
    SB.Cells(Sat&#305;r, 4) = SD.Cells(X2, 2)
    SB.Cells(Sat&#305;r, 5) = WorksheetFunction.SumIf(Sheets(1).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(1).[M:M])
    SB.Cells(Sat&#305;r, 6) = WorksheetFunction.SumIf(Sheets(2).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(2).[M:M])
    SB.Cells(Sat&#305;r, 7) = WorksheetFunction.SumIf(Sheets(3).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(3).[M:M])
    SB.Cells(Sat&#305;r, 8) = WorksheetFunction.SumIf(Sheets(4).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(4).[M:M])
    SB.Cells(Sat&#305;r, 9) = WorksheetFunction.SumIf(Sheets(5).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(5).[M:M])
    SB.Cells(Sat&#305;r, 10) = WorksheetFunction.SumIf(Sheets(6).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(6).[M:M])
    SB.Cells(Sat&#305;r, 11) = WorksheetFunction.SumIf(Sheets(7).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(7).[M:M])
    SB.Cells(Sat&#305;r, 12) = WorksheetFunction.SumIf(Sheets(8).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(8).[M:M])
    SB.Cells(Sat&#305;r, 13) = WorksheetFunction.SumIf(Sheets(9).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(9).[M:M])
    SB.Cells(Sat&#305;r, 14) = WorksheetFunction.SumIf(Sheets(10).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(10).[M:M])
    SB.Cells(Sat&#305;r, 15) = WorksheetFunction.SumIf(Sheets(11).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(11).[M:M])
    SB.Cells(Sat&#305;r, 16) = WorksheetFunction.SumIf(Sheets(12).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(12).[M:M])
    
    SB.Cells(Sat&#305;r, 23) = WorksheetFunction.SumIf(Sheets(3).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(3).[N:N])
    SB.Cells(Sat&#305;r, 24) = WorksheetFunction.SumIf(Sheets(4).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(4).[N:N])
    SB.Cells(Sat&#305;r, 25) = WorksheetFunction.SumIf(Sheets(5).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(5).[N:N])
    SB.Cells(Sat&#305;r, 26) = WorksheetFunction.SumIf(Sheets(6).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(6).[N:N])
    SB.Cells(Sat&#305;r, 27) = WorksheetFunction.SumIf(Sheets(7).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(7).[N:N])
    SB.Cells(Sat&#305;r, 28) = WorksheetFunction.SumIf(Sheets(8).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(8).[N:N])
    SB.Cells(Sat&#305;r, 29) = WorksheetFunction.SumIf(Sheets(9).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(9).[N:N])
    SB.Cells(Sat&#305;r, 30) = WorksheetFunction.SumIf(Sheets(10).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(10).[N:N])
    SB.Cells(Sat&#305;r, 31) = WorksheetFunction.SumIf(Sheets(11).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(11).[N:N])
    SB.Cells(Sat&#305;r, 32) = WorksheetFunction.SumIf(Sheets(12).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(12).[N:N])
    SB.Cells(Sat&#305;r, 33) = WorksheetFunction.SumIf(Sheets(12).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(12).[N:N])
    SB.Cells(Sat&#305;r, 34) = WorksheetFunction.SumIf(Sheets(12).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(12).[N:N])
    Sat&#305;r = Sat&#305;r + 1
    End If
    Next
    Application.DisplayAlerts = False
    SD.Delete
    Application.DisplayAlerts = True
    Set SB = Nothing
    Set SD = Nothing
    Application.ScreenUpdating = True
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

alperalper · 28 Ocak 2008

eVET bu tam istediğim gibi yalnış küçük bir hata var bide değişiklik yapmak gerek. Hata düğmeye tıklayınca borç sekmesindeki ADI SOYADI ve REFERANS yazılarıda borçlular listesine ekleniyor en alta bunun giderilmesi bide fiyat hususunda m sütununa değilde O sütununa bakması gerekli.Ayrıca eğer O sütunudaki değer 0 ise borçlular listesine ekleme yapmasın.Tahsilat bölümüne birşey yazmasına gerek yok....

Korhan Ayhan · 28 Ocak 2008

Selamlar,

Belirttiğiniz gibi yazılar örnek dosyanızda kodu çalıştırdığımda bende çıkmıyor. Ekteki örnek dosyada istediğiniz düzeltmeler yapılmıştır. İncelermisiniz.

Not: Dosyanızdaki örnek verilere göre kodu çalıştırdım. Bende çıkan sonuç ekteki dosyadaki gibidir.

alperalper · 28 Ocak 2008

COST_CONTROL aLLAH RAZI OLSUN TEŞEKKÜR EDERİM BİRAZ KULLANAYIM EĞER PROBLEM OLURSA YAZARIM....

alperalper · 28 Ocak 2008

Bu formülleri senin verdiğin belgeye değilde başka bir belgeye kopyalayıp yeniden yaptım ama olmadı isimler gelmiyor boş çıkıyor bu neden kaynaklanır......

Not : Aralık ayından sonra birtane boş bir sütun ekledim elle veri girmek için ondan kaynöaklanmış onu nasıl düzelteceğim... Dosyaya bakabilirmisin....

Korhan Ayhan · 28 Ocak 2008

Selamlar,

Foruma eklediğiniz örnek dosya ile kendi uyguladığınız dosyadaki tablolar birbirinin aynı değilse (satır yada sütun bazında) çalışmaması normaldir. Böyle bir durum söz konusu değilse dosyanızı ekleyin inceleyelim.

alperalper · 28 Ocak 2008

COST_CONTROL' Alıntı:
Selamlar,

Foruma eklediğiniz örnek dosya ile kendi uyguladığınız dosyadaki tablolar birbirinin aynı değilse (satır yada sütun bazında) çalışmaması normaldir. Böyle bir durum söz konusu değilse dosyanızı ekleyin inceleyelim.

ekteki dosyaya bir kere daha bakarmısınız....

Korhan Ayhan · 28 Ocak 2008

Selamlar,

Son gönderdiğiniz dosyaya göre kodu aşağıdaki şekilde değiştirip denermisiniz. Kodda yaptığım değişikliği kırmızı renkle belirttim.

Kod:

Sub BOR&#199;_RAPOR()
    Application.ScreenUpdating = False
    Set SB = Sheets("BOR&#199;")
    SB.[C7:P46,W7:AH46] = Empty
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "DATA"
    Set SD = ActiveSheet
    SD.[A1] = "&#304;S&#304;MLER"
    SD.[B1] = "REFERANSLAR"
    For X1 = 1 To 12
    If Sheets(X1).[C6] <> "" Then
    Sheets(X1).Range("C6:D" & Sheets(X1).[C65536].End(3).Row).Copy SD.[A65536].End(3).Offset(1)
    End If
    Next
    SB.Select
    Sat&#305;r = 7
    For X2 = 2 To SD.[A65536].End(3).Row
    If WorksheetFunction.CountIf(SB.[C:C], SD.Cells(X2, 1)) = 0 Then
    SB.Cells(Sat&#305;r, 3) = SD.Cells(X2, 1)
    SB.Cells(Sat&#305;r, 4) = SD.Cells(X2, 2)
    SB.Cells(Sat&#305;r, 5) = WorksheetFunction.SumIf(Sheets(1).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(1).[O:O])
    SB.Cells(Sat&#305;r, 6) = WorksheetFunction.SumIf(Sheets(2).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(2).[O:O])
    SB.Cells(Sat&#305;r, 7) = WorksheetFunction.SumIf(Sheets(3).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(3).[O:O])
    SB.Cells(Sat&#305;r, 8) = WorksheetFunction.SumIf(Sheets(4).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(4).[O:O])
    SB.Cells(Sat&#305;r, 9) = WorksheetFunction.SumIf(Sheets(5).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(5).[O:O])
    SB.Cells(Sat&#305;r, 10) = WorksheetFunction.SumIf(Sheets(6).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(6).[O:O])
    SB.Cells(Sat&#305;r, 11) = WorksheetFunction.SumIf(Sheets(7).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(7).[O:O])
    SB.Cells(Sat&#305;r, 12) = WorksheetFunction.SumIf(Sheets(8).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(8).[O:O])
    SB.Cells(Sat&#305;r, 13) = WorksheetFunction.SumIf(Sheets(9).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(9).[O:O])
    SB.Cells(Sat&#305;r, 14) = WorksheetFunction.SumIf(Sheets(10).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(10).[O:O])
    SB.Cells(Sat&#305;r, 15) = WorksheetFunction.SumIf(Sheets(11).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(11).[O:O])
    SB.Cells(Sat&#305;r, 16) = WorksheetFunction.SumIf(Sheets(12).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(12).[O:O])
    If SB.Cells(Sat&#305;r, [B][COLOR=red]19[/COLOR][/B]) = 0 Then
    SB.Cells(Sat&#305;r, 3) = "": SB.Cells(Sat&#305;r, 4) = ""
    End If
    Sat&#305;r = SB.[C65536].End(3).Row + 1
    End If
    Next
    Application.DisplayAlerts = False
    SD.Delete
    Application.DisplayAlerts = True
    Set SB = Nothing
    Set SD = Nothing
    Application.ScreenUpdating = True
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

alperalper · 29 Ocak 2008

Biraz farklı bir husus var kardeş şu dosyaya bir göz atabilirmisin????

Korhan Ayhan · 30 Ocak 2008

Selamlar,

Sanırım siz işlemleri form aracığı ile yapmak istiyorsunuz.

UserForm1 üzerine bir adet daha buton ekleyin. Bu buton sayfayı temizleme işlevini görecek. Aşağıdaki koduda bu formun kod sayfasına ekleyip formunuzu çalıştırın.

UserForm2 için Bilanço sayfasının nasıl olacağına dair örnek bir tablo hazırlarsanız yardımcı olacak arkadaşlara fikir verebilir.

Kod:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Set SB = Sheets("BOR&#199;")
    If ComboBox1 = Empty Then
    MsgBox "L&#220;TFEN AY SE&#199;&#304;N&#304;Z !", vbExclamation, "D&#304;KKAT !"
    ComboBox1.SetFocus
    Exit Sub
    End If
    SB.Select
    S&#252;tun = ComboBox1.ListIndex + 5
    For X = 6 To Sheets(ComboBox1.Text).[C65536].End(3).Row
    Set BUL = SB.[C:C].Find(Sheets(ComboBox1.Text).Cells(X, 3))
    If BUL Is Nothing Then
    Sat&#305;r = SB.[C65536].End(3).Row + 1
    If Sheets(ComboBox1.Text).Cells(X, 15) <> 0 Then
    SB.Cells(Sat&#305;r, 3) = Sheets(ComboBox1.Text).Cells(X, 3)
    SB.Cells(Sat&#305;r, 4) = Sheets(ComboBox1.Text).Cells(X, 4)
    SB.Cells(Sat&#305;r, S&#252;tun) = WorksheetFunction.SumIf(Sheets(ComboBox1.Text).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(ComboBox1.Text).[O:O])
    End If
    Else
    Sat&#305;r = BUL.Row
    SB.Cells(Sat&#305;r, S&#252;tun) = WorksheetFunction.SumIf(Sheets(ComboBox1.Text).[C:C], SB.Cells(Sat&#305;r, 3), Sheets(ComboBox1.Text).[O:O])
    End If
    Next
    Set SB = Nothing
    Application.ScreenUpdating = True
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub
Private Sub CommandButton2_Click()
    Sheets("BOR&#199;").[C7:P46,W7:AH46] = Empty
End Sub
Private Sub UserForm_Initialize()
    For AY = 1 To 12
    ComboBox1.AddItem Format(DateSerial(Year(Now), AY, 1), "mmmm")
    Next
End Sub

alperalper · 26 Mart 2008

Aslında tam olarak yapmak istediğim şekli çizdim bir bakarsanız sevinirim....
1-dönem bölümüne seçilen ay yazacak
2-Tarih bölümünede rapor alınan tarih yazılacak..öRNEK : BUGÜN

Aslında tam istediğim formül var ama sayfadaki değişikliklerden sonra formülleri düzeltemedim..

NOT: Biraz acele olursa sevinirm. Saygılar..

Şimdiden teşekkürler....

Korhan Ayhan · 27 Mart 2008

Selamlar,

Eklemiş olduğunuz dosyadaki form üzerindeki açıklamada aşağıda kırmızı ile belirttiğim bölümü örnekle açıklarmısınız.

alperalper' Alıntı:
Aylık verileri aktarmak istiyorum önce vermiş olduğunuz gibi yalnız ocak aynı girdik verileri aktardık. burada sıkıntı yok yalnız şubat ayına geçince verileri aktaracağım fakat diğer isimleri değiştirmesini istemiyorum. Aynı isimli olanların üzerine eklesin ama bir önceki ayın ücretlerini değiştirmesin....

Ben şu şekilde anladım. Ocak ayını aktardınız. Daha sonra Şubat ayı verilerini aktarırken BORÇ sayfasına bakacak bu sayfada aktarılmak istenen veri varsa değerleri üzerine toplayacak.

alperalper · 27 Mart 2008

Öyle değil.... Senin ban vermiş olduğun kodlarla aynı yalnış şöyle olacak...Borç sayfasında bir şablon oluşturdum. Ayı seçiyoruz verileri aktar diyoruz o aydaki hesapları aktarıyor. Birtanede verileri temizleme butonu var.... Bunu sen bana verdin yalnız sayfadaki şablonları değiştirince yerleri değişti. En son eklediğim dosyaya bakarsan.

Korhan Ayhan · 27 Mart 2008

Selamlar,

Yani şuanda yapılan aktarım işlemi doğru siz sadece bu sayfa yapısına uygun olarakmı aktarsın diyorsunuz.

alperalper · 27 Mart 2008

Evet..... Aktarım doğru aktarımda sorun yok.. Bide sağ üst köşeye tarih ve dönem yazarsa sevinirim...

Korhan Ayhan · 27 Mart 2008

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

alperalper · 27 Mart 2008

Allah senden razı olsun... Çok teşekkür ederim....

Korhan Ayhan · 27 Mart 2008

Selamlar,

Üstteki dosyayı güncelledim. İncelermisiniz.

alperalper · 27 Mart 2008

Toplamları farklı çıkıyor doğru rakamları vermiyor birde aynı isimleri iki defa yazmış....

Mükerrer Toplam

alperalper

Korhan Ayhan

Administrator

alperalper

Korhan Ayhan

Administrator

alperalper

alperalper

Korhan Ayhan

Administrator

alperalper

Korhan Ayhan

Administrator

alperalper

Korhan Ayhan

Administrator

alperalper

Korhan Ayhan

Administrator

alperalper

Korhan Ayhan

Administrator

alperalper

Korhan Ayhan

Administrator

alperalper

Korhan Ayhan

Administrator

alperalper