Buton ekleme

[engkpc]

Excel de Buton ekledim. Bu butona exceli kaydetmeden kapatma kodu gerekli. Yardım ederseniz memnun olurum.

 

[Orion1]

Buyurun.

ThisWorkbook.Close False

 

[engkpc]

Buyurun.

ThisWorkbook.Close False

Kod alanı boş

 

[engkpc]

Pardon Şimdi göründü

Yazım böylemidir bu çalışmadı yada benim istediğim değil ben butona bastığımda excelde değişiklik yaptığımda kaydetmeden exceli kapatmasını istiyorum

Sub Kaydetmedencık()
'
' Kaydetmedencık Makro
'
ThisWorkbook.Close False
'
End Sub

 

[Zeki TEOMAN]

Merhaba ,

Kodun böyle olması gerekiyor
Aslında kodu doğru yazmışsınız , butonun üzerinda sağ tuş yapıp tekrar makro atayacaksınız sadece

Sub kaydetmedencik()

ThisWorkbook.Close False

End Sub

 

[engkpc]

Merhaba ,

Kodun böyle olması gerekiyor
Aslında kodu doğru yazmışsınız , butonun üzerinda sağ tuş yapıp tekrar makro atayacaksınız sadece

Sub kaydetmedencik()

ThisWorkbook.Close False

End Sub

Makro atadım lakin excel i tam kapatmıyor sadece sayfaları kapatıyor

 

[Zeki TEOMAN]

Bu kod işinize yarar

Sub kaydetmedencik()

Application.Quit
ThisWorkbook.Close False

End Sub

 

[Muzaffer Ali]

Merhaba.
7. Mesajdaki kod ile eğer başka açık excel dosyası varsa onlarda kapatılır.
Sadece bu dosyayı kapatmak için şu kodu deneyin.

Sub Kaydetme_Kapat()
    If Workbooks.Count = 1 Then
        Application.Quit
    End If
    ThisWorkbook.Close False
End Sub

 

[engkpc]

Merhaba.
7. Mesajdaki kod ile eğer başka açık excel dosyası varsa onlarda kapatılır.
Sadece bu dosyayı kapatmak için şu kodu deneyin.

Sub Kaydetme_Kapat()
    If Workbooks.Count = 1 Then
        Application.Quit
    End If
    ThisWorkbook.Close False
End Sub

Teşekkür ederim istediğim oldu.