VBA da biçimlendirilmiş ve formüllü bir tabloyu mailde iletmek

[dp.songül]

Merhaba,

3 sayfalı bir dosyam var 1. sayfada makrolarımın düğmeleri, 2. sayfada mail içerik metni, 3. sayfada formüller ve datalar mevcut.

Yazdığım makro formülleri dikkate almadan çalışıyor. Bir yerde hata yapıyorum ama bulamadım.
3. sayfadaki formülleri alarak hazırlanan tabloyu 2. sayfa A6.satıra yapıştırırken hücrelerdeki formüller bozuluyor. Yardımcı olabilir misiniz?

Sub Bingol()

Dim sh As Worksheet

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

Set sh = ThisWorkbook.Sheets("Plan")
Sayfa3.Activate
sh.Range("A20:E36").Select
Selection.Copy
    Sheets("Mail").Select
    Range("A6").Select
    ActiveSheet.Paste
    Range("A1:E36").Select
'Yukardaki Rangi yapınca hücre biçimim bozulmuyor ama A23-A36 hücrelerindeki formüller bozuluyor #BAŞV!şeklinde akıyor'

    ActiveWorkbook.EnvelopeVisible = True

With Selection.Parent.MailEnvelope.Item
   .To = "  "
   .CC = "  "
   .Subject = "Arama Planı / Bingöl"
   .Send

End With

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    ActiveWorkbook.EnvelopeVisible = False
    
MsgBox ("Bingöl'e Arama Planı Gönderildi")

End Sub

 

[dp.songül]

kırılıyorum ama kimse yardımcı olmadı yine kendim çözdüm
< aynı durumu araştıran biri olursa yardımım olsun aşağıdaki şekilde yapıştırma kodunu kullanın
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

 

[Necdet]

kırılıyorum ama kimse yardımcı olmadı yine kendim çözdüm
< aynı durumu araştıran biri olursa yardımım olsun aşağıdaki şekilde yapıştırma kodunu kullanın
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Tebrikler, uğraşarak kendinizin bulması bilginin kalıcı olması açısından daha değerlidir.
Tekrar tebrikler.