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?
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?
Kod:
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