Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Çalısan Kodu Şarta Bağlayarak Değiştirebilirmiyiz...
Ekte gönderdiğim dosyada açılan Userformda "30 Gün Sonra İkaz" butonuna bastığımızda çalışan kodun "W" sütununda sadece * olanlara uygulatabilirmiyiz...
With S2.Range("A1:Z1")
.AutoFilter Field:=9, Criteria1:="<=" & CLng(TARİH)
.AutoFilter Field:=11, Criteria1:="="
End With
Bu şekilde değiştirerek hallettim...
With S2.Range("A1:Z1")
.AutoFilter Field:=9, Criteria1:="<=" & CLng(TARİH)
.AutoFilter Field:=11, Criteria1:="="
.AutoFilter Field:=26, Criteria1:="~*"
End With
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.