textbox1 de yazan isme göre sayfayı aktif etmek

[ALBAYRAK616161]

arkadaşlar mrb
biliyorum önce aramam lazım, şimdiden özür dilerim. acilen bana lazım da...
TextBox1 de yazan isme göre onlarca sayfa arasından o sayfayı nasıl aktif edebilirim.

 

[Orion1]

Sheets(TextBox1.Value).Activate

 

[Ayhan Ercan]

Commandbutton1'e:

Private Sub COMMANDBUTTON1_Click()
Dim sf As Worksheet
syf = TextBox1.Value
For Each sf In Worksheets
If sf.Name = syf Then Sheets(syf).Select
Next
End Sub

 

[baranseren]

Commandbutton1'e:

Private Sub COMMANDBUTTON1_Click()
Dim sf As Worksheet
syf = TextBox1.Value
For Each sf In Worksheets
If sf.Name = syf Then Sheets(syf).Select
Next
End Sub

@SchakaL Hocam başka bi yerden tanıyorum sanki bu ismi neyse konumuz deil , kod çok şahane olmuş ellerine sağlık kopya aldım arşive güzel olmuş valla .

Saygılarımla.

 

[Ayhan Ercan]

rica ederim. bende değerli üstadlardan almıştım bu kodu. soru soran arkadaşa uyarlayarak yazdım...

 

[dbicer83]

@SchakaL Hocam başka bi yerden tanıyorum sanki bu ismi neyse konumuz deil , kod çok şahane olmuş ellerine sağlık kopya aldım arşive güzel olmuş valla .

Saygılarımla.

arşiv falan demişsiniz kardeşim arşivinizi paylaşma şansınız varmıdır?Tabi sizce sakıncası yoksa.BENİ ÇOK MERAK SARDI BU İŞLERİ ÖĞRENMEK İSTİYORUM ÇOK HOŞ VE ZEVLİ ŞEYLER BUNLAR.

 

[baranseren]

arşiv falan demişsiniz kardeşim arşivinizi paylaşma şansınız varmıdır?Tabi sizce sakıncası yoksa

Sayın dbicer ;

.Txt belgeler elimdekiler hocam. Sitede bi program var kod arşivi onun gibi bişe yapmak istiyorum aslında elimdekileri ama şifrelerim vs. vs. ilk başta paylaşım için düşünmediğimden dolayı bu binlerce txt dosyasının bir çoğunun içersinde mevcut olduğundan rar dosyası yapıp paylaşamıyorum

 

[dbicer83]

ne diyelim bir gün hazırlarsın paylaşıma açarsın bekleriz doğrusu bu kaynaklar çok işimize yarıyor gerçekten saoğolasın.teşekkürler