Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.
Aslında bu 2 satırın sıralaması gerek; üstteki filtreyi boşaltır alttaki sıralar . Sıralamıyor mu?If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
ActiveSheet.Range("A7: D106").Sort Key1:=Range("B7"), Order1:=xlAscending
ilginiz için çok teşekürlerAslında bu 2 satırın sıralaması gerek; üstteki filtreyi boşaltır alttaki sıralar . Sıralamıyor mu?
Workbook close olayına ekleyerek yapabilirsiniz.
ActiveSheet yerine ilgili sayfanın adı yazılmalı.
HTML: