Sayfada 8000,00 YTL yi geçenleri listelemek

[arifaksamc]

Sorum ekteki dosyada, şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Örnek dosyayı incelermisiniz..

.

 

[arifaksamc]

Çok TeŞekkÜr Ederİm. Tam İstedİĞİm Gİbİ. Ellerİne SaĞlik

 

[Ömer]

Çok TeŞekkÜr Ederİm. Tam İstedİĞİm Gİbİ. Ellerİne SaĞlik

Rica ederim.

İyi çalışmalar..

 

[Necdet]

Merhaba,

Makrolu çözümde benden olsun. Belki işinize yarar.

Sub Makro1()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Dim i As Long, SonSat As Long
s2.Select
Application.ScreenUpdating = False
s2.Range("A:B").Clear
s1.Range("A:A, D:D").Copy s2.Range("A1")
SonSat = [A65536].End(3).Row
Range("A2:B" & SonSat).Sort Key1:=[A2]
For i = SonSat To 2 Step -1
    If Cells(i, "A") = Cells(i - 1, "A") Then
        Cells(i - 1, "B") = Cells(i - 1, "B") + Cells(i, "B")
        Rows(i).Delete
    ElseIf Cells(i, "B") < 8000 Then
        Rows(i).Delete
    End If
Next i
Columns("B:B").NumberFormat = "#,##0.00"
Application.ScreenUpdating = True
End Sub

 

[Ali]

Buda dizi formüllü örnek olsun.

Sarı renkli alan ile G1 hücresindeki formüller dizi formülü olup formül çubuğunda iken direk ENTER tuşuna basılmadan CTRL+SHIFT+ENTER tuşlarına birlikte basılarak girilmelidir.

Not: Excel formül başına ve sonuna { } işaretlerini otomatik olarak ekleyecektir.

Eğer 8000'de dahil olacaksa G sütunundaki

=EĞER(ETOPLA($A$2:$A$100;A2;$D$2:$D$100)>8000;A2;"")

olan kısımı >=8000 olarak değiştirrisiniz.

Örnek dosya ektedir.