[Yardım]  kod yazma

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

Cevap: kod yazma

İleti#21)  drykcktl » 13 Şub 2020 13:16

uygun bir kod buldum ama uygulayamadım bir bunu yapıcam derken hata yaptım sanırım açılışta hata veriyor dosyam

Sub auto_open()
Sheets("GENEL SAYFA").Activate
End Sub


Sub Kopyala()
Sheets("GENEL SAYFA").Range("A1:N65536").Copy
Workbooks.Open (ThisWorkbook.Path & "\ŞUBAT ANALİZ")
Sheets("DATA").Activate
Range("A1").PasteSpecial
ActiveSheet.Columns.AutoFit
Range("A1").Select
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: kod yazma

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

İki farklı modüle auto_open olayı eklemişsiniz. Birini silmeniz gerekiyor.
Ya da ikisini de silip sadece ThisWorkbook kod paneline yazın, fark etmez.
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: kod yazma

İleti#23)  Miraç CAN » 15 Şub 2020 15:29

drykcktl yazdı:index sayfasına tarihlerin karşışığına o gün gelen malı aldırmak istiyorum.sayfalarda belli hücrelerde bu değerler var formulle yani = deyip hücre değerini alabiliyorum ben bunu makro ile yapmak istiyorum ama butonla değil yani veri girildikçe otomatik gelsin her ay yeni sayfa oluşturduğumuz için sıkıntı oluyor.

Burada tam olarak hangi sütunlarda işlem yapılacak, hangi sütun ve satır/satırlarda ki verileri almak istiyorsunuz detaylı şekilde izah ederseniz,başlamışken onu da halledelim.
Kod: Tümünü seç
Sub yedek()
BuDosya = ThisWorkbook.Name
Sheets("GENEL SAYFA").Activate
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Tarih = Format(Date, "yyyy") & "_" & Format(Date, "mmmm")
dosya = ThisWorkbook.Path & "\" & Tarih & "_Analiz.xlsx"
dadı = Tarih & "_Analiz.xlsx"
Workbooks.Add.SaveAs Filename:=dosya
Workbooks(dadı).Activate
ActiveWorkbook.ActiveSheet.Name = "DATA"
Windows(BuDosya).Activate
Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 14)).Copy
Application.Workbooks(dadı).Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.Workbooks(dadı).Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.Workbooks(dadı).Sheets("DATA").Columns("A:N").EntireColumn.AutoFit
Application.CutCopyMode = False
Workbooks(dadı).Save
Workbooks(dadı).Close
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
CreateObject("WScript.Shell").Popup Format(Date, "mmmm") & " Yedek Alma İşlemi Bitti.", 1, "Bilgi          |          Miraç CAN", vbInformation
End Sub

Bu kodlar da dosyanızın bulunduğu konuma yeni bir dosya açarak ör:"2020_Şubat_Analiz" adında "GENEL SAYFA" yedeği alır.
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: kod yazma

İleti#24)  drykcktl » 17 Şub 2020 07:11

Miraç CAN yazdı:
drykcktl yazdı:index sayfasına tarihlerin karşışığına o gün gelen malı aldırmak istiyorum.sayfalarda belli hücrelerde bu değerler var formulle yani = deyip hücre değerini alabiliyorum ben bunu makro ile yapmak istiyorum ama butonla değil yani veri girildikçe otomatik gelsin her ay yeni sayfa oluşturduğumuz için sıkıntı oluyor.

Burada tam olarak hangi sütunlarda işlem yapılacak, hangi sütun ve satır/satırlarda ki verileri almak istiyorsunuz detaylı şekilde izah ederseniz,başlamışken onu da halledelim.
Kod: Tümünü seç
Sub yedek()
BuDosya = ThisWorkbook.Name
Sheets("GENEL SAYFA").Activate
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Tarih = Format(Date, "yyyy") & "_" & Format(Date, "mmmm")
dosya = ThisWorkbook.Path & "\" & Tarih & "_Analiz.xlsx"
dadı = Tarih & "_Analiz.xlsx"
Workbooks.Add.SaveAs Filename:=dosya
Workbooks(dadı).Activate
ActiveWorkbook.ActiveSheet.Name = "DATA"
Windows(BuDosya).Activate
Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 14)).Copy
Application.Workbooks(dadı).Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.Workbooks(dadı).Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.Workbooks(dadı).Sheets("DATA").Columns("A:N").EntireColumn.AutoFit
Application.CutCopyMode = False
Workbooks(dadı).Save
Workbooks(dadı).Close
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
CreateObject("WScript.Shell").Popup Format(Date, "mmmm") & " Yedek Alma İşlemi Bitti.", 1, "Bilgi          |          Miraç CAN", vbInformation
End Sub

