sayı ile başlayan sayfa isimlerini comboboxa aldırmama

[muratozmenler]

çok sayıda ve isimleri belli olmadığı için sayı ile başlayan sayfaları comboboxa aldırmamak istiyordum. bir diğeride sadece sayı ile başlayan sayfaları comboboxa aldırmak istiyordum.

 

[Ömer]

Merhaba,

Private Sub UserForm_Initialize()
For İ = 1 To Sheets.Count
If Sheets(İ).Name <> "Sayfa1" Then
If IsNumeric(Left(Sheets(İ).Name, 1)) = True Then
ComboBox1.AddItem Sheets(İ).Name
End If
End If
Next
End Sub

Bu şekilde deneyin.

 

[Orion1]

Dosyanzı ekte
Tireden öncekileri değerlendiririr.

Private Sub UserForm_Initialize()
On Error Resume Next
For i = 1 To Sheets.Count
isim = InStr(Sheets(i).Name, "-")
sayfa = Left(Sheets(i).Name, isim - 1)
If Len(sayfa) > 0 And IsNumeric(sayfa) Then ComboBox1.AddItem sayfa
Next
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

 

[muratozmenler]

her iki isteğimide tek bir cevapla verdiniz teşekkür ederim...

 

[Skorpiyon]

Biz yazana kadar 10 cevap gelmiş

Private Sub UserForm_Activate()
For i = 1 To Sheets.Count
If Not IsNumeric(Mid((Sheets(i).Name), 1, 1)) Then
ComboBox1.AddItem Sheets(i).Name
Else
ComboBox2.AddItem Sheets(i).Name
End If
Next i
End Sub

 

[Orion1]

her iki isteğimide tek bir cevapla verdiniz teşekkür ederim...

Yanılıyorsunuz.Aşağıdaki isimde bir sayfa oluşturup deneyin.
1lj-sss

 

[muratozmenler]

Verdiğiniz cevaplar sorunumu çözdü ayrı ayrı teşekkür ederim cevaplar için...