bu combobox da seçtiğim sayfaya gidemiyorum

[musyip]

alfabeye göre her harfe bi sayfa açtım isim kaydetmek için ve ana sayfaya bir combobox koydum ama seçtigim sayfatya otomatik olarak gitmesini saglayamıyorum,sagolsun 2 arkadaş güzel çalışmalar yaptı ama derdimi tam anlatamadıgım için olmadı şimdide bi örnek ataçladım

 

[Korhan Ayhan]

Selamlar,

Ekteki dosyayı incelermisiniz.

Edit: Daha anlaşılır olması bakımından biraz önce önerdiğim kodları ekteki dosyada görebilirsiniz.

Not: Soru başlıklarınızıda forum kurallarına göre yazarsanız daha faydalı olur. :arkadas:

 

[musyip]

Hocam çok teşekkür ederim çok yaklaştım ama benim excele aktarınca olmuyo başka sayfalarda var ondanmı aceba 1500 tanede protokol numaralı(1-1500) sayfa var ayrıca başka sayfalarda var.hemde alfabe a,b,c......v,y,z,q,x,w.bir kutu aynen yaptıgın gibi kayıt için.keşke tamamını yollayabilsemde anlatabilsem nası olcak çıldırcam :kafa: .yani böyle bi combobox a,b,c.. sayfaları için bir tane diger 5 sayfa için yapmam gerekiyo ama kodu bir türlü istedigim sayfalara yönlendiremiyorum.kodu yazınca hangi sayfalar için olacagını nasıl ayarlayacagım bir türlü anlamadım

 

[musyip]

COST_CONTROL, Hocam çok teşekkür ederim çok yaklaştım ama benim excele aktarınca olmuyo başka sayfalarda var ondanmı aceba 1500 tanede protokol numaralı(1-1500) sayfa var ayrıca başka sayfalarda var.hemde alfabe a,b,c......v,y,z,q,x,w.bir kutu aynen yaptıgın gibi kayıt için.keşke tamamını yollayabilsemde anlatabilsem nası olcak çıldırcam .yani böyle bi combobox a,b,c.. sayfaları için bir tane diger 5 sayfa için yapmam gerekiyo ama kodu bir türlü istedigim sayfalara yönlendiremiyorum.kodu yazınca hangi sayfalar için olacagını nasıl ayarlayacagım bir türlü anlamadım. ve tekrar çok sagol dostum.bende senin gibi bunları yapabiliyo olmayı o kadar isterdimki çünkü 3 gündür uğraşıyorum formda bisürü şey okudum ama hala beceremiyorum

 

[Korhan Ayhan]

Selamlar,

Gönderdiğim dosyada ALT+F11 tuşlarına basarak modül1 içindeki makroyu incelerseniz nasıl yaptığımı biraz olsun anlayabilirsiniz.

Ayrıca sayfa üzerinde oluşturduğunuz açılan kutuya veri alanını tanımlamışsınız fakat hücre bağlantısı kısmını boş bırakmışsınız ben sadece onu ekledim. (A1 hücresine bağladım.) Dikkat ederseniz listeden farklı seçimler yaptıkça A1 hücresi değişmektedir. Yani makroda A1 hücresindeki değeri sayfa indexi olarak tanımlamış olduk. Umarım açıklamalar sizin için yeterli olmuştur. :arkadas:

 

[abdi]

Sayın musyip

sanırım yada anladığım kadarıyla
sayısal sayfaları bir comboya
alfabetik sayfaları diğer bir komboya almak istiyorsunuz


eğer doğru anladı isem
öncelikle sayısal sayfa numaraları olan sayfa sekmelerini en sola alın
solda sırasıyla örneğin sayısal olarak adlandırılmış 5 adet sayfa sekmesi var ise 1 2 3 4 5 olarak en sola taşıyın
sonra kodları yapıştırıp deneyin

bu kodlar aşağıdaki örneğin kodlarıdır.

[vb:1:abf454cda0]Private Sub ComboBox1_Change()

Worksheets(ComboBox1.Value).Activate
End Sub

Private Sub ComboBox2_Change()
Worksheets(ComboBox2.Value).Activate

End Sub

Private Sub CommandButton1_Click()
End
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next
Dim i As Integer

For i = 6 To Worksheets.Count
ComboBox1.AddItem Worksheets(i).Name
Next i
ComboBox2.AddItem "Anasayfa"
For i = 1 To 5
ComboBox2.AddItem Worksheets(i).Name
Next i
End Sub[/vb:1:abf454cda0]

 

[musyip]

