comboboxa alınan sayfa isimlerinin yanında istenen hücrenin gözükmesi

[muratozmenler]

For a = 1 To Sheets.Count
If Sheets(a).Name = "ÖRNEK" Or Sheets(a).Name = "ANA" Then GoTo 10
ComboBox3.AddItem Sheets(a).Name
10 Next

comboboxa bu şekil sayfa isimlerini aldırıyoruz bunlarla birlikte b1 hücresinide göstertebilirmiyiz

 

[Recep İpek]

ComboBox3.AddItem Sheets(a).Name & Sheets(a).Range("b1")

olarak deneyebilir misiniz?

 

[muratozmenler]

ComboBox3.AddItem Sheets(a).Name & Sheets(a).Range("b1")

olarak deneyebilir misiniz?

TEŞEKKÜR EDERİM
fakat bu seferde comboboxta seçili sayfaya gitmesini istediğimde hata verdi
sheets(combobox3.text).select kodunuda kullanıyoum içeriyi değişti için hata verdi bunu düzeltmemizin bir yolu varmı?

 

[halit3]

bunu denermisiniz?

For a = 1 To Sheets.Count
If Sheets(a).Name = "ÖRNEK" Then
ElseIf Sheets(a).Name = "ANA" Then
Else
ComboBox3.AddItem Sheets(a).Name
End If
Next

 

[muratozmenler]

For a = 1 To Sheets.Count
If Sheets(a).Name = "ÖRNEK" Then
ElseIf Sheets(a).Name = "ANA" Then
Else
ComboBox3.AddItem Sheets(a).Name
End If
Next

sayın halit bey sayfa isimlerini almada problem yaşamıyorum ilk mesajımda da belirtiğim gibi sayfa isimlerini comboboxa aldırıyorum bununla birlikte b1 hücresinide comboboxun içinde yani hangi sayfa seçili ise onun b1 hücresinde yazanıda comboboxa alınan sayfa isminin yanında almak istiyordum.sayın recep ipek beyin verdiği

ComboBox3.AddItem Sheets(a).Name & Sheets(a).Range("b1")

kodla bunu hallettim fakat bu seferde comboboxta seçili sayfaya gitmek istediğimizde hata verdi.bu sorunu nasıl halledebiliriz.

 

[Recep İpek]

Aşağıdaki şekilde deneyebilir misiniz?

Private Sub ComboBox1_Change()
veri = Split(ComboBox1.Text, " - ")
Sheets(veri(0)).Select
End Sub

 

[muratozmenler]

çok teşekkür ederim Recep bey sorunsuz...