sayfaların bir kısmının gizlenmesi

[yeliz.yilmaz]

merhaba Mustafa Bey,

asem33.xls. soydasinin neresine copyalayacam

slm

 

[leumruk]

Sub Gizle()
For i = 4 To 6
 Sheets("Sayfa" & i).Visible = [COLOR="Red"]xlSheetVeryHidden[/COLOR]
Next
Sheets("Sayfa1").CommandButton1.Caption = "Göster"
End Sub
Sub Göster()
Application.ScreenUpdating = False
For i = 4 To 6
 Sheets("Sayfa" & i).Visible = True
Next
Sheets("Sayfa1").CommandButton1.Caption = "Gizle"
End Sub

 

[yeliz.yilmaz]

supersiniz supeeerrrrr

 

[yeliz.yilmaz]

peki ya sayfa isimlerine isim verirsem nasil olurdu mesela ikinci sayfanin adi yeliz ucuncude yilmaz olsaydi.

hocam.

 

[yeliz.yilmaz]

burda sayfa lineer olarak artiyor da onun icin sormam gerekti

 

[leumruk]

İsim değişikliği önemli değil, eğer belirli bir aralıktaki veriyi gizlemek istiyorsanız aynı kodu kullanabilirsiniz. Ama karışık düzendeki belirli sayfaları gizlemek istiyorsanız aşağıdaki gibi bir yol kullanabilirsiniz:

Sub Gizle
Sheets("yeliz").Visible = xlSheetVeryHidden
Sheets("yılmaz").Visible = xlSheetVeryHidden
End Sub

 

[yeliz.yilmaz]

cok tesekkur ederim cok

 

[leumruk]

cok tesekkur ederim cok

Rica ederim. İyi çalışmalar.

 

[yeliz.yilmaz]

mustafa yapamadim iste

bu kadart acizim excele yapamadim.ekte dosyaya yapabilir misiniz.

tesekkurler.

yeliz.

 

[leumruk]

Merhaba,
Dosyanız ekte...
Yeni kodları yazmışsınız; fakat diğerlerini silmemişsiniz. Dolayısıyla birbiriyle çakışmış.

 

[yeliz.yilmaz]

haklisiniz dedigim gibi kapasitem yok ki. siz de olmasaniz. cok mersi. yalnıs dosyayi acarken runtime error 9 subscript out of range hatasi veriyor. ama calisyor. macro

selam
yeliz.

 

[leumruk]

Dosyayı güncelledim. Yeniden indirebilirsiniz.
Thisworkbooktaki kodları silmeyi unutmuşum.

 

[yeliz.yilmaz]

harika. acaba dosya acilirken subsript out of range hatasi normal mi. her acilista uyariyor da

 

[leumruk]

harika. acaba dosya acilirken subsript out of range hatasi normal mi. her acilista uyariyor da

Son eklediğim dosyayı denediniz mi? 30 nolu mesajdaki dosyayı yenisiyle değiştirmiştim. Yeni eklediğim dosyada bu hatayı vermemesi lazım.

 

[yeliz.yilmaz]

cok tesekkur ederim Ogretmenim.

Mustafa.. size mustafa diyebilir miyim. yardimseverleginiz ve bilgi paylasımınızdan dolayı tebrik ediyorum. tum sitede ki arkadaslarin bu yaklasımı ulkemizi daha modern hale getireceginden eminim.

mustafa. bir calisma hazirlamistim database bazli. bunu pivot table ile degil de macro ile ozetleyecek tabloyu da ayri sayfaya hazirladim. genel mantigi anlatabilirim. ornek dosyayi hazirlasam gondersem. vaktin olur mu acaba bakmaya.

Tesekkur etmek yetmez ama ancak bunu yapabliyorum simdilik.

 

[leumruk]

Syn. yeliz.yilmaz,
Rica ederim.
Anladığım bir konuysa yardımcı olmaya çalışırım. Yeni bir konu açarak isteğinizi belirtin. Ben olmazsam bir başkası yardımcı olur. Mutlaka bir çözüm bulunur.
Saygılar.

 

[yeliz.yilmaz]

Ek teki dosyada derdimi anlatmaya calistim

Eger yardim edeblirseniz supeerrrr olur