Sorgu ile başka sayfadan süzülmüş veri çekmek için nasıl bi yol izlemeliyim?

[netzone]

Merhaba, ekteki örnekte de belirttiğim gibi bir sorunuma çözüm aramaktayım.

Dosyayı inceleyebileceğiniz gibi sorunumu dile getirmek isterim.

1'i dört sütun ve çok sayıda satırdan oluşan veri sayfası; diğeri ise B1 ve B2 ( karşılık gelen veri sayfasının A ve B Sütunları) sününuna yapılacak olan girdi doğrultusunda A9 .. başlangıç noktası olarak Sıralanmış verilerin Listeleneceğı bir alandan oluşan çıktı sayfasından oluşmaktadır.

B1,B2 sütunlarından 1 yada 2 si ne girilen veri doğrultusunda verinin Önce B sonra C Sütununa göre azalan biçimde filtrelenip satır satır listelenmesi ve ara toplam alınması için nasıl bir yol izlemeliyim?

Çözüm belirtirken Veri girdisinin sürekli artabileceğini ve buna uygun bir yol, yordam göstermenizi talep ediyorum.

-Office 2003 Türkçe Kullanıcısıyım-

Yardımlarınız için şimdiden teşekkür ederim.

 

[asi_kral]

Merhaba
Getir Sayfasına bir kaç tane veri yazabilir misiniz_?
Ayrıca nasıl geldiğini ve ne şekilde nereden geldiğini anlatırsanız yardımcı olabilirim.

 

[netzone]

@asi_kral_1967, Merhaba.

Ekte 2 sorgu çıktısı ile tek kaynak eklemiş bulunmaktayım. Umarım sorunumu dile getirmek için açıklayıcı olmuştur. (çekilen değerler kırmızı ile gösterilmiştir.)

Şimdiden teşekkürler.

 

[asi_kral]

@asi_kral_1967, Merhaba.

Ekte 2 sorgu çıktısı ile tek kaynak eklemiş bulunmaktayım. Umarım sorunumu dile getirmek için açıklayıcı olmuştur. (çekilen değerler kırmızı ile gösterilmiştir.)

Şimdiden teşekkürler.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub verileri_süzdürerek_getir_1967()
'Konu       :   Ad'a ve Firmaya Göre Süz Verileri Getir
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim s1 As Worksheet, s2 As Worksheet
Dim a As Long, b As Long, c As String
Set s1 = Sheets("getir"): Set s2 = Sheets("veri")
s1.Range("A9:D" & Rows.Count).ClearContents
c = ActiveCell.Address
If s1.Range("C2") <> Empty And s1.Range("C3") <> Empty Then
a = s2.Range("A" & Rows.Count).End(xlUp).Row
s2.Range("A1:D" & a).AutoFilter field:=1, Criteria1:=s1.Range("C2")
s2.Range("A1:D" & a).AutoFilter field:=2, Criteria1:=s1.Range("C3")
If WorksheetFunction.Subtotal(3, s2.Range("A2:A" & a)) > 0 Then
s2.Range("A2:D" & a).Copy
s1.Range("A9").PasteSpecial (xlPasteValues)
b = s1.Range("A" & Rows.Count).End(xlUp).Row
s1.Range("D" & b + 2) = WorksheetFunction.Sum(s1.Range("D9:D" & b))
s1.Range("A9:D" & b).Sort key1:=Range("D9"), order1:=xlAscending
End If
s2.Range("A1:D" & a).AutoFilter
ElseIf s1.Range("C2") <> Empty And s1.Range("C3") = Empty Then
a = s2.Range("A" & Rows.Count).End(xlUp).Row
s2.Range("A1:D" & a).AutoFilter field:=1, Criteria1:=s1.Range("C2")
If WorksheetFunction.Subtotal(3, s2.Range("A2:A" & a)) > 0 Then
s2.Range("A2:D" & a).Copy
s1.Range("A9").PasteSpecial (xlPasteValues)
b = s1.Range("A" & Rows.Count).End(xlUp).Row
s1.Range("D" & b + 2) = WorksheetFunction.Sum(s1.Range("D9:D" & b))
s1.Range("A9:D" & b).Sort key1:=Range("D9"), order1:=xlAscending
End If
s2.Range("A1:D" & a).AutoFilter
ElseIf s1.Range("C2") = Empty And s1.Range("C3") <> Empty Then
a = s2.Range("A" & Rows.Count).End(xlUp).Row
s2.Range("A1:D" & a).AutoFilter field:=2, Criteria1:=s1.Range("C3")
If WorksheetFunction.Subtotal(3, s2.Range("A2:A" & a)) > 0 Then
s2.Range("A2:D" & a).Copy
s1.Range("A9").PasteSpecial (xlPasteValues)
b = s1.Range("A" & Rows.Count).End(xlUp).Row
s1.Range("D" & b + 2) = WorksheetFunction.Sum(s1.Range("D9:D" & b))
s1.Range("A9:D" & b).Sort key1:=Range("D9"), order1:=xlAscending
End If
s2.Range("A1:D" & a).AutoFilter
End If
Range(c).Select
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[netzone]

