Hücredeki Değere Göre Yeni Sayfa Ekleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
Faydalanılması temennisiyle
[*]Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
Hazır Kod
VBA:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" And Target.Value = 1 Then
Dim sayfa As Worksheet
Dim önek As String
Dim sonek As Integer
Set Sayfam = Worksheets.Add
önek = "Sayfam"
SonEkim = 1
On Error Resume Next
Sayfam.Name = önek & sonek
If Err.Number <> 0 Then
önek = sonek + 1
Sayfam.Name = önek & sonek
End If
End If
End SubAçıklama
Bir sayfanın A1 hücresindeki değer 1 ise, kodlar devreye girer ve yeni bir sayfa ekleme işlevini yerine getirir.Faydalanılması temennisiyle
