tarihe göre aylara sırala

[abdullahss]

tarihe göre verileri macro ile nasıl yerleştirebilirim konu hakkında uman arkadaşlar yardımcı olabilirmisiniz

 

[prmts]

Verileri aktaracağınız sayfanın ismini A olarak girdim değiştirip deneyin.

Sub prmts()
Dim ARA As Range, k As Integer, say As Long, ay As Byte
Sheets("A").Range("C5:N154").ClearContents

For k = 2 To 150
If Sheets("LİSTE").Cells(k, 2).Value = "" Then GoTo atti
ay = Month(Sheets("LİSTE").Cells(k, 4).Value)
Set ARA = Sheets("A").Range("B5:B154").Find(Sheets("LİSTE").Cells(k, 2).Value, , xlValues, xlWhole)
If Not ARA Is Nothing Then
Sheets("A").Cells(ARA.Row, ay + 2).Value = Sheets("LİSTE").Cells(k, 3).Value + Sheets("A").Cells(ARA.Row, ay + 2).Value
Else
say = Sheets("A").Range("b65535").End(3).Row + 1
Sheets("A").Cells(say, 2).Value = Sheets("LİSTE").Cells(k, 2).Value
Sheets("A").Cells(say, ay + 2).Value = Sheets("LİSTE").Cells(k, 3).Value
End If
atti:
Next k
End Sub

 

[abdullahss]

üstadım harika olmuş çok teşekkür ederim