[Yardım]  Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#1)  Bedrettin DEMİRCİ » 29 Oca 2020 11:11

Değerli forum arkadaşlarım
Ekte sistemden sürekli çektiğim database formatında cari ekstre dosyası var
Tek sütun üzerinde aşağıya doğru cari isimleri ve yanlarında cari açıklama tarih ve bakiyeleri var
Ayrı ayrı carileri görmem gerekiyor
Bunun için her cari isminin bittiği satıra üç satır ekleyecek ve sadece o carinin bakiye ve alt toplamını yazacak
Bu işlemi sürekli yaptığım için vba ile yapılması lazım
Örnek sayfayı yan tarafa ekledim
Yardımcı olursanız memnun olurum
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#2)  Ali ÖZ » 29 Oca 2020 13:30

Deneyin.

Kod: Tümünü seç
Sub deneme()
  Application.ScreenUpdating = False
    For i = Range("a65536").End(3).Row To 2 Step -1
      If Range("c" & i).Value <> Range("c" & i - 1).Value Then
        Range("a" & i & ":a" & i + 2).EntireRow.Insert
         borc = WorksheetFunction.Sum(Range(Range("g" & i + 3), Range("g" & i + 3).End(4)))
         Range("g" & i + 3).End(4).Offset(1, 0) = borc
         alacak = WorksheetFunction.Sum(Range(Range("h" & i + 3), Range("h" & i + 3).End(4)))
         Range("h" & i + 3).End(4).Offset(1, 0) = alacak
         Range("h" & i + 3).End(4).Offset(1, 0) = borc - alacak
      End If
    Next
  Application.ScreenUpdating = True
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 10092
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#3)  Bedrettin DEMİRCİ » 29 Oca 2020 14:18

Şu satırda hata verdi Ali bey

Range("g" & i + 3).End(4).Offset(1, 0) = borc
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#4)  Vedat ÖZER » 29 Oca 2020 14:54

Merhabalar,

Alternatif olarak aşağıdaki sorguyu deneyebilir siniz.

Kod: Tümünü seç
Sub EKSTRE()

   
    Dim son_satir&
    Zaman = Timer
   
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With

    Set con = VBA.CreateObject("adodb.Connection")
    Set rs = VBA.CreateObject("adodb.Recordset")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""
   
    Range("A2:I" & Rows.Count).ClearContents
   

   
    Set rs = VBA.CreateObject("adodb.Recordset")
    sorgu = "SELECT  DISTINCT F2 from [29 01 2020$] "
    sorgu = sorgu & vbLf & "WHERE F2 IS NOT NULL "
    rs.Open sorgu, con

    Do While Not rs.EOF
    CARI = rs("F2").Value
   
    son_satir = Cells(Rows.Count, "A").End(3).Row + 1
    If son_satir = 2 Then son_satir = son_satir
    If son_satir > 2 Then son_satir = son_satir + 4

   
    Set RS1 = VBA.CreateObject("adodb.Recordset")
   
    V = "SELECT F1,F2,F3,F4,F5,F6,F7,F8 from [29 01 2020$] AS [F] where F2 = '" & CARI & "'  "
    RS1.Open V, con
    Range("A" & son_satir).CopyFromRecordset RS1
    V = ""
   
    say = 1
    SON = Cells(Rows.Count, "A").End(3).Row
    For i = son_satir To SON
   
    If say = 1 Then
    Range("I" & i) = Range("g" & i) - Range("h" & i)
    End If
    If say > 1 Then
    Range("I" & i) = Range("g" & i) - Range("h" & i) + Range("I" & i - 1)
    End If
    say = say + 1
    Next i
    S = Cells(Rows.Count, "I").End(3).Row
     
 
    Range("G" & S + 1) = WorksheetFunction.Sum(Range("G" & son_satir & ":G" & S))
    Range("H" & S + 1) = WorksheetFunction.Sum(Range("H" & son_satir & ":H" & S))
   
    rs.movenext
    Loop
    son_satir = Empty
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
   
    MsgBox "İşleminiz Tamamlanmıştır. " & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format((Timer - Zaman) / 60, "0.00") & " Saniye", vbInformation, "VEDAT ÖZER"
