- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Ekli dosyada "Mail Format" sayfasında yazılı mesaj ile "Pivot" sayfasında yer alan pivot tablo' yu mail gövdesinde göndermek isterken;
mesaj üstte, pivot tablo onun altına gelecek şekilde düzenlemeye çalışıyordum, yalnız mail gövdesine tam tersi geliyor.
Aşağıdaki kodda mesaj metnini pivot tablo' nun üzerine gelecek şekilde nasıl düzenleyebiliriz?
desteğiniz için şimdiden teşekkürler,
iyi akşamlar.
Ekli dosyada "Mail Format" sayfasında yazılı mesaj ile "Pivot" sayfasında yer alan pivot tablo' yu mail gövdesinde göndermek isterken;
mesaj üstte, pivot tablo onun altına gelecek şekilde düzenlemeye çalışıyordum, yalnız mail gövdesine tam tersi geliyor.
Aşağıdaki kodda mesaj metnini pivot tablo' nun üzerine gelecek şekilde nasıl düzenleyebiliriz?
desteğiniz için şimdiden teşekkürler,
iyi akşamlar.
Kod:
Set rng = ws3.Range("B1:B5")
Set rng2 = ws2.Range("B9").CurrentRegion
With olEmail
.BodyFormat = olFormatHTML
.To = "xxxxxxxxxx@gmail.com"
.CC = "xxxxxxxxxx@yahoo.com"
.Subject = wNum & ". weekly report"
.Display
Set XL_Inspector = .GetInspector
Set Word_Document = XL_Inspector.WordEditor
Word_Document.Range.InsertBefore Mesaj
Word_Document.Range.InsertBefore vbNewLine & vbNewLine
rng.Copy
Word_Document.Range(Len(Mesaj), Len(Mesaj)).Paste
Excel.Application.CutCopyMode = False
Word_Document.Range.InsertAfter vbNewLine & vbNewLine
rng2.Copy
Word_Document.Range(Len(Mesaj), Len(Mesaj)).Paste
End With
Ekli dosyalar
-
99.8 KB Görüntüleme: 4