- Katılım
- 14 Ağustos 2009
- Mesajlar
- 8
- Excel Vers. ve Dili
- 2003 türkce
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
Range("B2:G" & [B65536].End(3).Row).Sort Key1:=[B2]
Son:
End Sub