Comboboxa sayfa isimleriye sayfa1 de b sütunundaki verileride de aldırmak

[halit3]

şimdi olması lazım

Private Sub ComboBox1_Change()
yer = "" & Worksheets("Sayfa1").Cells(ComboBox1.ListIndex + 2, 1).Value & ""

Sheets(yer).Select
End Sub

Private Sub UserForm_Initialize()
sat = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("b2:b65000")) + 1
For i = 2 To sat
ComboBox1.AddItem Worksheets("Sayfa1").Cells(i, 1).Value & " " & Worksheets("Sayfa1").Cells(i, 2).Value
Next i
End Sub

 

[aydın3838]

örnek

halit bey bende hata verdi


Private Sub ComboBox1_Change()
yer = "" & Worksheets("Sayfa1").Cells(ComboBox1.ListIndex + 2, 1).Value & ""

Sheets(yer).Select
End Sub

Private Sub UserForm_Initialize()
sat = WorksheetFunction.CountA(Worksheets("Sayfa1").Rang e("b2:b65000")) + 1
For i = 2 To sat
ComboBox1.AddItem Worksheets("Sayfa1").Cells(i, 1).Value & " " & Worksheets("Sayfa1").Cells(i, 2).Value
Next i
End Sub

 

[halit3]

ne hatası aldınız
birde sizin dosyada bu komut çalışmıyor siz yeniden bir excel sayfası açın dosyalarınızı oraya kapyalayın ve user farmlarıda kopyalayın ozaman çalışacaktır neden diyicekseniz bilmiyorum excell dosyalarında bu tür sıkıntılar oluyor

 

[aydın3838]

sat =

sadece bu sat yazan yerde hata veriyor

 

[halit3]

bu dosyada çalışıyor

 

[halit3]

hayır genel olarak for komutundan sonra ki veride sürekli hata veriyor neden olduğunu bilmiyorum senin verilerini bir dosyayaya aldım genede olmadı

 

[aydın3838]

işin garip tarafı sayın halit bey

yeni excelde sayfasında çalışıyor

daha doğrusu sizin göndermiş olduğunuz örnekte çalışıyor

mümkün olmasa hırs yapmıcam ama mümkün gibi görünüyor

neden sorun veriyor bulamadım

yeniden sıfıırda formları ve sayfaları yaparım üşenmem ama

yine aynı hatayı verirse sonuç üzüçü olur demi

ben bu uygulamamı ticari olarak düşündüğüm için yaklaşık 6 aydır geceli gündüzlü çalışıyorum

ve 3 iş yerinde sürekli kullanmak istiyorum yani hata vernesi ciddi bir sorun demi

birde bir sorum olacak

son örnekte görüldüğü gibi ben 1 excel kitabına sürekli her mişteriye yeni sayfa açıyorum

bunun 100 sayfadan sonra bazen hatalar veriyor

ben başka bir kitaba yani 2. bir kitapta kayıt tutsam işlemler hız kazanırmı

veya sizin bir fikriniz varmı

makroların daha hızlı çalışması için

daha doğrusu bu yapılan ticari programlar gibi seri işlem yapmak gibi


saygılar

 

[halit3]

ben hepsini bir yeni bir sayfaya dosyaya aldım gene yapıyor diğer soruna gelence
excell içinde ne kadar fazla dosya olursa o kadar yavaşlar
bana kalırsa bsen bunları kişi adına sayfa yerine yanlızca viri sayfası oluşturarak bir sayfada toplaman olacaktır yani kişi başına bir satır olacaktır bu satılara kayıt için user form kullanman olacaktır bundan sonra yanlızca raporlama işi kalacaktır istenen kişiyi user formda seçeceksin ve tek düğmeyle rapor oluşturacaksın

 

[aydın3838]

teşekkürler halit bey

bizim ilk soru iptal galiba çözümü yok demi

 

[halit3]

baya uğraştım user formları tek tek hepsini aktardım düzeldi sen kontrol et

 

[aydın3838]

halit bey merhaba

öncelikle teşekkürler cevap için

olmuyor yanıtınız

ilgili sayfa yoksa hata veriyor ama yinede teşekkürler

bu olayı listbosta uyguladım ve sonuç iyi gibi

fakat forma sorduğum örneğime bakarsanız olayı tam anlatım

ekte


dün şansımı comboda denedim fakat olmadı

bugün listboxta denedim oldu gibi fakat

listboxta sayfa isimlerini alıyorum çift tıklıyorum sayfaya gidiyorum ama sayfa isimleri numerik olduğundan örnekte göreceksiniz isim olmadan hangi sayfa kime ait bulunmuyor


sayfa 1 a hücresinde eklenen sayfaların sıralı listesi var
sayfa 1 b hücresinde ise sayfaların kime ait olduğu yazılı

iki sütunuda listboxta görüyorum ama vba daki kayıtlı sayfa ismine göre hareket ediyor işin içinde çıkamadım anlıcanız

 

[halit3]

aşağıdaki kodu kullan

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
yer = "" & Worksheets("Sayfa1").Cells(ListBox1.ListIndex + 2, 1).Value & ""
Sheets(yer).Select
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
ListBox1.ColumnCount = 2
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = "70;70"
ListBox1.RowSource = "Sayfa1!A2:b6500"
End Sub

 

[aydın3838]

sağolun çalışıyor halit bey teşekkürler

hata bulursam yazarım