makro yenı sayfa adlandırma makrosu

[burackx]

merhabalar. yapmıs olacagımız bır makro dugmesı ıle yenı calısma sayfası ekleyecek ve bu sayfaya sıralı olarak kw 1,kw 2, kw3 ekleyecek.her hafta basılcak ve 1 sayfa soluna 1 ust numarayı ekleyecek.örn kw 6 var basınca bu sayfanın yanına kw 7 calısma sayfası ekleyecek ve formatları aynı olacak, ofis 2003 kullanıyorum yardımlarınız ıcın tesekkurler

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkbook'un sayfasına kopyalayıp deneyiniz.

Herhangi bir sayfada herhangi bir hücreye çift tıkladığınızda KW ile başlayan sayfayı açacaktır.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
    Dim YesNo   As String
    Dim i       As Integer
    Dim j       As Integer
    Dim No      As Integer
    Dim Sayfa   As String
 
    Sayfa = ActiveSheet.Name
 
    For i = 1 To Sheets.Count
        If Sheets(i).Name Like "KW *" Then
            No = Split(Sheets(i).Name, " ")(1)
            If No > j Then j = No
        End If
    Next i
 
    j = j + 1
 
    YesNo = MsgBox("KW " & j & " Sayfasını Açmak İstiyor musunuz?", vbYesNo, "SAYFA AÇMA")
 
    If YesNo = vbYes Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "KW " & j
        Sheets(Sayfa).Select
    Else
        MsgBox "Sayfa Açmaktan Vazgeçtiniz...."
    End If
 
End Sub