Listboks Sayfa Arası Geçiş Görünme Problemi

[hasaona]

Merhaba ;

Yeni sayfa oluştur butonuna basınca yeni sayfa oluşturuyor.

Benim problemim her ayrı yeni sayfada texboksta yazdıgım herşey yeni açtıgım sayfada listboks eski sayfada takılı kalmaması. Listboks çalışıyor fakat yeni sayfa oluştur dediğimde yeni sayfa oluşturuyor.Ardından programı kapatıp tekrar açınca yeni sayfaya endeksleniyor. Bu şekilde olmamasın istiyorum. Yeni sayfa oluşturdugumda programı kapatmadan endekslenmesi


Yardımlarınızı rica ediyorum

 

[Korhan Ayhan]

Butondaki kodu aşağıdaki gibi değiştirip deneyiniz.

Private Sub CommandButton5_Click()
    Dim Sayfa As Worksheet
    Dim SayfaAdı As String
    
    SayfaAdı = Format(Now, "d_mmmm_yyyy_ss")
    
    For Each Sayfa In Worksheets
        If Sayfa.Name = SayfaAdı Then
            MsgBox "Bugüne Ait Kod Şablonu Mevcuttur."
            Exit Sub
        End If
    Next Sayfa
    
    Sheets.Add.Name = SayfaAdı
    Sheets(SayfaAdı).Move After:=Sheets(Sheets.Count)
    Sheets("Data").Range("A:IV").Copy _
    Sheets(SayfaAdı).Range("A1")
        
    ListBox2.Clear
    
    For a = 2 To Sheets.Count
    ListBox2.AddItem Sheets(a).Name
    Next
End Sub

 

[hasaona]

Öncelikle yardımınız için teşekkürler, Benim Problemim listbox1 ile. Yeni çalışma sayfası oluşturdugumda excel içine yazıyor fakat listboks programı kapatıp tekrar açtıgımda gösteriyor.