Bir hücrede makro çalıştıktan sonra o hücredeki değer

[bezl]

Selamlar
aşağıda gecikme zammı oranlarını gösteren bir mesaj yaptım
ama bu mesaj çıktıktan sonra o hücredeki yazılan gzo() silinmesini istiyorum
Function gzo()
Call MsgBox("Uygulama Tarihleri ve Oranlar" & vbNewLine & vbNewLine & _
"01/01/1990 - 29/12/1993 Tarihleri arasında Aylık 7%" & vbNewLine & vbNewLine & _
"30/12/1993 - 07/03/1994 Tarihleri arasında Aylık 9%" & vbNewLine & vbNewLine & _
"08/03/1994 - 30/08/1995 Tarihleri arasında Aylık 12%" & vbNewLine & vbNewLine & _
"31/08/1995 - 31/01/1996 Tarihleri arasında Aylık 10%" & vbNewLine & vbNewLine & _
"01/02/1996 - 08/07/1998 Tarihleri arasında Aylık 15%" & vbNewLine & vbNewLine & _
"09/07/1998 - 19/01/2000 Tarihleri arasında Aylık 12%" & vbNewLine & vbNewLine & _
"20/01/2000 - 01/12/2000 Tarihleri arasında Aylık 6%" & vbNewLine & vbNewLine & _
"02/12/2000 - 28/03/2001 Tarihleri arasında Aylık 5%" & vbNewLine & vbNewLine & _
"29/03/2001 - 30/01/2002 Tarihleri arasında Aylık 10%" & vbNewLine & vbNewLine & _
"31/01/2002 - 11/11/2003 Tarihleri arasında Aylık 7%" & vbNewLine & vbNewLine & _
"12/11/2003 - 01/03/2005 Tarihleri arasında Aylık 4%" & vbNewLine & vbNewLine & _
"02/03/2005 - tarihinden itibaren geçerli Aylık 3%" & vbNewLine & vbNewLine & _
"", vbInformation, "GECİKME ZAMMI ORANLARI")
gzo = ""
ActiveCell.Offset(-1, 0).Select
Selection.ClearContents
End Function

böyle yapmaya çalıştım ama olmadı.

 

[Levent Menteşoğlu]

Bu işlemi bir fonksiyon içinde yapmaya çalışmak pek mantıklı değil. Aşağıdaki gibi bir uygulama daha mantıklı olacaktır. Bu kodu sayfanın kod sayfasına kopyalayın. Herhangi bir hücreyi çift tıkladığınızda makro çalışacaktır.

[vb:1:27ea2d7adb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call MsgBox("Uygulama Tarihleri ve Oranlar" & vbNewLine & vbNewLine & _
"01/01/1990 - 29/12/1993 Tarihleri arasında Aylık 7%" & vbNewLine & vbNewLine & _
"30/12/1993 - 07/03/1994 Tarihleri arasında Aylık 9%" & vbNewLine & vbNewLine & _
"08/03/1994 - 30/08/1995 Tarihleri arasında Aylık 12%" & vbNewLine & vbNewLine & _
"31/08/1995 - 31/01/1996 Tarihleri arasında Aylık 10%" & vbNewLine & vbNewLine & _
"01/02/1996 - 08/07/1998 Tarihleri arasında Aylık 15%" & vbNewLine & vbNewLine & _
"09/07/1998 - 19/01/2000 Tarihleri arasında Aylık 12%" & vbNewLine & vbNewLine & _
"20/01/2000 - 01/12/2000 Tarihleri arasında Aylık 6%" & vbNewLine & vbNewLine & _
"02/12/2000 - 28/03/2001 Tarihleri arasında Aylık 5%" & vbNewLine & vbNewLine & _
"29/03/2001 - 30/01/2002 Tarihleri arasında Aylık 10%" & vbNewLine & vbNewLine & _
"31/01/2002 - 11/11/2003 Tarihleri arasında Aylık 7%" & vbNewLine & vbNewLine & _
"12/11/2003 - 01/03/2005 Tarihleri arasında Aylık 4%" & vbNewLine & vbNewLine & _
"02/03/2005 - tarihinden itibaren geçerli Aylık 3%" & vbNewLine & vbNewLine & _
"", vbInformation, "GECİKME ZAMMI ORANLARI")
End Sub[/vb:1:27ea2d7adb]