Bu kodlar da dosyanızın bulunduğu konuma yeni bir dosya açarak ör:"2020_Şubat_Analiz" adında "GENEL SAYFA" yedeği alır.


günaydın ;
genel sayfanın hepsini verdiğiniz kodları denemedim daha
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



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

Cevap: Cevap: Cevap: kod yazma

İleti#25)  drykcktl » 17 Şub 2020 07:38

drykcktl yazdı:
Miraç CAN yazdı:
drykcktl yazdı:index sayfasına tarihlerin karşışığına o gün gelen malı aldırmak istiyorum.sayfalarda belli hücrelerde bu değerler var formulle yani = deyip hücre değerini alabiliyorum ben bunu makro ile yapmak istiyorum ama butonla değil yani veri girildikçe otomatik gelsin her ay yeni sayfa oluşturduğumuz için sıkıntı oluyor.

Burada tam olarak hangi sütunlarda işlem yapılacak, hangi sütun ve satır/satırlarda ki verileri almak istiyorsunuz detaylı şekilde izah ederseniz,başlamışken onu da halledelim.
Kod: Tümünü seç
Sub yedek()
BuDosya = ThisWorkbook.Name
Sheets("GENEL SAYFA").Activate
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Tarih = Format(Date, "yyyy") & "_" & Format(Date, "mmmm")
dosya = ThisWorkbook.Path & "\" & Tarih & "_Analiz.xlsx"



yapmak istediğim genel sayfanın yedeğini almak aynı klasör içerisinde analiz sayfasında oluşacak yedek.diğeride örneğin
dadı = Tarih & "_Analiz.xlsx"
Workbooks.Add.SaveAs Filename:=dosya
Workbooks(dadı).Activate
ActiveWorkbook.ActiveSheet.Name = "DATA"
Windows(BuDosya).Activate
Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 14)).Copy
Application.Workbooks(dadı).Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.Workbooks(dadı).Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.Workbooks(dadı).Sheets("DATA").Columns("A:N").EntireColumn.AutoFit
Application.CutCopyMode = False
Workbooks(dadı).Save
Workbooks(dadı).Close
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
CreateObject("WScript.Shell").Popup Format(Date, "mmmm") & " Yedek Alma İşlemi Bitti.", 1, "Bilgi          |          Miraç CAN", vbInformation
End Sub

Bu kodlar da dosyanızın bulunduğu konuma yeni bir dosya açarak ör:"2020_Şubat_Analiz" adında "GENEL SAYFA" yedeği alır.


günaydın ;
genel sayfanın hepsini verdiğiniz kodları denemedim daha





yapmak istediğim genel yayfanın yedeğini almak analiz sayfası olarak ama buton kullanmadan

bie diğeride örnegin 01.02.2020 sayfasında F87 hücresini index sayfasında F2 YE aldırmak bunuda buton kullanmadan yapmak istiyorum veri girildikçe güncellesin umarım mümkündür.
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: kod yazma

İleti#26)  Miraç CAN » 17 Şub 2020 08:44

drykcktl yazdı:yapmak istediğim genel yayfanın yedeğini almak analiz sayfası olarak ama buton kullanmadan

bie diğeride örnegin 01.02.2020 sayfasında F87 hücresini index sayfasında F2 YE aldırmak bunuda buton kullanmadan yapmak istiyorum veri girildikçe güncellesin umarım mümkündür.

Mümkün olabilir,
Nasıl olacak peki? Excel kendisi mi tahmin etsin..?

Makine ve programlar komutlarla, talimatlarla çalışır, kendiliğinden bir şey yapamazlar, talimatlara koşulları eklersiniz ve "çalış" dersiniz, çalışırlar. Hangi koşullarda ne yapmasını istiyorsanız "sadece" onları yaparlar.

Söylediklerinizden pek bir şey anladığımı söyleyemeyeceğim Derya Hanım, iyi günler.
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

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: kod yazma

İleti#27)  drykcktl » 17 Şub 2020 09:00

Miraç CAN yazdı:
drykcktl yazdı:yapmak istediğim genel yayfanın yedeğini almak analiz sayfası olarak ama buton kullanmadan

bie diğeride örnegin 01.02.2020 sayfasında F87 hücresini index sayfasında F2 YE aldırmak bunuda buton kullanmadan yapmak istiyorum veri girildikçe güncellesin umarım mümkündür.

Mümkün olabilir,
Nasıl olacak peki? Excel kendisi mi tahmin etsin..?

Makine ve programlar komutlarla, talimatlarla çalışır, kendiliğinden bir şey yapamazlar, talimatlara koşulları eklersiniz ve "çalış" dersiniz, çalışırlar. Hangi koşullarda ne yapmasını istiyorsanız "sadece" onları yaparlar.

Söylediklerinizden pek bir şey anladığımı söyleyemeyeceğim Derya Hanım, iyi günler.



haklısınız Miraç Bey ben ifade edemedim butonla değilde enter bastığımızda kod aktif olsun demek istemiştim
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: Cevap: Cevap: kod yazma

İleti#28)  drykcktl » 17 Şub 2020 10:56

drykcktl yazdı:
Miraç CAN yazdı:
drykcktl yazdı:index sayfasına tarihlerin karşışığına o gün gelen malı aldırmak istiyorum.sayfalarda belli hücrelerde bu değerler var formulle yani = deyip hücre değerini alabiliyorum ben bunu makro ile yapmak istiyorum ama butonla değil yani veri girildikçe otomatik gelsin her ay yeni sayfa oluşturduğumuz için sıkıntı oluyor.

Burada tam olarak hangi sütunlarda işlem yapılacak, hangi sütun ve satır/satırlarda ki verileri almak istiyorsunuz detaylı şekilde izah ederseniz,başlamışken onu da halledelim.
Kod: Tümünü seç
Sub yedek()
BuDosya = ThisWorkbook.Name
Sheets("GENEL SAYFA").Activate
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Tarih = Format(Date, "yyyy") & "_" & Format(Date, "mmmm")
dosya = ThisWorkbook.Path & "\" & Tarih & "_Analiz.xlsx"
dadı = Tarih & "_Analiz.xlsx"
Workbooks.Add.SaveAs Filename:=dosya
Workbooks(dadı).Activate
ActiveWorkbook.ActiveSheet.Name = "DATA"
Windows(BuDosya).Activate
Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 14)).Copy
Application.Workbooks(dadı).Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.Workbooks(dadı).Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.Workbooks(dadı).Sheets("DATA").Columns("A:N").EntireColumn.AutoFit
Application.CutCopyMode = False
Workbooks(dadı).Save
Workbooks(dadı).Close
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
CreateObject("WScript.Shell").Popup Format(Date, "mmmm") & " Yedek Alma İşlemi Bitti.", 1, "Bilgi          |          Miraç CAN", vbInformation
End Sub

Bu kodlar da dosyanızın bulunduğu konuma yeni bir dosya açarak ör:"2020_Şubat_Analiz" adında "GENEL SAYFA" yedeği alır.


günaydın ;
genel sayfanın hepsini verdiğiniz kodları denemedim daha


Tekrar merhaba Miraç Bey çok oldum biliyorum ama çapamadım bu kodla zahmet olmazsa dosyaya uygulayabilirmisiniz
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: Cevap: Cevap: Cevap: kod yazma

İleti#29)  drykcktl » 17 Şub 2020 11:06

çok özür tekrar oldu elinize emeğinize sağlık ama küçük bir sorun var genel sayfada hem analiz sayfasında geriye dönük veri girdiğimde veya sonrada veri girişi yaptığımda tarih sıralı gelmiyor söz bu son ricam sizden
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: Cevap: Cevap: Cevap: Cevap: kod yazma

İleti#30)  Miraç CAN » 17 Şub 2020 11:30

drykcktl yazdı:çok özür tekrar oldu elinize emeğinize sağlık ama küçük bir sorun var genel sayfada hem analiz sayfasında geriye dönük veri girdiğimde veya sonrada veri girişi yaptığımda tarih sıralı gelmiyor söz bu son ricam sizden

Yine ve yeniden aklınızı okuyup tahmin etmemi bekliyorsunuz sanırım.
Yine çok bir şey anladığımı söyleyemeyeceğim, fakat;

Kodların çalışma prensibini izah edeyim, ona göre tespit ve düzeltme yaparsınız:
İlk gönderdiğiniz örnek dosyaya göre kurgulandı Derya Hanım, En başta "Genel Sayfa" isimli sayfa ve sonra tarihe göre sıralı ardışık sayfalarınız vardı. Bu sıra bozulursa böyle bir şey olabilir. Ya da başka sayfalar var ise ve de keriterlere uyan bilgiler varsa onlar da işleme tabii olurlar. Veya gizli sayfalarınız varsa.
Sayfaların görünür sıralamasına göre çalışacak şekilde dizayn edildi kodlar.

If .Name <> "GENEL SAYFA" Then satırına And ekleyerek işlem yapılmasını istemediğiniz sayfaları ekleyin lütfen.
If .Name <> "GENEL SAYFA" And .Name <> "index" Then ... gibi.
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: Cevap: Cevap: Cevap: Cevap: kod yazma

İleti#31)  drykcktl » 17 Şub 2020 12:30

Miraç CAN yazdı:
drykcktl yazdı:çok özür tekrar oldu elinize emeğinize sağlık ama küçük bir sorun var genel sayfada hem analiz sayfasında geriye dönük veri girdiğimde veya sonrada veri girişi yaptığımda tarih sıralı gelmiyor söz bu son ricam sizden

Yine ve yeniden aklınızı okuyup tahmin etmemi bekliyorsunuz sanırım.
Yine çok bir şey anladığımı söyleyemeyeceğim, fakat;

Kodların çalışma prensibini izah edeyim, ona göre tespit ve düzeltme yaparsınız:
İlk gönderdiğiniz örnek dosyaya göre kurgulandı Derya Hanım, En başta "Genel Sayfa" isimli sayfa ve sonra tarihe göre sıralı ardışık sayfalarınız vardı. Bu sıra bozulursa böyle bir şey olabilir. Ya da başka sayfalar var ise ve de keriterlere uyan bilgiler varsa onlar da işleme tabii olurlar. Veya gizli sayfalarınız varsa.
Sayfaların görünür sıralamasına göre çalışacak şekilde dizayn edildi kodlar.

If .Name <> "GENEL SAYFA" Then satırına And ekleyerek işlem yapılmasını istemediğiniz sayfaları ekleyin lütfen.
If .Name <> "GENEL SAYFA" And .Name <> "index" Then ... gibi.



Miraç Bey bu son artık olsada olmasa da yazmıcam utandım artık inanın..sabah kodu uyguladım oldu analiz sayfam ancak onun üzerinde bi hata yaptım sayfam bozuldu (kendi hatam ) verdiğiniz kodu eklediğim sayfaya uyguladım ama şimdi olmuyor nerede hata yapıyorum bilemedim.daha fazla başınızı ağrıtmakta isyemiyorum tek ricam bi kontrol edermisiniz yanlış yeremi yazıyorum kodu söz bu son
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: kod yazma

İleti#32)  drykcktl » 18 Şub 2020 07:52

kimse yokmu yardım edebilecek [uzgun]
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: kod yazma

İleti#33)  Miraç CAN » 18 Şub 2020 12:04

drykcktl yazdı:Miraç Bey bu son artık olsada olmasa da yazmıcam utandım artık inanın..sabah kodu uyguladım oldu analiz sayfam ancak onun üzerinde bi hata yaptım sayfam bozuldu (kendi hatam ) verdiğiniz kodu eklediğim sayfaya uyguladım ama şimdi olmuyor nerede hata yapıyorum bilemedim.daha fazla başınızı ağrıtmakta isyemiyorum tek ricam bi kontrol edermisiniz yanlış yeremi yazıyorum kodu söz bu son


Aynı şeyi yapmaya devam etmekte çok ısrarcısınız Derya Hanım; lütfen şu yazdığınızı çevrenizde birine okutun, ne anladıysa bizimle de paylaşsın.

Özellikle ricam şu kısımı: ...bi hata yaptım sayfam bozuldu (kendi hatam ) verdiğiniz kodu eklediğim sayfaya uyguladım ama şimdi olmuyor nerede hata yapıyorum bilemedim.

Ayrıca dosyanızda hiç bir aksaklık yok, gayet düzgün çalışıyor. [ilginc]
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

Önceki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe