Forum

Excel Makro Hakkınd...
 
Bildirimler
Hepsini Temizle

Excel Makro Hakkında

2 Yazılar
2 Üyeler
0 Reactions
795 Görüntüleme
(@fatihozcal)
Gönderiler: 1
New Member
Konu başlatıcı
 

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.

 
Gönderildi : 08/01/2018 20:10

(@bugraparlayan)
Gönderiler: 324
Üye
 

 

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.
*****************************************************************

 
Gönderildi : 11/01/2018 12:26

Paylaş: