Otomatİk Siraya Koyma

[batugul35]

Arkadaşlar merhaba

örnekdeki gibi tarihleri her girdiğimde girilmiş olanlara göre alt satıra geçince sıraya otomatik olarak nasıl sıraya sokabiliriz.

 

[Necdet]

Merhaba,

Başka yollar olabilir, yapılacak işi tam olarak anlamadığım için A sütunu seçildiğinde ve değer de boş ise sıralama yapar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A2:A65000]) Is Nothing Then Exit Sub
If Target.Value <> "" Then Exit Sub
Range("A2:C" & [A65536].End(3).Row).Sort Key1:=[A1]
Son:
End Sub

 

[batugul35]

çok teşekkür ederim. tam istediğimde buydu.

kolay gelsin