- Katılım
- 14 Haziran 2009
- Mesajlar
- 1
- Excel Vers. ve Dili
- Excel 2003 TR
Arkadaşlar sorunumu excel dosyası içine yazdım , yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
autofilter ve sıralama yaparak verileri kopyalama
- Konbuyu başlatan hakanertas
- Başlangıç tarihi
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Dosyanız ektedir.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Range("A2").AutoFilter
Range("J3:M65536").ClearContents
If Target.Value = "" Then Exit Sub
Application.ScreenUpdating = False
Range("A2").AutoFilter field:=1, Criteria1:=Range("A1").Value
Range("A2").CurrentRegion.Copy
Range("J1").PasteSpecial (xlPasteValues)
Range("A2").AutoFilter field:=1
Range("J3:M65536").Sort Range("K3"), xlDescending
Application.ScreenUpdating = True
End Sub