tarihe göre sıralama

[tar23]

Hazırlamam gereken bir tablo var bu konuda yardımlarınızı bekliyorum


a sütünunda tarih var ve b sutununda işlem sıraları mevcut c sutununda ise tutarlar var istedğimi şey a sütunundaki aynı tarihler içerisinden işlem sırası enbüyük olanın tutarını almak istiyorum

 

[Erdal]

Merhabalar
Örneği inceleyiniz.
http://www.dosya.tc/server35/GLzoe2/tar23.xls.html

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Gri doldulu alanlarda DİZİ formül vardır.

İNDİR - Kitap1_01.rar

. . .

 

[tar23]

Sayın Çoban;
tablonuz çok güzel olmuş fakat satır sayılarını ayarlayamadım sizden ricam tabloyu 8000 satır olacak şekilde düzenlermisiniz veya ana anlatırsanız sevinirim
ilginize çok teşekkürler

 

[Emir Hüseyin Çoban]

Sayın Çoban;
tablonuz çok güzel olmuş fakat satır sayılarını ayarlayamadım sizden ricam tabloyu 8000 satır olacak şekilde düzenlermisiniz veya ana anlatırsanız sevinirim
ilginize çok teşekkürler

. . .

Dosyanız ektedir.

Gri dolgulu alanı ihtiyacınıza göre aşağıya doğru çoğaltın.

İNDİR - Kitap1_02.rar

. . .

 

[tar23]

Sayın Çoban
Dosyayı ekledim fakat donuyor başka yolu varmı acaba

 

[Emir Hüseyin Çoban]

. . .

Olmayan nedir ?
Formüller dizi formüldür, ona dikkat edin.

Kendi tablonuzun örneğini yüklerseniz, üzerinde çalışırız.

. . .

 

[tar23]

dosya ekliyemiyorum formülde hata yok yalnız satır sayısı fazla olduğundan excel donuyor
makro ile çözüm olabilirmi acaba

 

[Emir Hüseyin Çoban]

dosya ekliyemiyorum formülde hata yok yalnız satır sayısı fazla olduğundan excel donuyor
makro ile çözüm olabilirmi acaba

. . .

Sub kod()
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    
    Range("D:F").ClearContents
    sat = 2
    son = Cells(Rows.Count, "A").End(3).Row
    
    For i = 2 To son
        If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A")) = 1 Then
            Cells(sat, "D") = Cells(i, "A")
            Cells(sat, "E") = Evaluate("=max(if(A2:A" & son & "=D" & sat & ",B2:B" & son & "))")
            
            Set ara = Range("B2:B" & son).Find(Cells(sat, "E"), , xlValues, xlWhole)
            If Not ara Is Nothing Then
                adres = ara.Address
                
                Do
                    If Cells(ara.Row, "A") = Cells(sat, "D") Then
                        Cells(sat, "F") = Cells(ara.Row, "C")
                        Exit Do
                    End If
                    Set ara = Range("B2:B" & son).FindNext(ara)
                    Loop While Not ara Is Nothing And ara.Address <> adres
                End If
                sat = sat + 1
            End If
        Next i
        
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
        MsgBox " B i t t i "
End Sub

. . .

 

[tar23]

Sayın Çoban;
Çok teşekkür ederim. Kod harika olmuş
Emeğinize sağlık