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 19-03-2017, 00:09   #1
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,383
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan Butonla menü gizle ve göster

Merhaba hayırlı geceler.

Ekte gönderdiğim küçük video ile göstermeye çalıştım.

Excel sayfama bir buton ekleyerek butona bastığımda üst menü kısmı basitçe gizlenecek, başka butona bastığımı da menüyü göstermek istiyorum.

Makro kaydet ile yapmaya çalıştım, olmadı.
Benim istediğimi Ctrl+F1 benim istediğimi yapıyor ancak bunu da makroya alamadım.

http://dosya.co/7owin5y84dzx/Örnek.rar.html


Forumda değişik birçok kod buldum ancak benim istediğim gibi değil. Bu kodlardan bir tanesi aşağıda.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Gizle()
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Standard").Visible = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayOutline = False
    ActiveWindow.DisplayZeros = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayHeadings = False
    End Sub
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Göster()
    Application.DisplayFullScreen = False
    Application.CommandBars("Full Screen").Visible = False
    Application.CommandBars("Formatting").Visible = Trueu
    Application.CommandBars("Standard").Visible = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayOutline = True
    ActiveWindow.DisplayZeros = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayHeadings = True
End Sub
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...

Bu mesaj en son " 19-03-2017 " tarihinde saat 00:33 itibariyle ASLAN7410 tarafından düzenlenmiştir....
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 17:10   #2
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,383
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın yönetici arkadaşlar konu günceldir.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 18:45   #3
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,484
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Aşağıdaki kodlar işinizi görmez mi?
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub TAMEKRAN()
    Application.DisplayFullScreen = True
End Sub


Sub TAMEKRAN_İPTAL()
    Application.DisplayFullScreen = False
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 19:16   #4
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,383
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın Ömer Bey ilginize çok teşekkür ediyorum, kodlar için çok teşekkür ediyorum.

Sizin gönderdiğiniz kodlar Ekran Alıntısı1'deki gibi yapıyor.
Benim yapmak istediğimde Ekran Alıntısı2'deki gibi yapmak istemiştim.

Bu şekilde olur mu?

Makro kaydet ile yapmaya çalıştım, olmadı.
Benim istediğimi Ctrl+F1 benim istediğimi yapıyor ancak bunu da makroya alamadım.
.
Eklenmiş Resimler
Dosya Türü: jpg Ekran Alıntısı1.jpg (9.5 KB, 5 Görüntülenme)
Dosya Türü: jpg Ekran Alıntısı2.jpg (11.2 KB, 6 Görüntülenme)
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...

Bu mesaj en son " 20-03-2017 " tarihinde saat 19:35 itibariyle ASLAN7410 tarafından düzenlenmiştir....
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 19:46   #5
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,681
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

İstediğiniz Ctrl+F1 ise aşağıdaki komut ile yapabilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
SendKeys "^{F1}"
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 19:50   #6
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,383
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın Ömer Bey ilginiz için çok teşekkür ederim.

Bu kodu nasıl ve şekilde yazmam gerekiyor.

Aşağıdaki gibi yazdım olmadı. Bir örnek gönderebilir misiniz?

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Gizle()
SendKeys "^{F1}"
End Sub
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 19:59   #7
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,681
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Denedim istediğinizi yapıyor. (Yani ctrl f1 ile istediğinizi yapıyor)
Kodları module ekleyin ve botuna bağlayıp çalıştırın.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 20:01   #8
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,383
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın Ömer Bey çok teşekkür ederim, aradığım buydu.

Hayırlı çalışmalar hayırlı geceler diliyorum.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 20:15   #9
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,383
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın Ömer Bey tekrar rahatsız ediyorum kusura bakmayın.

Kod gerçekten çok işime yarıyor. Ben bu kodu başka bir program içerisine ekledim gayet güzel çalışıyor.
Ancak şöyle bir şey çıkıyor, sayfanın menüsü açıksa gizliyor, tekrar butona bastığımda gizli olan menüyü açıyor.

Yapmak istediğim butona bastığımda eğer menü açıksa gizlesin, kapalı ise kapalı kalsın istiyorum.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 20:28   #10
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,681
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Bu şekilde deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Gizle()
    
    If Application.CommandBars("Ribbon").Height > 60 Then
        SendKeys "^{F1}"
    End If
    
End Sub
.
__________________
.
Ömer Ç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 02:45


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 - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden