Sheet'leri listbox'ta linkli olarak listelemek..

[ugursirin]

Merhaba daha önce de belirttiğim gibi yazdığım öğrenci takip programında her sheet bir öğrenci sayfasıdır. Her öğrencim için bir sheet açıyorum.

Elle kopyalamak yerine bir buton ile "A" isimli bir sheet'i yapı ve veri olarak aynen kopyalaması mümkün müdür?

Diğeri ise tüm sheetlerimi bir listbox'da listeyelerek tıkladığım sheet'i ekrana getirmesini sağlayan bir makro için yardımcı olabilir misiniz?

Yardımlarınız için şimdiden teşekkür ederim..

 

[ugursirin]

Sheet kopyalama çözümü..

Merhaba, yabancı bir kaynaktan bulduğum kod ile sheet kopyalama olayını çözdüm.

ÇÖZÜM:

Sub Yeni_Ogrenci()
     Dim sName As String
     Dim wks As Worksheet
     Worksheets("Öğrenci - 2011-").Copy after:=Sheets(Worksheets.Count)
     Set wks = ActiveSheet
     Do While sName <> wks.Name
         sName = Application.InputBox _
           (Prompt:="Enter new worksheet name")
         On Error Resume Next
         wks.Name = sName
         On Error GoTo 0
     Loop
     Set wks = Nothing
 End Sub

Bu şekilde Şablon halindeki öğrenci formumu kopyalayarak yeni bir sheet açıyor ve bu benim yeni bir öğrenci kaydı açmamı sağlamış oluyor.

Yarın birgün ihtiyacı olan arkadaşlara saygılarımla..

Listbox'da sheetleri sıralama problemi için hala arayıştayım..

 

[İhsan Tank]

Merhaba
Dosya ekleseydiniz yardımı çoktan almış olacaktınız

 

[Korhan Ayhan]

Merhaba,

ListBox nesnesi ile ilgili basit bir örnek dosya hazırladım. Artık siz kendinize uyarlarsınız.

 

[ugursirin]

Sayın Korhan AYHAN geceleri çalıştığım için mesajınızı yeni okudum. Bu problemi de çözmüş bulunmaktayız. İlginiz ve alakanız için çok teşekkür ederim. Program bitince yardım edenlerin isimleri adı altında yayınlamayı düşünüyorum. Tekrar teşekkürler iyi çalışmalar..

 

[ugursirin]

Merhaba
Dosya ekleseydiniz yardımı çoktan almış olacaktınız

Yine de cevabınız için teşekkür ederim.