bir hücredeki değeri sorgulayıp listeleme??

[enderturk]

Merhaba, :hey:

Sorgu isimli sayfamda a5 hücresine girilen değeri Firma Adı sayfasında b sütünunda arayıp, eşleşen satırlardaki vergi no, vergi dairesi, fatura tarihi, fatura no, tutar gibi bilgileri alt alta listeleyen ve tutar sütununun en altına toplamını alabilecek bir makroya ihtiyacım var.
Daha açıkça sorgu sayfasında Firma mesela ayda 10 fatura göndermişse bunları alt alta listeleyip toplam almasına ihtiyacım var.

Birde Sorgu sayfasına bir açılır kutu ekledim ve girdi aralığını I sütunu olarak seçtim. Fakat açılırkutunun kaydırma çubuğunda bütün boş hücreleri de listeliyor ve liste hayli kabarıyor, buna bir çözüm var mı?

Þimdiden teşekkürler

 

[danersin]

ilk sorunuz için böyle bir kod işinizi görebilir..

[vb:1:9b69270f28]
Sub Makro1()
aranan = Sheets("Sorgu").Cells(5, 1)
sonsat = Sheets("Firma Adı").Cells(65536, 2).End(xlUp).Row
a = 10
toplam = 0
For i = 1 To sonsat
If Sheets("Firma Adı").Cells(i, 2) = aranan Then
Sheets("Sorgu").Cells(a, 1) = Sheets("Firma Adı").Cells(i, 1)
Sheets("Sorgu").Cells(a, 2) = Sheets("Firma Adı").Cells(i, 2)
Sheets("Sorgu").Cells(a, 3) = Sheets("Firma Adı").Cells(i, 3)
Sheets("Sorgu").Cells(a, 4) = Sheets("Firma Adı").Cells(i, 4)
Sheets("Sorgu").Cells(a, 5) = Sheets("Firma Adı").Cells(i, 5)
Sheets("Sorgu").Cells(a, 6) = Sheets("Firma Adı").Cells(i, 6)
toplam = toplam + Sheets("Firma Adı").Cells(i, 6)
a = a + 1
End If
Next i
Sheets("Sorgu").Cells(a + 1, 2) = toplam
End Sub
[/vb:1:9b69270f28]

2. sorunuzun için
http://www.excel.web.tr/viewtopic.php?t=5668
burada özellikle en sondaki
DİNAMİK ALAN ADLARI nı okursanız işinize yarayabilir.

 

[enderturk]

sn. danersin
yardımlarınız için çok teşekkürler