Excelde Şablon Sayfa oluşturma

[tufan03]

Taşınır Mal yönetmeliğine göre şimdilik tüketime dönük taşınırlarla ilgili bir çalışma yapıyorum. İnşallah Sitede daha önce başlatılan Stok programı gibi yarım kalmaz. Başarılı olursak hep beraber paylaşırız. Bununla ilgili soruları bundan böyle Depo programı adı altında sormayıda düşünüyoruz.
İlk sorum şöyle elimizde bir adet örneğine uygun Tüketim Malzemeleri defteri örneği var,bu örneğe şablon dedim ve sayfa adı "ŞABLON"
Şablon sayfasından yeteri kadar makro ile çoğaltmak istiyorum,elde edilecek sayfaların isimleri 1,2,3,4,5,6,7 diye konacak, istediğimiz sayı aralığında istediğimiz kadar sayfa üretebilelim,mesela makroyu çalıştırdığımız zaman hangi aralıkta şablon sayfası üreteceğimi sorsun ben 14:50 aralığında adları 14,15......49.50 olan 37 adet şablon sayfayı oluşturayım,bazen 1 adet şablon sayfasıda oluşturmak isteyebiliriz. Aynı zamanda aynı yöntemle önceden oluşturulmuş isteğimiz sayfalarıda silebilelim. Yıl sonunda yine bu sayfalarda bulunan (istediğimiz sayfaları) belli aralıklarında bulunan bilgileri silebilelim.Şimdilik bu kadar. Teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Örneği inceleyiniz.
Private Sub CommandButton1_Click()
Dim i As Integer
If TextBox1.Value = "" Then
MsgBox "Sayfa Adını Yazmadınız.."
Exit Sub
End If
For i = 1 To Worksheets.Count
If Worksheets(i).Name = TextBox1.Value Then
MsgBox "Bu İsimde Bir Sayfa Var.."
Exit Sub
End If
Next i
Sheets("ŞABLON").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = TextBox1.Value
End Sub

 

[Necdet]

Şablon Çoğaltma

Benimde çalışmam aşağıdaki gibi.

Değişik örnekleri görmek isterim.

Sub Sablon_Cogalt()
' Keyboard Shortcut: Ctrl+M
Dim BasNo, SonNo As Integer
Application.ScreenUpdating = False
On Error GoTo Son
BasNo = InputBox("Kaçıncı Numaradan Başlanacak?", "Başlangıç Numarası Alma", Sheets.Count)
If BasNo = Cancel Then GoTo Son
SonNo = InputBox("Son Numara ?", "Adet Alma", 5)
If SonNo = Cancel Then GoTo Son
For i = BasNo To SonNo
    Sheets("Şablon").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = i
Next
Son:
End Sub

Sub Sayfa_Sil()
' Keyboard Shortcut: Ctrl+L
'
 
On Error GoTo Son
BasNo = InputBox("Kaçıncı Numaradan Başlanacak?", "Başlangıç Numarası Alma", 1)
If BasNo = Cancel Then GoTo Son
SonNo = InputBox("Son Numara ?", "Adet Alma", Sheets.Count - 1)
If SonNo = Cancel Then GoTo Son
For i = 2 To Sheets.Count
    If Sheets(i).Name >= BasNo And Sheets(i).Name <= SonNo Then
        Sheets(i).Select
        ActiveWindow.SelectedSheets.Delete
    End If
Next
Son:
End Sub

 

[tufan03]

Sayın V.Basic For'un kodlarını çalıştıramadım.
Sayın Necdet YESERTENER' in verdiği örnekte 30 adetten fazla kopyalama yapmıyor,acaba benmi bir yerde hata yaptım. Selamlar.

 

[Necdet]

50 adet oluştur dedim ve yaptı. Zaten bir sınır koymamıştım bende

 

[tufan03]

Dosyayı ekliyorum.

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyanıza ekledim bir bakın.

 

[tufan03]

Sayın V.Basic malesef çalışmıyor,Çerçeve içinde "Tehlikeli makro komutu saptandı.Bu script'i engelleyin diye mir mesaj geliyor bundan olabilirmi?

 

[N.Ziya Hiçdurmaz]

Kaspersky antivirüs kullanıyorsunuz sanırım ondan kaynaklanıyordur.Normalde çalışması lazım.

 

[efsane81]

slm dosyları indiremiyorum linkler kırık sanırım

 

[Ömer]

slm dosyları indiremiyorum linkler kırık sanırım

Merhaba,

Kodlar ekranda olduğu için sizde hazırlayabilirdiniz. 2 ayrı çalışma ile ilgili dosya ektedir..

İyi çalışmalar..