Merhaba, ilgi ve alakanızdan ötürü teşekkürü borç bilirim.

Belirtmiş olduğunuz kodları aşağıdaki adımları takip ederek uyguladım. Getir sayfasında bir değişiklik olmadı, yaptığım adımlarda bir yanlışlık olmadığını düşünüyorum. Dönüşünüzü bekliyorum.

Adım Adım Uygulama:

1- Belirttiğiniz kodları kopyaladım
2- Örnek Çalışmam üzerinde VB düzenleyiciyi açtım
3- Ekle (Insert) -> Modül (Modül) yolunu izleyerek boş bir modül açtım (Module1)
4- Bu alana (General) Kopyaladığım kodları yapıştırdım.
5- Oluşan makroya kısayol atadım (CTRL+Q)
6- Sorgu alanıma veri girişi yapıp Kısayol ile makroyu başlattım.

Sonuç: "İşlem Tamamlandı" Mesaj kutusu geliyor, veriler gelmiyor.

 

[asi_kral]

Merhaba, ilgi ve alakanızdan ötürü teşekkürü borç bilirim.

Belirtmiş olduğunuz kodları aşağıdaki adımları takip ederek uyguladım. Getir sayfasında bir değişiklik olmadı, yaptığım adımlarda bir yanlışlık olmadığını düşünüyorum. Dönüşünüzü bekliyorum.

Adım Adım Uygulama:

1- Belirttiğiniz kodları kopyaladım
2- Örnek Çalışmam üzerinde VB düzenleyiciyi açtım
3- Ekle (Insert) -> Modül (Modül) yolunu izleyerek boş bir modül açtım (Module1)
4- Bu alana (General) Kopyaladığım kodları yapıştırdım.
5- Oluşan makroya kısayol atadım (CTRL+Q)
6- Sorgu alanıma veri girişi yapıp Kısayol ile makroyu başlattım.

Sonuç: "İşlem Tamamlandı" Mesaj kutusu geliyor, veriler gelmiyor.

Yazdığınız kriterler diğer sayfada var mı_?
Varsa lütfen hata aldığını şekilde dosyayı ekleyin bakayım.

 

[netzone]

Merhaba, kiterlere uygun veriler mevcut. Söz konusu örneklememden kaynaklı olsa gerek Sorgu için B2, B3 yerine kodlamanızda C2, C3 olarak ayarlanmış. B2, B3'e göre ayarladım şuan sorunsuz olarak verileri çekmekteyim.

Çekilen liste artan yada azalan biçimde listelenmiş gelmesi için ne yapmam gerekir?

Teşekkürler

 

[asi_kral]

Merhaba, kiterlere uygun veriler mevcut. Söz konusu örneklememden kaynaklı olsa gerek Sorgu için B2, B3 yerine kodlamanızda C2, C3 olarak ayarlanmış. B2, B3'e göre ayarladım şuan sorunsuz olarak verileri çekmekteyim.

Çekilen liste artan yada azalan biçimde listelenmiş gelmesi için ne yapmam gerekir?

Teşekkürler

Anlayamadım.
Gelen Liste nasıl olacak
1000
2000
3000
Şeklinde mi_?
3000
2000
1000
Şeklinde mi_?

 

[netzone]

Gönderiğim örneklerde görüldüğü (Z-A) gibi olması benim için makuldür.


(ÖR) Firma -> X Sorgusu için;
<1> | Ozan | X | 05.02.2012 | 40 |
<2> | Ayşe | X | 01.01.2012 | 100 |
..

Yukarıda da belirttiğim gibi azalan biçimde yapabilirsem daha çok memnun olacağım.

 

[asi_kral]

Gönderiğim örneklerde görüldüğü (Z-A) gibi olması benim için makuldür.


(ÖR) Firma -> X Sorgusu için;
<1> | Ozan | X | 05.02.2012 | 40 |
<2> | Ayşe | X | 01.01.2012 | 100 |
..

Yukarıda da belirttiğim gibi azalan biçimde yapabilirsem daha çok memnun olacağım.

Üstteki kodu ve dosyayı güncelledim.

 

[netzone]

Yardımlarınız için çok teşekkür ederim.
Saygılarımla.

 

[tahsinanarat]

ekli dosyayı inceleyiniz

alttoplam aldırma ve alttoplam kaldırma, ayrıca Büyükten küçüğe doğru sıralama yaptırdığım ekli dosyayı inceleyiniz.

 

[netzone]

tahsinanarat, asi_kral_1967 arkdaşımızın çözümü sorunumu gidermek için yeterlidir.

İlgi ve alakanızdan ötürü teşekkür ederim.

 

[asi_kral]

Yardımlarınız için çok teşekkür ederim.
Saygılarımla.

Kolay Gelsin.