tarih sıralama

[igultekin2000]

çalıştığım dosya da bir ilave daha yapmam gerekti. Kayıt makrosu ile ANAGİRİŞ sayfasına verileri aktarıyorum. ancak belge tarihleri karışık olabiliyor. ANAGİRİŞ sayfasına eklenen verilerin otomatik tarih sıralaması yapması istiyorum. örnek bulup değişik denemeler yaptım ama pek sağlıklı olmadı. Yalın haliyle ekledim. Teşekkürler.

Sub kayit()
    Sheets("SABLON").Select
    Range("A2:L2").Select
    Selection.Copy
    Sheets("ANAGİRİŞ").Select
    Application.Goto Reference:="R99999C1"
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("SABLON").Select
    Application.CutCopyMode = False
    Sheets("GIRIS").Select
    Range("H2:K2").Select
    Selection.ClearContents
    Range("B2").Select
End Sub

http://s3.dosya.tc/server11/kr37kd/STOK_1v_07.rar.html

[/url][/IMG]

 

[Ömer]

Merhaba,

kayıt makrosunda;

ActiveCell.Offset(1, 0).Range("A1").Select

satırından sonra aşağıdaki satırı ilave edin.

Range("A2:R" & Rows.Count).Sort Key1:=Range("C1"), Order1:=xlAscending

.

 

[igultekin2000]

sorun çözüldü

Merhaba,

kayıt makrosunda;

ActiveCell.Offset(1, 0).Range("A1").Select

satırından sonra aşağıdaki satırı ilave edin.

Range("A2:R" & Rows.Count).Sort Key1:=Range("C1"), Order1:=xlAscending

.

yardımınıza teşekkür ederim.