Veri Doğrulama

[12SubaT]

Arkadaşlar konu başlığına veri doğrulama yazdım ama soracağım şeyin tam olarak neyle ilgili olduğunu bilmiyorum.
göndereceğim ekte mevcut dosya içinde müşteriler bölgelere göre sınıflandırılmış ve topla.çarpım formülleriyle başka bir çalışma kitabında bulunan verilerden güncel bakiyelerini alıyor.yapmak istediğim satış ve teslimatta çalışan personele o gün gidecekleri bölgedeki müşterilerin bakiyelerini gösteren borç listesi vermek.
başka bir sayfada mı yapılır yoksa aynı sayfada mı yapılır bilmiyorum:Bir hücreye veri doğrulama yapıp oradan atıyorum x bölgesini seçeceğiz.seçince mevcut verilerden o bölge müşterileri bulunup bakiyeleriyle beraber dökümü alınacak.
anlaşılmayan bir yer varsa açıklama yapabilirim.şimdiden teşekkür ederim ilgilenecek arkadaşlara.
Ekli dosyayı görüntüle xxx.xls

 

[Vedat Özer]

Selamlar,


Bölgelere göre rapor mu almak istiyorsunuz ?

 

[12SubaT]

evet hocam

 

[Vedat Özer]

Selamlar,


Ekdeki örnek dosyayı inceleyin,

 

[12SubaT]

Süpersiniz ben biraz daha geliştirmeye çalışayım takıldığım yer olursa tekrar rahatsız ederim olur mu?:d

 

[Vedat Özer]

Selamlar,


Takıldıgınız yerde forumda arama yapın eğer bulamazsanız konuyla alakası yoksa ayrı bir başlık altında acarsınız.

 

[12SubaT]

Selamlar
Hocam bu verdiğiniz formülü kullanmak istediğim dosyaya uyarlamaya çalıştım -bazı hücreleri değiştirerek- ama bir türlü doğru sonuç vermedi.Formülü ekteki dosyaya uyarlayabilir misiniz?
Ekli dosyayı görüntüle xxx.xls

 

[Merhum İdris SERDAR]

Selamlar
Hocam bu verdiğiniz formülü kullanmak istediğim dosyaya uyarlamaya çalıştım -bazı hücreleri değiştirerek- ama bir türlü doğru sonuç vermedi.Formülü ekteki dosyaya uyarlayabilir misiniz?
Ekli dosyayı görüntüle 107293

.

Dosyanız formülsüz olarak yapılmış hali ektedir.

Konu için bakınız:

ÖZET TABLOLAR (PİVOT TABLE)


.

 

[12SubaT]

Sn. Yurttaş
Çok teşekkür ederim yardımınız için.Elinize,emeğinize sağlık...

Mevcut dosya için yazılmış olan kodu paylaşayım ben de

Sub CommandButton()
Set S1 = ThisWorkbook.Worksheets("Borç Listesi")
Set S2 = ThisWorkbook.Worksheets("Data")
's2.Cells.Delete
S2.AutoFilterMode = False
S2.Range("a5:f65536").AutoFilter field:=4, Criteria1:=S1.Range("h2").Value
S2.Range("a6:f65536").Copy S1.Range("a6")
S2.ShowAllData
S2.AutoFilterMode = False
If WorksheetFunction.CountA(Sayfa2.Range("A2:A65536")) > 2 Then
ListBox1.ColumnCount = 18
ListBox1.ColumnWidths = "30;60;0;0;0;60;0;0;0;0;60;0;0;0;0;0;0"
ListBox1.RowSource = "Sayfa2!a1:q20"
ListBox1.ForeColor = "656"
End If
End Sub

Not:Kodlar Sn. Yasinkurt06' ya aittir...