End Sub

Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

vedatozer@outlook.com
Vedat ÖZER
Forum Moderatörü
 
Adı Soyadı:vedat özer
Kayıt: 12 Haz 2014 15:26
Konum: ANTALYA / KEMER
Meslek: MUHASEBE
Yaş: 29
İleti: 838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#5)  Bedrettin DEMİRCİ » 29 Oca 2020 15:04

Vedat bey
çok yavaş çalışıyor bu sorun değil ama
liste eksik geliyor ve de rakamlı olmayan harfli olan cari kodları siliyor
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi h

İleti#6)  Bedrettin DEMİRCİ » 29 Oca 2020 15:07

Ali ÖZ yazdı:Deneyin.

Kod: Tümünü seç
Sub deneme()
  Application.ScreenUpdating = False
    For i = Range("a65536").End(3).Row To 2 Step -1
      If Range("c" & i).Value <> Range("c" & i - 1).Value Then
        Range("a" & i & ":a" & i + 2).EntireRow.Insert
         borc = WorksheetFunction.Sum(Range(Range("g" & i + 3), Range("g" & i + 3).End(4)))
         Range("g" & i + 3).End(4).Offset(1, 0) = borc
         alacak = WorksheetFunction.Sum(Range(Range("h" & i + 3), Range("h" & i + 3).End(4)))
         Range("h" & i + 3).End(4).Offset(1, 0) = alacak
         Range("h" & i + 3).End(4).Offset(1, 0) = borc - alacak
      End If
    Next
  Application.ScreenUpdating = True
End Sub


Harfli olan cari kodlardan dolayı hat averiyor
eğer vcari kodu rakamaa çevirirsem o zaman hatasız çalışıyor

Bir de toplama yapılan hücrelerde formül olamaz mı *
Şu şekilde > "=TOPLA(G4131:G5315)" "=TOPLA(H4131:H5315)"
"=G5316-H5316"
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#7)  Bedrettin DEMİRCİ » 01 Şub 2020 08:53

Ali Bey
Harfli olan cari kodlardan dolayı hata veriyor
eğer vcari kodu rakama çevirirsem o zaman hatasız çalışıyor

Bir de toplama yapılan hücrelerde formül olamaz mı *
Şu şekilde > "=TOPLA(G4131:G5315)" "=TOPLA(H4131:H5315)"
"=G5316-H5316"

Yardımcı olabilirmisin bye
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#8)  Ali ÖZ » 03 Şub 2020 10:07

Deneyin.

Kod: Tümünü seç
Sub deneme()
  Application.ScreenUpdating = False
    For i = Range("a65536").End(3).Row To 2 Step -1
      If Range("c" & i).Value <> Range("c" & i - 1).Value Then
        Range("a" & i & ":a" & i + 2).EntireRow.Insert
        sat = Range("g" & i + 3).End(4).Row - Range(Range("g" & i + 3), Range("g" & i + 3).End(4)).Row
        Range("g" & i + 3).End(4).Offset(1, 0).Formula = "=SUM(R[-" & sat & "]C:R[-1]C)"
        Range("h" & i + 3).End(4).Offset(1, 0).Formula = "=SUM(R[-" & sat & "]C:R[-1]C)"
        Range("h" & i + 3).End(4).Offset(1, 0).Formula = "=R[-1]C[-1]-R[-1]C"
      End If
    Next
  Application.ScreenUpdating = True
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 10092
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#9)  Bedrettin DEMİRCİ » 08 Şub 2020 12:47

Teşekkür ederim Ali bey elinize sağlık
Bazı düzeltmeler yaptıktan sonra tam istediğim sonuca ulaşıyorum

