ComboBox ve UserForm Hakkında

[eftel]

Herkese merhaba,
Userformun üzerinde bir adet textbox var bu textboxun içine sayfa ismi yazıp command butonada basınca yeni sayfa oluşturuyor. Oluşan sayfalara userformun üzerindeki listwievden verileri aktarıyorum. Aktarma yaparkende comboboxtan sayfaları secip yapıyorum ama textboxa yazıp oluşturduğum sayfa isimleri comboboxta gözükmüyor. Userformu açıp kapatınca comboboxa sayfa isimleri geliyor. Comboda sayfa oluşturduğum sayfa isimlerinin ,userformu açıp kapamadan nasıl gösterebilirim ?

 

[djoguzz]

Herkese merhaba,
Userformun üzerinde bir adet textbox var bu textboxun içine sayfa ismi yazıp command butonada basınca yeni sayfa oluşturuyor. Oluşan sayfalara userformun üzerindeki listwievden verileri aktarıyorum. Aktarma yaparkende comboboxtan sayfaları secip yapıyorum ama textboxa yazıp oluşturduğum sayfa isimleri comboboxta gözükmüyor. Userformu açıp kapatınca comboboxa sayfa isimleri geliyor. Comboda sayfa oluşturduğum sayfa isimlerinin ,userformu açıp kapamadan nasıl gösterebilirim ?

örnek dosya ekleyebelir misiniz ?

 

[eftel]

Teşekkürler dosyayı ekte gönderiyorum.
TextBox1 e ali ali yazıp dosya oluştur dediğimde sayfayı oluşturuyor ancak, userformu kapatıp tekrar açmadan combobox listesinde görünmüyor. Kodları formdan derlemiştim.

 

[accountant80]

2003 kullandığımdan dosyayı açamıyorum ama sayfayı oluşturmak için kullandığınız bütona
unload me
ardından tekrar
userform"".show

derseniz tuşa basınca kendini kapatır ve yeniden açar böylece listede görünür.

 

[eftel]

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


Private Sub CommandButton1_Click()
Dim sayf As Worksheet
syf = UCase(Replace(Replace(TextBox1.Value, "ı", "I"), "i", "İ"))
If syf = "" Then Exit Sub
For Each sayf In Worksheets
    If syf = UCase(Replace(Replace(sayf.Name, "ı", "I"), "i", "İ")) Then
        MsgBox syf & " İsimli sayfayı zaten oluşturmuştunuz", vbCritical, "UYARI"
        Exit Sub
    End If
Next
Sheets.Add , Sheets(Sheets.Count)
Worksheets(Worksheets.Count).Name = syf
MsgBox syf & " ADINDA SAYFA OLUŞTURULDU ", vbOKOnly + vbInformation, "BİLGİ"

Sheets("Sayfa1").Select
End Sub

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

kodlar bunlar, ayrı bir buton eklemeden yapmamız mümkün değil mi ?

 

[eftel]

butonun içene ekleyince, userform üzerindeki listwiewden vs veriler kayboluyor.

 

[accountant80]

Userformun adı ne ?

 

[eftel]

UserForm1 userformun adı

 

[accountant80]

Ağaıdaki koda ekleme yaptım dener misiniz ?
Sayfa oluşturduktan sonra formu kapatıp tekrar açacak böylece comboboxlar güncellenecek.

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


Private Sub CommandButton1_Click()
Dim sayf As Worksheet
syf = UCase(Replace(Replace(TextBox1.Value, "ı", "I"), "i", "İ"))
If syf = "" Then Exit Sub
For Each sayf In Worksheets
    If syf = UCase(Replace(Replace(sayf.Name, "ı", "I"), "i", "İ")) Then
        MsgBox syf & " İsimli sayfayı zaten oluşturmuştunuz", vbCritical, "UYARI"
        Exit Sub
    End If
Next
Sheets.Add , Sheets(Sheets.Count)
Worksheets(Worksheets.Count).Name = syf
MsgBox syf & " ADINDA SAYFA OLUŞTURULDU ", vbOKOnly + vbInformation, "BİLGİ"
unload userform1
userform1.show
Sheets("Sayfa1").Select
End Sub

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

 

[eftel]

Teşekkür ederim halloldu.

 

[accountant80]

Teşekkür ederim halloldu.

Rica ederim