arkadaşlar ilginize çok teşekkür ederim.yapmak istediğim tam olarak ekteki gibi ama orjinalin boyutu yüksek upload edemiyorum.bu makroları kendi excelime kopyala yapıştır yapınca olmuyo.ekteki gibi seçtiğim sayfaya gidemiyorum arama butonuyapmak istiyorum yada protokol numarasını yazınca o sayfaya gitdebilcek.bide yardımcı olup hazırlayan arkadaş a1 hücresine seçim numarası koymuş makroda kaldıramıyorum.nasıl yapcam ,nasıl kendi excel çalışmama aktaracam bilmiyorum.kendim üzerinde oynayıp becermeyi denedim 1 hafta olmadı.bir el atıcak arkadaş varmı aceba. :kafa: :yardim:

 

[Recep İpek]

Sayın musyip,

Çünkü A1'deki sayfa sayısını açtırmayı deniyorsunuz.

Oysa A,B,C,... sayfalarından önce ERKEK,BAYAN,ANASAYFA var.Bunların sayısı 1.2.3 A,B,C sayfalarının sayısı 4,5,6...

Kodlarınızda aşağıdaki değişikliği yaparsanız istediğiniz olacaktır
[vb]
Sub Açılan1_Değiştir()
X = Sheets("ANA SAYFA").Range("A1").Value + 2
Sheets(X).Select
End Sub

 

[Korhan Ayhan]

Selamlar,

A1 hücresindeki seçim numarası açılan kutunun hücre bağlantısıdır. Açılan kutudan seçim yaptığınızda A1 hücresindeki numara değişir ve bu numara ile sayfa indexleri (yani sıralamaları) birbirini takip ettiği için ilgili sayfa açılır. Örneğin A1 hücresindeki değer 5 olursa 5. sıradaki sayfa aktif olur. Siz kendi dosyanıza uyarlarkende aynı mantığı izlemelisiniz. Yani ana sayfa başta olmalı daha sonrada ulaşacağınız sayfalar olmalı. :arkadas:

 

[musyip]

hocam dediğinizi denedim olmuyo.bunun yolu nedir.senin kodu kopyala yapıştır yaptım olmuyo.üstelik diğer listler çalışmıyo.yeterki bu örnek olsun ben kendi çalışmamı tekrar yaparım.siz bu değişikliği denedinizmi olmadı.ama çok teşekkür ederim. :kafa: hala olmuyo .yokmudur bi çaresiiiiii :yardim:

 

[Korhan Ayhan]

Selamlar,

Sizin son eklediğiniz örnek üzerinde ekteki dosyada gerekli düzeltmeyi yaptım kontrol edermisiniz.

 

[Seyit Tiken]

Anladığım kadarıyla ilgili arkadaşımız, hem Çalışma Kitabının sayfaları arasında geçiş yapmak istiyor, hemde tek bir sayfanın içinde belli hücreler arasında dolaşmak istiyor. İki soru bir arada soruluyor. Gönderdiğim örnek dosya, tek bir sayfa içinde belli hücreler arasında geçişlerle ilgilidir. Kendinize uyarlayınız.

 

[musyip]

ekteki gibi seçtiğim sayfalara gidemiyorum.sayfayı seçince otomatik o sayfaya gitsin istiyorum ama olmuyo.ayrıca ekteki çalışma sayfası sayısı 5000 kadar olcak ama tek tek eklemek çok zor bi yolu varmıdır. :kafa:

 

[Tankut SAZLI]

Bildiğim kadarıyla excelde maksimum sayfa sayısı 2500 civarı olmalı fazla olmaz,emin değüilim.ikinci olarak sayfaya gittiğinizde hangi sütunda bulunmak istiyorsunuz.

 

[musyip]

dostum b2 hücresi olsa süper olur.sayfa sayısı max. kaçsa okarla idare edcez artık :dua:

 

[Tankut SAZLI]

Gönderdiğim örneği inceleyin.butona tıklayın ve sayfalar ve sayfalarda B sütununda yazıl olan (sanırım isimleri yazacaksınız)isimler arasından birini seçin.

 

[musyip]

dostum yandaki kutulardan seçince gitmesini istiyorum.bi el atın lütfen olmuyo :kafa: çokmu zor bişe aceba yapılamaz bişey ise uğraşmayayım.

 

[musyip]

listeden seçtiğim sayfaya gitmek

listeden seçtiğim sayfaya gitmek.2 haftadır yazıyorum ama kimse yapamadı çokmu zor bişey aceba.ekteki gibi ama biraz düzenleme gerekiyo galiba .bide a1 b1 ve c1 deki yazılar çıkmasın silince makro çalışmıyo.acil yardıma ihtiyacım var :kafa:

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[musyip]

şu ana sayfa enüst soldaki yazılarda çıkmasa bide cinsiyeti tıklayınca erkek sayfasına gidiyor nası düzeltcem.çalışma sayfasının sayısını 2000 e kadar arttırcam makro yine çalışırmı?