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-12-2013, 19:27   #1
vardar07
Destek Ekibi
 
vardar07 kullanıcısının avatarı
 
Giriş: 19/03/2008
Şehir: Kepez / ANTALYA
Mesaj: 2,154
Excel Vers. ve Dili:
Office 2007 Enterprise Türkçe
Varsayılan ComboBox ile sayfa gizleme ve gösterme hk.

Merhaba arkadaşlar. Aşağıdaki kodlar ile sayfa adlarını ComboBox'ta listeliyoruz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub UserForm_Initialize()
Dim syf As Worksheet
ComboBox1.Clear
For Each syf In Worksheets
    ComboBox1.AddItem syf.Name
Next
ComboBox1.ListIndex = 0
ComboBox1.Value = "ANASAYFA"
End Sub
Aşağıdaki kodlar ile de gizli sayfayı seçiyoruz ve görünür yapabiliyoruz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub ComboBox1_Click()
  Sheets(ComboBox1.Value).Visible = True
  Sheets(ComboBox1.Value).Select
End Sub
Yapmak istediğim başka bir sayfa seçtiğimde önceki seçilen sayfanın gizlenip yeni sayfanın görünür olması.Nasılbir döngü kurmak lazım.
__________________
Veren El Alan Elden EVLA'dır...

Örnek excel dosyanızı,açıklamalarını da yazarak; UPTERABİT.COM, DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

Özel mesajlarda sorulan sorulara cevap vermiyorum.
vardar07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2013, 20:10   #2
dalgalikur
Destek Ekibi
 
dalgalikur kullanıcısının avatarı
 
Giriş: 04/06/2006
Mesaj: 1,126
Excel Vers. ve Dili:
2007-2013
Varsayılan

Aşağıdaki gibi deneyin

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub ComboBox1_Click()
For Each syf In Worksheets
    syf.visible=false
Next
  Sheets(ComboBox1.Value).Visible = True
  Sheets(ComboBox1.Value).Select
End Sub
dalgalikur Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2013, 20:26   #3
vardar07
Destek Ekibi
 
vardar07 kullanıcısının avatarı
 
Giriş: 19/03/2008
Şehir: Kepez / ANTALYA
Mesaj: 2,154
Excel Vers. ve Dili:
Office 2007 Enterprise Türkçe
Varsayılan

Arkadaşım ilgine teşekkürler.Ancak syf.visible=false satırında hata veriyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim syf As Worksheet
For Each syf In Worksheets
   ComboBox1.AddItem syf.Name
Next
  Sheets(ComboBox1.Value).Visible = True
  Sheets(ComboBox1.Value).Select
şeklinde düzeltince çalışıyor ancak önceki sayfa görünür kalıyor.
__________________
Veren El Alan Elden EVLA'dır...

Örnek excel dosyanızı,açıklamalarını da yazarak; UPTERABİT.COM, DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

Özel mesajlarda sorulan sorulara cevap vermiyorum.
vardar07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2013, 20:38   #4
dalgalikur
Destek Ekibi
 
dalgalikur kullanıcısının avatarı
 
Giriş: 04/06/2006
Mesaj: 1,126
Excel Vers. ve Dili:
2007-2013
Varsayılan

Özür dileirm aşağıdaki gibi olmalı

Private Sub ComboBox1_Click()

Sheets(ComboBox1.Value).Visible = True
Sheets(ComboBox1.Value).Select

For Each syf In Worksheets
if not syf.name=ComboBox1.Value then syf.visible=false
Next
End Sub
dalgalikur Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2013, 20:42   #5
omerceri
 
omerceri kullanıcısının avatarı
 
Giriş: 06/02/2005
Şehir: Gökova/Akyaka
Mesaj: 1,474
Varsayılan

aşağıdaki gibi deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub ComboBox1_Click()
  Sheets(ComboBox1.Value).Visible = True
  Sheets(ComboBox1.Value).Select
For Each syf In Worksheets
if syf.name <> ComboBox1.Value then
    syf.visible=false
end if
Next
End Sub
__________________
(Excel 2003 - Türkçe)
omerceri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2013, 20:45   #6
vardar07
Destek Ekibi
 
vardar07 kullanıcısının avatarı
 
Giriş: 19/03/2008
Şehir: Kepez / ANTALYA
Mesaj: 2,154
Excel Vers. ve Dili:
Office 2007 Enterprise Türkçe
Varsayılan

Sheets(ComboBox1.Value).Select
Dim syf As Worksheet
For Each syf In Worksheets

Kırmızılı yeri ekleyince tamamdır .Teşekkürler.

Sayın omerceri alternatif için teşekkürler. Aynı şekilde Galiba syf tanımlanmadığı için hata veriyor. Tanımlama yapınca çalışıyor.
Tekrar teşekkürler.
__________________
Veren El Alan Elden EVLA'dır...

Örnek excel dosyanızı,açıklamalarını da yazarak; UPTERABİT.COM, DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

Özel mesajlarda sorulan sorulara cevap vermiyorum.

Bu mesaj en son " 15-12-2013 " tarihinde saat 20:51 itibariyle vardar07 tarafından düzenlenmiştir....
vardar07 Ç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 23:02


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden