[Çözüldü] - Listview de iki tarih arası süz ve aktar

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

[Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#1)  ozmacig » 17 Şub 2010 19:03

Sayın arkadaşlar;
Bir adet araç takip programı yapmakla meşgulüm ancak bir yerde takıldım, öncelikle biraz programdan bahsedeyim ; Excel üzerinde 11 adet sütun bulunmaktadır. Excele bir adet userform onun üzerinde 2 adet textbox ,1 adet combobox, 2 adet commandbuton ve 1 adet listview menüsü bulunmaktadır.

İki adet textbox'ta tarihleri yazıp combobox referans alarak excel sayfasında süzme işlemi yapıp raporu listviewe aktarmak, oradan da başka bir sayfaya yazdırmak istiyorum. Ancak iki tarih arasında süzme işlemi yaptıracağım uygun bir kod bulamadım aşağıda bir kod buldum ancak oda bir işe yaramadı yardımcı olursanız sevinirim..
Kod: Tümünü seç
Private Sub CommandButton1_Click()
On Error Resume Next
Dim baslangic_tar As Date, bitis_tar As Date, plaka As String
Dim i As Long, x As Long, k As Byte, A As Long

If Not IsDate(TextBox3.Value) Then
MsgBox "Başlangıç tarihi yanlış veya seçilmedi..", vbCritical, "UYARI"
TextBox3.SetFocus
Exit Sub
End If

If Not IsDate(TextBox4.Value) Then
MsgBox "Son tarih yanlış veya seçilmedi..!!", vbCritical, "UYARI"
TextBox4.SetFocus
Exit Sub
End If

ListView1.RowSource = vbNullString
baslangic_tar = CDate(TextBox3.Text)
bitis_tar = CDate(TextBox4.Text)
ReDim myarr(1 To 11, 1 To 1)

For i = 2 To Cells(65536, "B").End(xlUp).Row

If ComboBox3.Value = "" Then
plaka = Cells(i, "C").Value
Else
plaka = ComboBox3.Value
End If

If Cells(i, 2).Value >= baslangic_tar And Cells(i, 2).Value <= bitis_tar And plaka = Cells(i, 3).Value Then
A = A + 1
ReDim Preserve myarr(1 To 11, 1 To A)
For k = 1 To 11
myarr(k, A) = Cells(i, k)

Next k
Else
End If

Next i
If A > 0 Then ListView1(xlLastCell).Column = myarr
Erase myarr



With AKTAR.ListView1
.ListItems.Clear
.BackColor = vbYellow
.ForeColor = vbRed
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
End With
ListeGuncelle
End Sub
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Listview de iki tarih arası süz ve aktar

İleti#2)  Emrah ÇANAKKALE » 17 Şub 2010 19:19

Ben genelde alttaki kodları kullanıyorum denermisin.

Not : Kodları denemedim hata verirse bildirin.
Kod: Tümünü seç
Set sH = Sheets("sayfa-adı-yaz")
    ENDROW = sH.Cells(65536, 1).End(xlUp).Row
    With ListView1
        .ListItems.Clear
        For i = 2 To ENDROW
baslangic_tar = CDate(TextBox3.Text)
bitis_tar = CDate(TextBox4.Text)
If ComboBox3.Value = "" Then
plaka = Cells(i, "C").Value
Else
plaka = ComboBox3.Value
End If
If Cells(i, 2).Value >= baslangic_tar And Cells(i, 2).Value <= bitis_tar And plaka = Cells(i, 3).Value Then

            .ListItems.Add , , sH.Cells(i, 1)
            X = X + 1
            With .ListItems(X).ListSubItems
                .Add , , sH.Cells(i, 2)
                .Add , , sH.Cells(i, 3)
                .Add , , sH.Cells(i, 4)
                .Add , , sH.Cells(i, 5)
                .Add , , sH.Cells(i, 6)
                .Add , , sH.Cells(i, 7)
                .Add , , sH.Cells(i, 8)
                .Add , , sH.Cells(i, 9)
                .Add , , sH.Cells(i, 10)
                .Add , , sH.Cells(i, 11)
            End With
            End If
            Next
               End With
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 14:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Listview de iki tarih arası süz ve aktar

İleti#3)  ozmacig » 18 Şub 2010 13:10

Arkadaşım ilgin için teşekkürler. Vermiş olduğun kodu inceledim ve uyguladım ancak bir türlü olmadı Listele butonuna tıklıyorum listelemiyor. Dosya ekte bir ilgilenirseniz sevinirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Listview de iki tarih arası süz ve aktar

İleti#4)  Emrah ÇANAKKALE » 18 Şub 2010 13:44

Hangi formdaki listviewe uygulanacak, hangi sayfadan veri alınacak, tarih hangi sütunda, plaka hangi sütunda ?
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 14:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

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

Cevap: Cevap: Listview de iki tarih arası süz ve aktar

İleti#5)  ozmacig » 18 Şub 2010 14:46

Emrah ÇANAKKALE yazdı:Hangi formdaki listviewe uygulanacak, hangi sayfadan veri alınacak, tarih hangi sütunda, plaka hangi sütunda ?


Hocam pardon dosyayı biraz sadeleştirdim. Aktar Userformuna uygulanacak, veri2 sayfasından bilgiler alınıp, iki tarih arasında süzülerek aktar2 sayfasına aktarılacak.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
En son ozmacig tarafından, 18 Şub 2010 14:56 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Listview de iki tarih arası süz ve aktar

İleti#6)  Emrah ÇANAKKALE » 18 Şub 2010 14:59

Ezbere kod yazınca olmuyor. Alttaki satırda değişiklik yaptım çalıştı.

Kod: Tümünü seç
If CDate(Cells(i, 2)) >= baslangic_tar And CDate(Cells(i, 2)) <= bitis_tar And plaka = Cells(i, 3).Value Then
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 14:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Listview de iki tarih arası süz ve aktar

İleti#7)  ozmacig » 18 Şub 2010 15:15

Teşekkürler hocam.
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#8)  ozmacig » 18 Şub 2010 15:28

Hocam bir sorum daha olacak süzdükten sonra saat formatını nasıl halede bilirim.
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: [Çözüldü] - Listview de iki tarih arası süz ve

İleti#9)  Emrah ÇANAKKALE » 18 Şub 2010 15:45

ozmacig yazdı:Hocam bir sorum daha olacak süzdükten sonra saat formatını nasıl halede bilirim.


Alttaki koddaki gibi formatları düzeltin.

Kod: Tümünü seç
                .Add , , sh.Cells(i, 6)
                .Add , , Format(sh.Cells(i, 7), "hh:mm")
                .Add , , sh.Cells(i, 8)
                .Add , , Format(sh.Cells(i, 9), "hh:mm")
                .Add , , sh.Cells(i, 10)
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 14:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#10)  ozmacig » 18 Şub 2010 15:54

Teşekkürler hocam
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#11)  ozmacig » 18 Şub 2010 16:33

Hocam affınıza sığınarak bir sorum daha olacak aynı form üzerinde Döküm işlemi yapıyorum döküm dediğimde veri2 sayfasındaki verileri aktar2 sayfasına alıyor ve en alt satırına K sütunun toplam aldırmak istiyorum bunu aşağıdaki kodlarla yaptım ancak alt toplam sıfır gösteriyor sebebi ne olabilir.

Sheets("AKTAR2").Cells.ClearContents
Application.ScreenUpdating = False
For ss = 1 To 11 'Başlık için dönüyor
Sheets("AKTAR2").Cells(1, ss).Value = Me.ListView1.ColumnHeaders(ss) 'başlık
For i = 1 To Me.ListView1.ListItems.Count 'Sıra numarası için dönüyor
Sheets("AKTAR2").Cells(i + 1, 1).Value = Me.ListView1.ListItems(i) 'Sıra no
Sheets("AKTAR2").Cells(i + 1, ss + 1).Value = Me.ListView1.ListItems(i).ListSubItems(ss) 'Sıra no
Next i, ss
Sheets("AKTAR2").Cells(1, 11).Value = Me.ListView1.ColumnHeaders(11) 'başlık
Application.ScreenUpdating = True
Sheets("AKTAR2").Cells(65536, 10).End(3).Offset(2, 0).Value = "TOPLAM"
Sheets("AKTAR2").Cells(65536, 11).End(3).Offset(2, 0).Value = WorksheetFunction.Sum(Worksheets("AKTAR2").Range(" K2:K" & i))
MsgBox "işlem tamam"
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#12)  Emrah ÇANAKKALE » 18 Şub 2010 16:47

For i = 1 To Me.ListView1.ListItems.Count 'Sıra numarası için dönüyor
Sheets("AKTAR2").Cells(i + 1, 1).Value = Me.ListView1.ListItems(i) 'Sıra no
Sheets("AKTAR2").Cells(i + 1, ss + 1).Value = Me.ListView1.ListItems(i).ListSubItems(ss) 'Sıra no
Next i, ss <------- i değişkeni burada bitiyorSheets("AKTAR2").Cells(1, 11).Value = Me.ListView1.ColumnHeaders(11) 'başlık
Application.ScreenUpdating = True
Sheets("AKTAR2").Cells(65536, 10).End(3).Offset(2, 0).Value = "TOPLAM"
Sheets("AKTAR2").Cells(65536, 11).End(3).Offset(2, 0).Value = WorksheetFunction.Sum(Worksheets("AKTAR2").Range(" K2:K" & i)) <------- siz burada tekrar kullanmışsınız bu durumu düzeltin


İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 14:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#13)  ozmacig » 18 Şub 2010 17:02

Nasıl düzelteceğimi bilmiyorum hocam yardımcı ola bilirmisiniz
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#14)  Emrah ÇANAKKALE » 18 Şub 2010 17:14

Sheets("AKTAR2").Cells(65536, 11).End(3).Offset(2, 0).Value = WorksheetFunction.Sum(Worksheets("AKTAR2").Range("K2:K65536"))

Yaparsanız işinizi görmüyor mu ? Yani k sütunundaki sayıların toplamı lazım değil mi?
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 14:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#15)  ozmacig » 18 Şub 2010 17:20

Evet hocam sadece K sütunun toplamı lazım. Vermiş olduğunuz kodu yazdım ancak yine sıfır gösteriyor.
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#16)  Emrah ÇANAKKALE » 18 Şub 2010 17:45

Büyük ihtimalle listviewden sayfaya aktarırken sayı formatında kaydedilmiyor. Sayı içeren sütundaki verileri cdbl() içine alın sayfada sayı olarak görünmüyorsa doğal olarak toplama işlemi yapmıyacaktır. ( K sütununda hücrelerin kenerında yeşil belirteç varmı üzerine gelince metinolarak saklanan sayı yazıyor mu ? )
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 14:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#17)  Tarkan VURAL » 18 Şub 2010 17:53

K sütunundaki değerler hepsi sayıs ise kodların sonuna bir döngü kurarak sayı formatına çevirin isterseniz.

Kod: Tümünü seç
for i = 2 to range("k65536").end(3).row
cells(i,"k").value = cells(i,"k").value *1
next i


Fikirdir. :) Belki iş görür. Konuya tam ortadan girdim ama umarım doğru anlıyorumdur. :)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26676
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#18)  ozmacig » 18 Şub 2010 17:55

