• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

makro kullanarak gelişmiş filtre uygulama

K

karakaçan

Katılım
1 Şubat 2011
Mesajlar
134
Excel Vers. ve Dili
excel 2007
Arkadaşlar kolay gelsin hepinize

Ekte snumuş olduğum dosyada özetbeyan onay saatleri isimli bir sayfa var.Bir de istatistik servisi isimli bir sayfa. Ben makro yazmasını bilmediğim için exceldeki yerleşik işlevleri kullanarak makro oluşturmaya çalışıyorum
Yapmak istediğim şey belirttiğim tarih aralığında ve belirttiğim saatten sonra yapılan işlemlerden benim istediğim belge türünü gelişmiş filtre kullanarak süzüp istatistik servisi sayfasına çıkarmak. Tabi tarih aralığı ve belge türü değişken olacak.

Ben gelişmiş filtre kullanarak manuel şekilde bu işi yapabiliyorum. Fakat makro ile yaptığımda hiç bir veri gelmiyor. Acaba makro kaydet i kullanarak oluşturduğum makronun neresi hatalı ? Yardımcı olacak arkadaş var mı ?

yalnız makrolu dosyayı ekleyemedim

Başka şekilde oluşturulacak çözümler de kabul edilir.
Ne verirseniz elinizle o gider sizinle ..........)

kod
Sub mesailiişlem()
'
' mesailiişlem Makro
'

'
Range("A11:F2000").Select
Selection.ClearContents
Range("A11").Select
Sheets("ÖZT BEY ONAY SAATLERİ").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
Columns("Y:BZ").Select
Selection.ClearContents
Range("AA1").Select
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B16").Select
Range("A6:F9999").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("'ÖZT BEY ONAY SAATLERİ'!Criteria"), CopyToRange:=Range("AA1"), Unique:= _
False
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A7").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
Range("AA1:AF2000").Select
Selection.Copy
Sheets("İSTATİSTİK SERVİSİ").Select
Range("A11").Select
ActiveSheet.Paste
Range("A12").Select
Sheets("ÖZT BEY ONAY SAATLERİ").Select
Application.CutCopyMode = False
Range("AA1").Select
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A7").Select
Sheets("İSTATİSTİK SERVİSİ").Select
Range("A13").Select
End Sub
 

Ekli dosyalar

Bu linki, size fikir versin diye ekledim. Bu yüzden kendi dosyanıza uygulamalısınız. Ayrıca ufak tiyolarda mevcut. Sorunuza gelince, kod, sayfa içindeki bir düğmeye bağlı.
 
makro ile filtreleme

Merhaba,

Öncelikle cevap vericeklere şimdiden teşekkürler.

İnputboxa girdiğim değerleri filtrelemesini istediğim bir makro yazmaya calısıyorum.

Yardımınızı rica ederim. Birden cok değeri aynı anda fitrelemeli
 
excel hata veriyor

arkadaşlar gönderdiğim dosyada liswiev 1 e kayıt yaparken hata veriyo ve 2. kaydı göstermiyo ayrıyeten liswiev 2 dede kayıt yapıyo fakat silmek istediğimde silemiyorum excel gene hata veriyo çok uğraştım fakat beceremedim beni çıldırttı yardımcı olursanız sevinirim şimdiden teşekkür ederim.
 

Ekli dosyalar

cdurak' Alıntı:
Merhaba,

Öncelikle cevap vericeklere şimdiden teşekkürler.

İnputboxa girdiğim değerleri filtrelemesini istediğim bir makro yazmaya calısıyorum.

Yardımınızı rica ederim. Birden cok değeri aynı anda fitrelemeli
Genişletmek için tıkla ...

Eki inceleyin.
 

Ekli dosyalar

Fılter

Hamitcan Bey,

Gönderdiğiniz dosyaya baktım yanlız kodlarıda gönderebilirmisiniz.

Teşekkürler..
 
Kod: 
Private Sub CommandButton1_Click()
a = InputBox("A sütunu için bir değer girin")
Range("A1").AutoFilter _
    field:=1, _
    Criteria1:=a, _
    VisibleDropDown:=False
End Sub
 
Hamitcan Bey,

Bu kod ile sadece bir değeri filtreleyebiliyorum ben sırayla yazdıgım bırden fazla degeri filtrelemek istıyrum.Yardımınızı rica ederim.
 
Kod: 
Private Sub CommandButton1_Click()
Sayfa1.Range("a6:g100").AdvancedFilter _
    Action:=xlFilterInPlace, _
    CriteriaRange:=Sayfa1.Range("a1:g2"), _
    unique:=False
End Sub


Private Sub CommandButton2_Click()
ActiveSheet.ShowAllData
End Sub
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst