Çalışma sayfası ekleme ??

[burch1975]

Merhaba Arkadaşlar..Excelde alttaki (Sayfa1..Sayfa2) çalışma sayfalarına en az 187 çalışma sayfası eklemek istiyorum.Amacım şimdilik 187 olan firma sayısı kadar sayfa eklemek..ardından ilk başa bu firmaların listesini yapıp köprü ekleyerek firmanın kayıtlı olduğu sayfaya gitmek..sayfa adlarına firma isimleri sığamayacağından sıra no vermeği düşünüyorum..bir aralar biyerde bir makro görmüştüm küçük bir input penceresi açılıyor o penceredeki boşluğa açmak istediğiniz kadar sayfa sayısını girin diyordu..ama hatırlamıyorum nerde gördüğümü..makrolardanda pek anlamıyorum.en pratik şekilde nasıl istediğim kadar çalışma sayfası açabilirim.ilgilenenler şimdiden teşekkür ederim...

 

[İhsan Tank]

merhaba
bu kod ile hem sayfa ekleyip hemde isim verebilirsin

Sub ekle()
Dim x As Object
Dim neu$, mldg$, title$
Dim ergebnis%, stil%
    neu = InputBox("Bitte Namen des neuen Arbeitsblattes eingeben:")
    For Each x In ActiveWorkbook.Sheets
    If x.Name = neu Then
        mldg = "Blattname existiert bereits!"
        stil = vbCritical + vbOKOnly
        title = "Achtung"
        ergebnis = MsgBox(mldg, stil, title)
        Exit Sub
    End If
    Next x
    Sheets.Add
    ActiveSheet.Name = neu
    Sheets(neu).Select
    With ActiveSheet.PageSetup
        .LeftMargin = Application.CentimetersToPoints(1)
        .RightMargin = Application.CentimetersToPoints(1)
    End With
End Sub

veya bu kodu dene

Sub SayfaEkleAdlandir()
Dim cpt As Integer
cpt = 1
Do While cpt < [COLOR="Blue"]15[/COLOR]    ' 3 sayfa ekler
' Sayfa ekler
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
' Sayfayı yeniden adlandır
Application.ActiveSheet.Name = "[COLOR="Red"]1[/COLOR] " & CStr(cpt)
cpt = cpt + 1
Loop
End Sub

mavi ile belirtilen yer sayfa adedinin 1 eksiği kadar yani 15 ise 14 sayfa açar
kırmızı ile belirtilen ver sayfaya verilen ad

kodlar siteden (ç)alıntıdır.

 

[burch1975]

teşekkür ederim ilgine arkadaşım..işimi görür..

 

[İhsan Tank]

teşekkür ederim ilgine arkadaşım..işimi görür..

rica ederim iyi çalışmalar