Evet hocam yeşil bir üçgen var metin olarak saklanan sayı diyor
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: [Çözüldü] - Listview de iki tarih arası süz ve

İleti#19)  ozmacig » 18 Şub 2010 18:00

Tarkan VURAL yazdı:K sütunundaki değerler hepsi sayıs ise kodların sonuna bir döngü kurarak sayı formatına çevirin isterseniz.

Kod: Tümünü seç
for i = 2 to range("k65536").end(3).row
cells(i,"k").value = cells(i,"k").value *1
next i


Fikirdir. :) Belki iş görür. Konuya tam ortadan girdim ama umarım doğru anlıyorumdur. :)

Hocam vermiş olduğunuz kodla K sütununu sayı formatına çevrildi ancak yine sıfır gösteriyor.
Kullanıcı avatarı
ozmacig
Yeni Başlamış
 
Adı Soyadı:ozer can
Kayıt: 12 May 2009 11:52
Konum: Bursa
Meslek: memur
Yaş: 45
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: [Çözüldü] - Listview de iki tarih arası süz ve aktar

İleti#20)  Emrah ÇANAKKALE » 18 Şub 2010 18:10

Olmaz sayı varsa sum fonksiyonu toplar siz nereye kaydedildiğini kontrol edin yani;

Sheets("AKTAR2").Cells(65536, 11).End(3).Offset(2, 0).Value = WorksheetFunction.Sum(Worksheets("AKTAR2").Range("K2:K65536"))

11. sütunun en son dolu hücresine bakın yada dosyayı sadeleştirip ekleyin.
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 14:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Sonraki

Forum ListView

Online Kullanıcılar

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

Bumerang - Yazarkafe