Makro ile Hücredeki Tarihi Sayfa adı ve dosya adı yapmak ve mail atmak

[aktarmamd]

Üstadlar Kolay gelsin;

Ek te hazırladığım faaliyet tablosu var. Normali formülize edildiğinden sadece veilerden oluşan kısmını koydum. Yapmaya çalıştığım;

1- Bu tablodaki "FAALİYET"sayfasındaki değerleri "c3" hücresindeki tarih adıyla sona alarak yeni bir sayfaya olarak kaydetmek,
2- Normal şartlarda formüllü sayfa olacağından yeni oluşan sayfadaki verilerin üzerine sadece sayı ve terimleri içerecek şekilde özel yapıştır yapmak,
3- Daha sonra yeni oluşan sayfayı "C3 hücresindeki tarih adıyla" yeni dosya olarak masaüstüne veya belirlenen klasör içine kaydetmek,
4- Son olarak yeni oluşan dosyayı belirlediğim kişilere e-mail olarak otomatik göndermek istiyorum...

Biraz geniş bir exel dosyası olduğundan seyreltilmiş haliyle kendimce olşturduğum basit makrolu halini ek te paylaştım. Forumda bununla ilgili birkaç örneğe ulaştım fakat bunları derlemekte sıkıntı yaşadım.

Destek olanlara şimdiden teşekkürler.


Sub rpr()
'
' rpr Makro
'
'
Sheets("FAALİYET").Select
Sheets("FAALİYET").Copy After:=Sheets(2)
Range("C3:I3").Select
Selection.Copy
Sheets("FAALİYET (2)").Select
Sheets("FAALİYET (2)").Name = "15 Eylül 2019 Pazar "
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("15 Eylül 2019 Pazar ").Select
Application.CutCopyMode = False
Sheets("15 Eylül 2019 Pazar ").Copy
ChDir "C:\Users\tayanc.kara\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\tayanc.kara\Desktop\Faaliyet Raporu.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Range("A1").Select
End Sub