Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 15-07-2017, 07:59   #1
igultekin2000
Altın Üye
 
Giriş: 05/09/2007
Şehir: istanbul
Mesaj: 360
Excel Vers. ve Dili:
ofis 2010
Varsayılan user form gizleme

iyi günler ; muhasebeci olarak firmalara ait bilgileri form ile giriyorum. form' u aşağıdaki kodlar ile form görünümüne getiriyorum. form görünümünde iken başka bir excel sayfası açtığıma normal açılıyor , sayfa açıkken formu kapattığımda diğer açık sayfalarda formla beraber onun ekinde kapanıyor. bu da hiç kullanışlı olmuyor. form açıp, kapandığına diğer açık excel sayfaların etkilenmemesi mümkünmüdür. teşekkürler.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Declare Function FindWindowA Lib "user32" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
        (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
        (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub UserForm_Activate()
    Dim hWnd As Long, exLong As Long
    hWnd = FindWindowA(vbNullString, Me.Caption)
    exLong = GetWindowLongA(hWnd, -16)
    If (exLong And &H20000) = 0 Then
        SetWindowLongA hWnd, -16, exLong Or &H20000
        Me.Hide
        Me.Show
    End If
End Sub
Eklenmiş Resimler
Dosya Türü: jpg resim.jpg (89.5 KB, 15 Görüntülenme)
igultekin2000 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-07-2017, 11:42   #2
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,228
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Bu kod içinde " kapat " komutu yok , olan kodlar me.hide ile göz önünden kaldır ( ama kapatma) ve me.show ile aç diyor.

Bunların dışında , özellikle kapat tuşu altındaki kodlarda Application.quit olarak yazılmış ve herşeyi kapatan bir kod olması gerek. Bu kodları aldığınız yerde , userformun tasarım halinde kapat tuşuna çift tıkladığınızda yüksek olasılıkla bu kodun yazıldığı yerde olursunuz.
O kodu silip

Thisworkbook.close yazın save edin ve kapatın açın . Bu kod bu kitabı kapat der, excel değil ama bu çalışma kitabı kapanır , başka açık varsa etkilemez.
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 14:00   #3
igultekin2000
Altın Üye
 
Giriş: 05/09/2007
Şehir: istanbul
Mesaj: 360
Excel Vers. ve Dili:
ofis 2010
Varsayılan kapat sorunu tama ama

Alıntı:
cems tarafından gönderildi Mesajı Görüntüle
Bu kod içinde " kapat " komutu yok , olan kodlar me.hide ile göz önünden kaldır ( ama kapatma) ve me.show ile aç diyor.

Bunların dışında , özellikle kapat tuşu altındaki kodlarda Application.quit olarak yazılmış ve herşeyi kapatan bir kod olması gerek. Bu kodları aldığınız yerde , userformun tasarım halinde kapat tuşuna çift tıkladığınızda yüksek olasılıkla bu kodun yazıldığı yerde olursunuz.
O kodu silip

Thisworkbook.close yazın save edin ve kapatın açın . Bu kod bu kitabı kapat der, excel değil ama bu çalışma kitabı kapanır , başka açık varsa etkilemez.
Evet kapatma
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton6_Click()
Unload Me

cvp = MsgBox("Kaydetmek İstiyormusunuz ?", vbYesNo)
If cvp = vbNo Then
ActiveWorkbook.Close Saved = True
Else
ActiveWorkbook.Close Saved = False
End If
End Sub
activeWorkbook olan kısmı ThisWorkbook olarak değiştirdim kapanışta sorun kalkmış oldu, bu seferde açık excel sayfası varsa , formu çalıştırınca açılıp direk form haline geldiği için , açık excel sayfasınıda bünyesine katarak görünmez yapıyor, bunu halledebilirsek sorun kalkacak. teşekkürler.
igultekin2000 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 08:50


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Excel Eğitimi - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Pronet- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden