Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   Şartı Kaydeme makrosu (http://www.excel.web.tr/showthread.php?t=167926)

hgenc545 11-11-2017 00:35

Slm,

Sorunu buldum,

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 1 Then
ActiveWorkbook.Save
Application.Quit
Else
MsgBox "Lütfen Tüm Vardiya Girişlerini yapınız", vbInformation, "UYARI"
End If
End Sub

Bu makrodaki MsgBox Uyarısının çıkmasına gerek yok. Eğer A1=1 ise Kapatılabilsin yeter... Uyarı çıkmasın. ikinci makroda sorun yok o istediğim gibi...

hgenc545 11-11-2017 00:40

Yaptım üstdım, deneme yanılmayla yaptım sonunda.. Biraz okuyabiliyorum makroyu..

Doğru makro bu :)

çok teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 1 Then
ActiveWorkbook.Save
End If
End Sub

ASLAN7410 11-11-2017 01:03

Merhaba.

Sayfanın kapatılması için Application.Quit bu koduda kullanın.

hgenc545 12-11-2017 01:25

Teşekkürler...


Saat 15:17

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.