Userformdan çık sayfaya git kodu

[mutluedenercan]

Unload UserForm1
Sheets("liste").Select



Efendim, bu kodu buldum aramalarda...

Liste sayfasına gitmek yerine kompile çıkıyor...

Sadece userformdan çıkıp, liste sayfasına girsin, kodu nasıl yazılır....

Teşekkür

 

[Emir Hüseyin Çoban]

Unload UserForm1
Sheets("liste").Select
Efendim, bu kodu buldum aramalarda...
Liste sayfasına gitmek yerine kompile çıkıyor...
Sadece userformdan çıkıp, liste sayfasına girsin, kodu nasıl yazılır....
Teşekkür

. . .

Anlayamadım...

Userformun kapanmasını istiyor musunuz istermiyor musunuz.

. . .

 

[mutluedenercan]

UserForm1 Kapanacak....ama Excel den çıkmıkcak...liste adlı sayfada durcak

Bu kodu Userfordaki bir düğmeye atıycam...basınca formu kapatıp...excele dönecek

 

[Korhan Ayhan]

Merhaba,

Verdiğiniz kodlar çalışıyor. Eğer hata veriyorsa farklı bir kod buna sebep olabilir.

 

[mutluedenercan]

Hocam çalışıyorda , kompile çıkıyor....yani Excelden de çıkıyor...bir hata uyarısı vermiyor

 

[Emir Hüseyin Çoban]

. . .

Userform içerisinde şu başlık altında kodlar var mı.

Private Sub [COLOR="DarkRed"]UserForm_QueryClose[/COLOR](Cancel As Integer, CloseMode As Integer)
''''
End Sub

. . .

 

[mutluedenercan]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If MsgBox("Programı Kapatacam." & vbLf & "KAPATAMMI, Seni özlüycem Gardaş ?", vbQuestion + vbYesNo, " Ç I K I Ş") = vbYes Then
ActiveWorkbook.Sheets("RAPOR").Range("A2:F65536").ClearContents
ActiveWorkbook.Sheets("KOD").Select
ComboBox1_Enter
ActiveWorkbook.Save
Application.Quit
Else
If CloseMode = vbFormControlMenu Then Cancel = True
ComboBox1_Enter
End If
End Sub



Bu kod var Hocam....

 

[Emir Hüseyin Çoban]

. . .

Şu şekilde düzenleme yaparak deneyiniz.

[COLOR="DarkRed"]Dim ozel[/COLOR]

Private Sub CommandButton1_Click()
  [COLOR="DarkRed"]  ozel = 1[/COLOR]
    Unload Me
    Sheets("Liste").Select
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   [COLOR="DarkRed"] If ozel <> 1 Then[/COLOR]
        If MsgBox("Programı Kapatacam." & vbLf & "KAPATAMMI, Seni özlüycem Gardaş ?", vbQuestion + vbYesNo, " Ç I K I Ş") = vbYes Then
            ActiveWorkbook.Sheets("RAPOR").Range("A2:F65536").ClearContents
            ActiveWorkbook.Sheets("KOD").Select
            ComboBox1_Enter
            ActiveWorkbook.Save
            Application.Quit
        Else
            If CloseMode = vbFormControlMenu Then Cancel = True
            ComboBox1_Enter
        End If
 [COLOR="DarkRed"]   End If[/COLOR]
End Sub

. . .

 

[mutluedenercan]

olmadı Hocam...

programı ekleyimmi

 

[Emir Hüseyin Çoban]

. . .

Ekleyin, inceleyelim.

. . .

 

[mutluedenercan]

http://www.dosya.tc/server5/6aqi54/Fyeni.rar.html

Ekledim Hocam...bu temiz hali..yani sizin önerdiğiniz kod çalışmadığından, kod ve düğme eklenmemiş hali...

Yapılmak istenen: ( şifre: ercan )

1 - Userformda bir düğmeye basınca, Userformdan çıkıp lıste sayfasına gitsin

Vaktinizi almazsam...diğer yapamadığım..

2 - Userform, en son yapılan kaydı listeler konumda dursun, şu an kod sayfasını göster durumda...halbukı liste sayfasındaki enson satırı gösterir konumda durmalıki enson kimi kayıt ettim bileyim...

Yani ...bir çekim kayıt ekranından çıkınca , gelinen ana pencerede, kod sayfasındaki isimler görünür duruyo; halbuki liste sayfasındaki en son kaydı gösterir halde durmalı...

Okul adına Teşşekkür Ederim