Formülün çıktı alındıktan sonra onaylı Metne dönüşmesi

[sirkülasyon]

Sayfanın A27 hücresinde aşağıda belirtilen formül yer almakta

=BİRLEŞTİR(" Formun Tanzim Edildiği Tarih : ";METNEÇEVİR(BUGÜN();"gg aaaa yyyy"))

Sayfada çıktı alındıktan onaylı Evet / Hayır şeklinde Evet tercih edilirse formülü metne çevirecek.

Böyle bir kod için yardımcı olabilir misiniz?

Teşekkür Ederim

 

[YUSUF44]

Aşağıdaki kodlar ile sayfayı yazdırdıktan sonra metne dönüştürmeyi sorar, Evet derseniz metne dönüştürür:

Sub yazdır()
ActiveSheet.PrintOut
soru = MsgBox("Metne dönüştürülsün mü?", vbYesNo)
If soru = vbYes Then
[A27] = [A27].Value
End If
End Sub

 

[sirkülasyon]

Sayın Yusuf44
Yardımınız için teşekkür ederim