userform kaydedip kapatma

[aydgur]

Private Sub CommandButton1_Click()
Dim sut As Range
Set sut = Sheets("ANASAYFA").[u1]
Do While sut <> ""
Set sut = sut.Offset(0, 1)
Loop
sut = TextBox1
TextBox1 = ""
TextBox1.SetFocus
Set sut = Nothing
End Sub***Böyle bir userform kodum var,bu kodda yapmak istediğim ilave şu:ANASAYFA ya kayıt yaptıktan sonra kapanıp ANASAYFA A3 hücresine gitsin!

 

[Ayhan Ercan]

Merhaba

A&#351;a&#287;&#305;daki kodlar&#305; deneyiniz..

Private Sub CommandButton1_Click()
Dim sut As Range
Set sut = Sheets("ANASAYFA").[u1]
Do While sut <> ""
Set sut = sut.Offset(0, 1)
Loop
sut = TextBox1
TextBox1 = ""
TextBox1.SetFocus
Set sut = Nothing
Sheets("ANASAYFA").Select
[A3].Select
Unload Me
End Sub

 

[meken]

Kapatırken uyarı

Merhabalar;

Private Sub CommandButton3_Click()
Application.DisplayAlerts = False
Application.Quit
End Sub

makrosuna, butona tıkladığımda "değişiklikler kaydedilsin mi" evet-hayır şeklinde kayıt edip kapatmak veya kayıt etmeden kapatmak istiyorum.

Şimdiden teşekkürler.

 

[ExcelF1]

Aşağıdaki şekilde yapabilirsiniz.

Private Sub CommandButton3_Click()
a = MsgBox("Çıkmak İstediğinizden Emin Misiniz ?", vbYesNo)
If a = vbYes Then
b = MsgBox("Kayıt Yapılsın mı ?", vbYesNo)
    If b = vbYes Then
    ThisWorkbook.Save
        If Windows.Count > 1 Then
        ActiveWindow.Close
        Else
        Application.Quit
        End If
    Else
        If Windows.Count > 1 Then
        Application.DisplayAlerts = False
        ActiveWindow.Close
        Else
        Application.DisplayAlerts = False
        Application.Quit
        End If
    End If
Else
Exit Sub
End If
End Sub

 

[meken]

Sayın ExcelF1;

a = MsgBox("Çıkmak İstediğinizden Emin Misiniz ?", vbYesNo)

a= hata verdi

 

[Murat OSMA]

Kodlarınızın en üst satırında Option Explicit satırı varsa onu silin veya hata veren satırın üzerine Dim a yazın.

 

[paranormal]

Kodlarınızın en üst satırında Option Explicit satırı varsa onu silin veya hata veren satırın üzerine Dim a yazın.

Application.DisplayAlerts = False

Application.DisplayAlerts = True

seklinde yazarsan evet veya Hayir diye sordugunda kaydederek UserForm u kapatirsin.

Sayet ikisinide kaldirirsan direkt kaydederek kapatirsin.
Kolay gelsin.

 

[ExcelF1]

6. mesajda Murat Bey cevaplamışlar. Kolay gelsin.

 

[meken]

Sayın Murat Osma nın dediği gibi sorun çözüldü fakat sadece kayıt yapılsın mı sormasını isyiyorum.Çıkmak istedeğinizden emein misiniz i nasıl kaldırabilirim.

Private Sub CommandButton3_Click()
If a = vbYes Then
b = MsgBox("Kayıt Yapılsın mı ?", vbYesNo)
If b = vbYes Then
ThisWorkbook.Save
If Windows.Count > 1 Then
ActiveWindow.Close
Else
Application.Quit
End If
Else
If Windows.Count > 1 Then
Application.DisplayAlerts = False
ActiveWindow.Close
Else
Application.DisplayAlerts = False
Application.Quit
End If
End If
Else
Exit Sub
End If
End Sub

Teşeşkkürler.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton3_Click()
    Dim Onay As Byte
    
    Onay = MsgBox("Değişiklikler kaydedilsin mi?", vbExclamation + vbYesNo, "Dikkat")
    
    If Onay = vbNo Then
        If Excel.Windows.Count = 1 Then
            Application.DisplayAlerts = False
            Application.Quit
        Else
            ThisWorkbook.Close 0
        End If
    Else
        ThisWorkbook.Save
        If Excel.Windows.Count = 1 Then
            Application.Quit
        Else
            ThisWorkbook.Close 0
        End If
    End If
End Sub

 

[meken]

Çok teşekkürler,

Saygılarımla.

 

[creaters]

merhabalar ben dosya indiremiyorum neden ?

 

[meken]

http://www.excel.web.tr/f53/altyn-yelik-t57910.html
İncele.