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

[aydın3838]

selamlar

benim çalışmamda her şahsa 1 sayfa ekliyorum ve sayfa isimlerini 1,2,3,4,5 diye numaralandırdım ve sayfa 1 in A hücresine sıralı kayıt ediyorum
sayfa isimlerini comboboxa alıp combo da görebiliyorum

fakat benim istediğimse sayfa isimleriyle birlikte sayfa1 in B sütunundaki şahısların isimlerinide comboboxt ta görmek mümkünmü acaba



örnek


sayfa ismi ........ şahıs ismi

1 ....... .......EXCEL VEB TR gibi


teşekkürler

 

[Kemal Demir]

Merhaba,

Private Sub UserForm_Initialize()
For x = 1 To Sheets.Count
ComboBox1.AddItem Sheets(x).Name & " " & "-" & " " & Sheets(x).Cells(1, 2)
Next
End Sub

Yukarıdaki kod zannedersem işinizi görür.

 

[aydın3838]

hata verdi yanlışmı yaptım acaba

user form7 nin kod sayfasına yapıştırdım fakat hata veriyor

Private Sub UserForm_Initialize()
For x = 1 To Sheets.Count

ComboBox1.AddItem Sheets(x).Name & " " & "-" & " " & Sheets(x).Cells(1, 2)
Next
End Sub

 

[aydın3838]

bir eksiklik var bulamdaım sayfa ismi falan olabilirmi

 

[aydın3838]

şuan kullandığım kod bu


Private Sub UserForm_Initialize()
Dim syf As Worksheet
For Each syf In Worksheets
If syf.Name <> "menü" Then
ComboBox1.AddItem syf.Name
End If
Next
End Sub

combodaki kodda bu

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Value).Select
ComboBox1.Value = ""
End Sub


bu kodlarla sayfa isimlerini görüyorum

benim istediğimse sayfa 1 a2 deki sıralı isimleride comboda sayfa ismiyle yanyana görmek mümkünmü

kemal beyin kodlarını uyarlamaya çalıştım ama hata verdi

 

[aydın3838]

yardım edecek biri yokmu arkadaşlar

 

[halit3]

örnek dosyanızı gönderin gönderemiyorsanız yeniden boş excell dosyası oluşturun ve sayfa isimlerini kendi dosyanızdaki gibi yapın ve buraya gönderin bu durumda ben şahsen birşey anlamadım ki nasıl yardımcı olalım

 

[aydın3838]

örnek dosya

halit bey örnekte resimli ve detaylı anlatımı var

formu hazırladım size bir kodlar kaldı

teşekkürler

 

[halit3]

bu kodu denermisin

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

 

[halit3]

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

 

[aydın3838]

halit bey
denedim fakat sadece isimleri sayfa 1 yanında göteriyor

benim istediğimse

misal yeni bir sayfa ekledim

bu sayfanın adını 1 numara verdim

comboda görülmesi gereken 1 yalçın
......................................2 ahmet
......................................3 mehmet

olması gerekiyor

sizinki ise sadece sayfa 1 de olanı sayfa 1 le birlikte gösteriyor

ilginize teşekkürler

 

[halit3]

şimdi eklediğin sayfalardaki b2 hücresindekileri aşağıya doğru gösterir buralar boşsa göstermez eğer butün sayfalarda eynı kişileri göstereceksen

aşağıdaki kodu kullan

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

 

[aydın3838]

halit bey olmadı

aynı isimden ve numaradan bir düzine oldu

örnek ikiyi incelediyseniz ayrıntılı olarak anlattığıma inanıyorum

sayfa 1 a2 deki rakamı müşteri kodu olarak sayfa ismi yapıyorum fazla yer kaplamasın diye

sayfa1 b2 ise müşteri ismidir

combodan sayfaya verdiğim isimleri görüyorum

ama 200 sayfa olduğunu varsayalım

işte o zaman müşterinin isminide görme ihtiyacı doğuyor

 

[aydın3838]

örnek

isterseniz çalışmayı olduğu gibi gödereyim


ana sayfada tahsilat butonu var

basınca msg box a evet dendiğinde müşteri sayfası seçimi gelir

oradan da anlaşılacağı gibi comboda sadece sayfa ismi olarak rakamlar var

seçildiğinde isi müşterinin sayfasına gider

ama isimsiz bulunması zor olur bunu kolaylaştırmak için ise isim gerekiyor

 

[halit3]

bu olurmu

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

 

[halit3]

tamamda senin sayfalarının bazıları bu listede gözükmemesi lazım öyle değilmi

 

[halit3]

birde bunu dene

Private Sub UserForm_Initialize()
sat = 2
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = "Sayfa1" Then
ElseIf Sheets(i).Name = "Sayfa2" Then
ElseIf Sheets(i).Name = "ANA" Then
ElseIf Sheets(i).Name = "KASA" Then
ElseIf Sheets(i).Name = "MÜŞTERİ KARTI" Then
ElseIf Sheets(i).Name = "TAKSİT KARTI" Then
Else
ComboBox1.AddItem Sheets(i).Name & " " & Worksheets("Sayfa1").Cells(sat, 2).Value
sat = sat + 1
End If
Next i
End Sub

 

[aydın3838]

halit bey hatalar var

1 sayfa 1 a1 deki numaraları alması gerekiyor

çünki sayfa isimleridir

2 seçili sayfaya gitmiyor

3 sadece 5 satır listeleniyor

ilginize teşekkürler

 

[halit3]

ekli dosyaya bir bak

 

[aydın3838]

tamamda senin sayfalarının bazıları bu listede gözükmemesi lazım öyle değilmi

...............................................