Excel Etkin Sayfa Aralıgını Farklı Kaydetme

[mukoli]

Merhabalar makro olan dosyamda etkin çalışma sayfalarında mail göndermek istiyorum. A:A sütunu ile P:AC arasını mail atmak istiyorum excel şeklinde . Yada eğer olursada etkin çalışma sayfasının A:A VE P:AC ARASINI FARKLI KAYDETMEK formülsüz şekilde sadece değerleri olucak şekilde teşekkürler şimdiden

 

[mukoli]

Merhaba yardımcı olan olursa sevinirim. Sitede var evet bir sürü ama hepsi bütün sayfayı kaydediyor ya mail atıyor çözemedim.

 

[GursoyC]

Aşağıdaki kod x isimli sayfadaki "B1:H169" bölgesini mail atar. Kendinize uyarlayabilirsiniz.

                Sheets("x isimli sayfa").Select
                Range("B1:H169").Select
                ActiveWorkbook.EnvelopeVisible = True
                        With ActiveSheet.MailEnvelope
                        .Introduction = "İlgili tablo ektedir, bilgilerize."
                        .Item.To = "z@gmail.com"
                        .Item.Cc = "t@gmail.com"
                        .Item.Subject = "konuyu buraya yazın"
                        .Item.Send
                        End With

 

[mukoli]

Teşekkür ederim denemeye çalışıcam iyi akşamlar

 

[mukoli]

Aşağıdaki kod x isimli sayfadaki "B1:H169" bölgesini mail atar. Kendinize uyarlayabilirsiniz.

                Sheets("x isimli sayfa").Select
                Range("B1:H169").Select
                ActiveWorkbook.EnvelopeVisible = True
                        With ActiveSheet.MailEnvelope
                        .Introduction = "İlgili tablo ektedir, bilgilerize."
                        .Item.To = "z@gmail.com"
                        .Item.Cc = "t@gmail.com"
                        .Item.Subject = "konuyu buraya yazın"
                        .Item.Send
                        End With

Merhaba bu kod görüntüyü ekliyor ben istediğim aralıktaki sayfayı ek olarak eklemek istiyorum