50 Kg dan küçük verileri raporlama

[ramsh]

Arkadaşlar ekte yapmış olduğum tabloda iplik renkleri ve karşılarında kg stok miktarları yazılmıstır. sayfa 2 de bu verilerden 50 kg altında olanları isimleri ve kg miktarları olarak raporlamak istiyorum. yardımlarınızı bekliyorum.

 

[uzmanamele]

merhaba
ekte filtreleme ile çözüm işinizi görür mü

 

[Ömer]

Merhaba,

Örnek dosyayı incelermisiniz..

 

[Orion1]

Dosyanız ekte.

 

[Ali]

Örnek dosyanız ektedir.

 

[Ayhan Ercan]

bir örnek dosyada benden , kod yazarak...

Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s1.Range("g65536").End(xlUp).Row
son2 = 2
For i = 2 To son
    If s1.Cells(i, "G") <= 50 Then
    s2.Cells(son2, 1) = s1.Cells(i, "G")
    s2.Cells(son2, 2) = s1.Cells(i, "a")
    son2 = son2 + 1
    End If
Next

 

[ramsh]

sayın uzmanamele filtrelenen rakamları sayfa 2 de goruntuleyebilirmiyiz?

 

[ramsh]

yardımlarınız için cok tesekkurler. iyi çalışmalar

 

[uzmanamele]

merhaba
syn ramsh 5 farklı ve birbirinden güzel çözüm yolları verilmiş. herhangi birini kullanabilirsiniz. en basit ve formül içermeyen süzme yöntemini kullanmak isterseniz; istediğiniz kritere göre süzdükten sonra, sol üst köşeyi tıklayın (tüm sayfa seçili hale gelecektir) sağ tıklayarak kopyalayın, başka sayfayı seçin sol üst köşeyi tıklayıp yapıştırın. bu şekilde sadece süzülen verileri kopyalamış olursunuz.