• DİKKAT

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

Çalısan Kodu Şarta Bağlayarak Değiştirebilirmiyiz...

  • Konbuyu başlatan Konbuyu başlatan manly
  • Başlangıç tarihi Başlangıç tarihi
Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
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...
 

Ekli dosyalar

Sorunu bu kodu

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
 
Alternatif Olsun :

İlgili Hüreleri seçip
Hücre biçimlendir
özel Kutunun içine * işareti yazıp Tamam
Dersen aynı sonucu almış olursun.
 
Ben bunu makro olarak yapmak istiyordum.. Bu kod işimi gayet güzel gördü...Tavsiyeniz için teşekkürler...
 
Geri
Üst