Forum
Merhabalar,
A.......S sütunları arasında veriler var bu verilerden K sütunundaki 1 ise stok az 0 ise yeterli derece bu excel tablosu sayfa1 de buradan k sütunundaki değere göre 1 ise süzüp gerekli kişilere outlooktan mail atma işlemi için makro kodları nelerdir yardımcı olabilir misiniz.
Aşağıdaki kod filir verecektir.
' Aktif sayfada K3 seçilsin ve 1 'e göre filtreleyelim
ActiveSheet.Range("K3").Select
Selection.AutoFilter Field:=2, Criteria1:="1"
ActiveWorkbook.EnvelopeVisible = True
'Aşağıdaki kısımdada aktif sayfayı mail atalım
With ActiveSheet.MailEnvelope
.Introduction = "Örnek sayfa."
.Item.To = "[email protected]"
.Item.Subject = "Baslik"
.Item.Send
End With
Oracle ACE Associate - Türkiye Hayat & Emeklilik
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************