Eğer mümkünse yaptığım düzeltmeleri size ileteyim çözülebilirse çok memnun olurum

1-İlk başta 3 satır ekleme yapıyor - bu olmasa daha iyi olur.
2-Eğer son satırdaki cari hareketleri tek satırsa hata veriyor.
3-Cari satır sayısı 1 veya 2 satırsa Alt+toplamlarında hata veriyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#10)  Miraç CAN » 10 Şub 2020 14:25

Anlayabildiğim kadarı ile;
Range("g" & i + 3).End(4).Offset(1, 0).Formula bu satır hatalı, kontrol edin. Range("g" & i + 3).End(4) zaten son satıra gidiyor, +1 demek hata almanıza yol açıyor.
Ya da sat = Range("g" & i + 3).End(4).Row - Range(Range("g" & i + 3), Range("g" & i + 3).End(4)).Row bu satırda hata var.

Satır ekleme komutu Range("a" & i & ":a" & i + 2).EntireRow.Insert "+2" kısmını istediğiniz gibi değiştirebilirsiniz.

Kodların mantığını bilmediğim için ve kodlar da çalışmayınca ne yapılmaya çalışıyor başka bir şey anlayamadım.
Ama .End(4) yazan yerleri yanlış yazılmış olabilir mi? .End(3) olarak deneseniz?
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi h

İleti#11)  Bedrettin DEMİRCİ » 10 Şub 2020 16:58

Hemen deniyorum Miraç bey..



Miraç CAN yazdı:Anlayabildiğim kadarı ile;
Range("g" & i + 3).End(4).Offset(1, 0).Formula bu satır hatalı, kontrol edin. Range("g" & i + 3).End(4) zaten son satıra gidiyor, +1 demek hata almanıza yol açıyor.
Ya da sat = Range("g" & i + 3).End(4).Row - Range(Range("g" & i + 3), Range("g" & i + 3).End(4)).Row bu satırda hata var.

Satır ekleme komutu Range("a" & i & ":a" & i + 2).EntireRow.Insert "+2" kısmını istediğiniz gibi değiştirebilirsiniz.

Kodların mantığını bilmediğim için ve kodlar da çalışmayınca ne yapılmaya çalışıyor başka bir şey anlayamadım.
Ama .End(4) yazan yerleri yanlış yazılmış olabilir mi? .End(3) olarak deneseniz?
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#12)  Ali ÖZ » 10 Şub 2020 19:13

Bedrettin bey,
Ben kodları yazarken sizin taleplerinize göre yazdım,toplam almak istediğinize göre tek kayıt olmaz diye düşündüm.Bu sebeple de ona göre kod yazdım.Kodda hata yok sadece talebe özgü olduğundan bu sonuç ortaya çıkıyor.
Siz bir deneyin Miraç bey'in önerilerini olmazsa yardımcı olmaya çalışırız.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 10092
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#13)  Bedrettin DEMİRCİ » 11 Şub 2020 07:39

Ali Bey bu kod son satır hatası veriyor
cari kaydı tek satırsa hatadan kurtulamıyor

Sub cari_isimlerini_ayir_ali_oz()
Application.ScreenUpdating = False
For i = Range("a65536").End(3).Row To 2 Step -1
If Range("c" & i).Value <> Range("c" & i - 1).Value Then
Range("a" & i & ":a" & i + 2).EntireRow.Insert
sat = Range("g" & i + 3).End(4).Row - Range(Range("g" & i + 3), Range("g" & i + 3).End(4)).Row
Range("g" & i + 3).End(4).Offset(1, 0).Formula = "=SUM(R[-" & sat + 1 & "]C:R[-1]C)"
Range("h" & i + 3).End(4).Offset(1, 0).Formula = "=SUM(R[-" & sat + 1 & "]C:R[-1]C)"
Range("h" & i + 3).End(4).Offset(1, 0).Formula = "=R[-1]C[-1]-R[-1]C"

Range("g" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
Range("g" & i + 3).End(4).Offset(0, 0).Font.Bold = True
Range("H" & i + 4).End(4).Offset(-1, 0).Font.Color = 12458
Range("H" & i + 4).End(4).Offset(-1, 0).Font.Bold = True
Range("H" & i + 4).End(4).Offset(0, 0).Font.Color = 3284
Range("H" & i + 4).End(4).Offset(0, 0).Font.Bold = True

End If
Next
Application.ScreenUpdating = True

Call ilk_ucunu_sil
End Sub
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi h

İleti#14)  Bedrettin DEMİRCİ » 11 Şub 2020 08:25

Miraç CAN yazdı:Anlayabildiğim kadarı ile;
Range("g" & i + 3).End(4).Offset(1, 0).Formula bu satır hatalı, kontrol edin. Range("g" & i + 3).End(4) zaten son satıra gidiyor, +1 demek hata almanıza yol açıyor.
Ya da sat = Range("g" & i + 3).End(4).Row - Range(Range("g" & i + 3), Range("g" & i + 3).End(4)).Row bu satırda hata var.

Satır ekleme komutu Range("a" & i & ":a" & i + 2).EntireRow.Insert "+2" kısmını istediğiniz gibi değiştirebilirsiniz.

Kodların mantığını bilmediğim için ve kodlar da çalışmayınca ne yapılmaya çalışıyor başka bir şey anlayamadım.
Ama .End(4) yazan yerleri yanlış yazılmış olabilir mi? .End(3) olarak deneseniz?



Günaydın Miraç bey
Sizin anladığınız şekilde bu kodu tekrar yazarmısınız
çünkü ben değiştirmeye çalıştım ama olmadı
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#15)  Miraç CAN » 11 Şub 2020 10:03

Maalesef Muhasebe işleri ve terminolojisi bilgilerine vakıf değilim.
Mesela "Cari" ne demek, ne ifade eder, nasıl hesaplanır bilmiyorum.
Ancak formülize ederseniz, vakit buldukça yardımcı olmaya çalışırım.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi h

İleti#16)  Bedrettin DEMİRCİ » 11 Şub 2020 10:07

Miraç CAN yazdı:Maalesef Muhasebe işleri ve terminolojisi bilgilerine vakıf değilim.
Mesela "Cari" ne demek, ne ifade eder, nasıl hesaplanır bilmiyorum.
Ancak formülize ederseniz, vakit buldukça yardımcı olmaya çalışırım.


Cari dediğim şirket adı. sen adı soyadı gibi anlayabilirsin.
aynı isimden olan satırların arasına 3 boş satır ekliyor ve o isme ait sütunların toplamını yazıyor
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#17)  Bedrettin DEMİRCİ » 11 Şub 2020 10:10

Mesela ilk başta cari adı "FETHİ BAHARAT (FETHİ DUHAN ÇALIK)" var

Bu cariyi diğerlerinden ayrırmak için üç satır ekleyecek ve altına bu cariye ait rakamların toplamını G ve H sütununa yazacak.
Ayrıca G sütun toplamından H sütun toplamını çıkaracak
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#18)  Miraç CAN » 11 Şub 2020 10:14

Tek satır olanlara işlem yapmak gerekmiyor o zaman anladığım kadarı ile?
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#19)  Bedrettin DEMİRCİ » 11 Şub 2020 10:15

Gerekiyor..
Çünkü tek satır olan cariyi tahmin edemiyorsun.
tekte olabilir ikide olabilir. Kod her iki durumdada hata vermemeli.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1742
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cari isimlerini ayır cari toplam ve bakiyeyi hesapla

İleti#20)  Miraç CAN » 11 Şub 2020 10:19

Kastım şu; tek satır olanlarda toplamlara gerek yok, sadece fark alması yeterli. Mi?
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe