alacak listesini bir butonla istemek.

[ahmetozbey]

Her aya 1 sayfa olmak üzere 1 yıla ait 12 sayfadan oluşan müşteri ismi yapılan işler, birim fiyat, tutar, alınan ve kalan gibi ifadelerle oluşturduğum bölümler var.
İstediğim şu:
Yeni bir sayfada bir buton kullanarak tüm aylara ait alacakların listesini istiyorum(alacak miktarı,müşteri ismi,adresi vb)gibi.Biraz daha açayım. 12 sayfanın H3-H183 hücrelerinde alacak miktarı otomatik hesaplanmış olarak var. Bu hücrelerdeki alacak kısmında 0(sıfır) dan büyük olan rakamları tespit edip, A3,B3,C3,D3,.. müşteri ismi,adresi alacak tutarı vb bilgilerini karşıma getirmesini istiyorum.

Þimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Bir örnek dosya eklerseniz onun üzerinden gidelim.

 

[ahmetozbey]

Aşağıda leventm'in vermiş olduğu VB kodunu kullanmaktayım.
Bu kod la 12 sayfadaki a4-a44 hücrelerine girilen müşteri isimlerinden combox nesnesi ile arama yapıp o müşteriye ait yapılan işleri combox nesnesinin bulunduğu sayfaya sıralıyor idi.

İstediğim şu:
başka combox nesnesi ile yeni sayfada 12 sayfadaki j4-j44 arasındaki hücreleri kontrol edecek,kontrol ettiği hücrelerde 0(sıfır) dan büyük rakam gördüğü zaman o müşteriya ait bilgileri ekrana getirecek.


Private Sub ComboBox1_Click()
Range("B19:K80").ClearContents
C = 0
For s = 1 To Worksheets.Count - 1
a = Sheets("" & s).Cells(184, 1).End(xlUp).Row
For ara = 1 To a
b = Sheets("" & s).Cells(ara, 1).Value
If b = ComboBox1.Value Then
C = C + 1
For sut = 1 To 12
Cells(C + 18, sut + 1) = Sheets("" & s).Cells(ara, sut).Value
Next sut
End If
Next ara
Next s
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:bb04acd00d]Private Sub ComboBox1_Click()
Range("B19:K80").ClearContents
C = 0
For s = 1 To Worksheets.Count - 1
a = Sheets("" & s).Cells(184, 1).End(xlUp).Row
For ara = 1 To a
If Sheets("" & s).Cells(ara, 8).Value<>0 then
b = Sheets("" & s).Cells(ara, 1).Value
If b = ComboBox1.Value Then
C = C + 1
For sut = 1 To 12
Cells(C + 18, sut + 1) = Sheets("" & s).Cells(ara, sut).Value
Next sut
End If
End If
Next ara
Next s
End Sub [/vb:1:bb04acd00d]

 

[ahmetozbey]

sayın leventm;
en çok yardımı senden görüyoruz ve teşekkür ediyoruz.

vermiş olduğun VB kodu ile istediğimi alamadım.
yeni düzenlenmiş örneği ekde gönderdim. tekrar bakabilirsen sevinirim.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[ahmetozbey]

SÜPERSİN LEVETM
teşekkür ederim işimi gördü.