Sıralama

[hanedan0812]

Arkadaşlar hayırlı akşamlar.
Eklediğim dosyada Puantaj sayfası c sütununda sicile göre otomatik sıralamayı vba olarak yapamadım. Yardımlarınız için şimdiden teşekkür ederim. Forumda buldum ama içinden çıkamadım.

 

[hanedan0812]

Yokmu yardım edecek.

 

[hanedan0812]

Arkadaşlar lütfen yardım edin.

 

[Husgvarna]

Arkadaşlar hayırlı akşamlar.
Eklediğim dosyada Puantaj sayfası c sütununda sicile göre otomatik sıralamayı vba olarak yapamadım. Yardımlarınız için şimdiden teşekkür ederim. Forumda buldum ama içinden çıkamadım.

"puantaj girişi" adlı sayfanın;
kod sayfasında bulunan "Private Sub Worksheet_Change"
bölümünü aşağıdaki gibi değiştirip deneyin. "F6:AJ39" aralığına "x" girdiğinizde
çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c6:c1000]) Is Nothing Then GoTo v

Dim U As Long
For U = 2 To [c65000].End(3).Row
    
If WorksheetFunction.CountIf(Sheets("PUANTAJ GİRİŞİ ").Range("c:c"), Cells(U, "c")) > 0 Then
Cells(U, "d") = WorksheetFunction.VLookup(Cells(U, "c"), Sheets("İSİM LİSTESİ").Range("B:j"), 2, 0)
Else
End If

If WorksheetFunction.CountIf(Sheets("PUANTAJ GİRİŞİ ").Range("c:c"), Cells(U, "c")) > 0 Then
Cells(U, "e") = WorksheetFunction.VLookup(Cells(U, "c"), Sheets("İSİM LİSTESİ").Range("B:j"), 3, 0)
Else
End If
Next
v:
If Not Intersect(Target, Range("F6:AJ39")) Is Nothing Then _
 Range("C6:AJ39").Sort Key1:=Range("C6")
End Sub

 

[hanedan0812]

teşekkür ederim.
çift tıklamadan olmazmı.

 

[Husgvarna]

teşekkür ederim.
çift tıklamadan olmazmı.

Yukarıdaki kodların çift tıklamayla alakası yok;
"F6:AJ39" aralığına "X" veya başka bir şey yazıp hücreden çıktığınızda çalışır.

 

[hanedan0812]

teşekkürler