excell vba kullanarak belirli ("A3:J13") hücreleri tek buttonla e-posta olarak gönder

[ozensar]

excell vba kullanarak belirli ("A3:J13") hücreleri tek buttonla e-posta olarak gönder

excell de hazırlamış olduğum fiyat listelerini farklı kişilere belirli listeleri tek butona bağlayarak email atmak istiyorum

mesela: A company sayfasında ve ana listede bulunan A company butonuna tıklandığında
çalışma kitabı fiyat listesi
Çalışma sayfası A company'de bulunan veriler

B1 hürresindeki adreslere (kime)
A2 hücresi (konu)
A3:J13 hücreleri aralığı email (mesaj)

email olarak onaylı gönder veya onaysız gönderimi otomatik olarak nasıl yapabiliriz?

 

[Emir Hüseyin Çoban]

. . .

Sorunuz makrolar ile çözülebilir. Ancak makrolu çözüm için,
daha önce hiç makro kullandınız mı ?
Makro kullanım seviyeniz nedir ?

. . .

. . .

 

[ozensar]

macro ve VBA bilgim yok denecek kadar az
ama bu işlemin yapılması için
Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:B5").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "E-Mail_Address_Here"
.Item.Subject = "My subject"
.Item.Send
End With
End Sub

kodu calıştırdım ama bu ilşemin tamamını butona iliştiremedim

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir. A company butonunu tıklayınız.
Outlook açık almalı.

. . .

 

[ozensar]

Hüseyin Bey,
Harikasınız çok teşekkür ederim süper olmuş,
ama bir sorum olacak çalışma kitabındaki sütun yükekliklerini koruyup giden maildede aynı formatta durması mümkünmü ve mail başında Dear dan önce bir satır boşluk var gidermemiz mümkünmü?

yapabilirseniz sevinirim yapamzsanızda canınız sağolsun böylede süper olmuş

 

[Emir Hüseyin Çoban]

. . .

Kodlar çeviridir. Bir kaç değişiklik ile denemeler yaptım ancak istedikleriniz olmadı.
Orjinalleri için Tıkla ~ Dış Bağlantı (Rondebruin.Nl)

. . .