Alfabetik Sıra ve kayıt

[sosorry]

Ustalar ekteki dosya için yardım edebilirseniz sevinirim.
Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Sayfa1'in kod sayfasına kopyalayınız..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [I7]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
son = [B65536].End(3).Row + 1
If Range("B1") = "" Then
Range("B1") = Target
Else
Range("B" & son) = Target
End If
Range("B1:B" & son + 1).Sort Range("B1")
End Sub

.

 

[sosorry]

Merhaba,

Sayfa1'in kod sayfasına kopyalayınız..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [I7]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
son = [B65536].End(3).Row + 1
If Range("B1") = "" Then
Range("B1") = Target
Else
Range("B" & son) = Target
End If
Range("B1:B" & son + 1).Sort Range("B1")
End Sub

.

şahane teşekkür ederim

 

[baydeniro]

Sayın Ömer, çok teşekkürler.