Private Sub Workbook_BeforeClose(Cancel As Boolean) yontemini nasil calisir

[sero52]

Private Sub Workbook_BeforeClose(Cancel As Boolean) Bu procedurenin nasil calistigi hakkinda biraz aydinlatilmaya ihtiyacim var.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim counter, w, x As Integer
Sheets(1).Select
[U7] = [U7] + 1
x = [U7]
ActiveSheet.Range("s" & x).Value = Now
ActiveWorkbook.Save
end sub

yazdigimda [U7]'deki deger kitabi her kapattigimda o tarihi S sutununa kaydetmeye calistim ama basaramadim.

 

[Mahmut Kök]

kodu

thisworkbook

sayfasına yazarak deneyin..

 

[sero52]

Yeni farkina vardigim kadariyla esas problem su? Ben exel sayfasini Haricibir programdan aciyorum ve calismiyor. Fakat Makronun oldugu sayfayi excelden acinca program calisiyor.