Vba kullanarak excel'e yeni sayfalar nasıl eklenir?

Bir Excel çalışma kitabına yeni sayfalar eklemek için VBA’da aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Yeni bir sayfa ekleme

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Bu makro, çalışma kitabında temsil ettiği sayfa numarasını açıklayan, otomatik olarak oluşturulan bir adla çalışma kitabına yeni bir sayfa ekleyecektir.

Örneğin çalışma kitabında üç sayfa varsa ve bu makroyu çalıştırırsanız Sayfa4 adında yeni bir sayfa oluşturulur.

Not : Varsayılan olarak VBA, yeni sayfayı o anda etkin olan sayfanın hemen öncesine ekleyecektir.

Yöntem 2: Birden çok yeni sayfa ekleme

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

Bu makro çalışma kitabına üç yeni sayfa ekleyecektir.

Yöntem 3: Adlı yeni bir sayfa ekleme

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

Bu makro çalışma kitabına MyNewSheet adında yeni bir sayfa ekleyecektir.

Yöntem 4: Belirli bir sayfadan önce adı olan yeni bir sayfa ekleme

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

Bu makro, çalışma kitabına Teams adlı mevcut sayfanın hemen öncesine MyNewSheet adında yeni bir sayfa ekleyecektir.

Yöntem 5: Belirli bir sayfadan sonra adı olan yeni bir sayfa ekleme

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

Bu makro, çalışma kitabına Teams adlı mevcut sayfanın hemen sonrasına MyNewSheet adında yeni bir sayfa ekleyecektir.

Yöntem 6: Çalışma kitabının sonuna adı olan yeni bir sayfa ekleme

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

Bu makro, çalışma kitabına, çalışma kitabının en sonuna MyNewSheet adında yeni bir sayfa ekleyecektir.

Yöntem 7: Çalışma kitabının başına adı olan yeni bir sayfa ekleme

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

Bu makro, çalışma kitabının en başına MyNewSheet adında yeni bir sayfa çalışma kitabına ekleyecektir.

Aşağıdaki örnekler, her yöntemin, mevcut üç sayfa içeren aşağıdaki Excel çalışma kitabıyla pratikte nasıl kullanılacağını gösterir:

Örnek 1: Yeni bir sayfa ekleme

Çalışma kitabına otomatik olarak oluşturulan adla yeni bir sayfa eklemek için aşağıdaki makroyu oluşturabiliriz:

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Bu makroyu çalıştırdığımızda çalışma kitabına, makroyu çalıştırırken seçmiş olduğumuz Teams sayfasının hemen önüne Sheet4 adında yeni bir sayfa ekleniyor:

Örnek 2: Birden fazla yeni sayfa ekleme

Çalışma kitabına otomatik olarak oluşturulan adlara sahip üç yeni sayfa eklemek için aşağıdaki makroyu oluşturabiliriz:

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

Bu makroyu çalıştırdığımızda çalışma kitabına, makroyu çalıştırırken seçmiş olduğumuz Teams sayfasının hemen öncesine üç yeni sayfa eklenir:

Örnek 3: Adlı yeni bir sayfa ekleme

Çalışma kitabına belirli bir adla yeni bir sayfa eklemek için aşağıdaki makroyu oluşturabiliriz:

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

Bu makroyu çalıştırdığımızda çalışma kitabına, makroyu çalıştırırken seçmiş olduğumuz Teams sayfasının hemen öncesine MyNewSheet adında yeni bir sayfa ekleniyor:

Örnek 4: Belirli bir sayfadan önce adı olan yeni bir sayfa ekleme

Çalışma kitabına mevcut belirli bir sayfanın hemen öncesine yeni bir sayfa eklemek için aşağıdaki makroyu oluşturabiliriz:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

Bu makroyu çalıştırdığımızda çalışma kitabına Teams sayfasının hemen öncesine MyNewSheet adında yeni bir sayfa eklenir:

Örnek 5: Belirli bir sayfadan sonra bir ad taşıyan yeni bir sayfa ekleme

Çalışma kitabına mevcut belirli bir sayfanın hemen sonrasına yeni bir sayfa eklemek için aşağıdaki makroyu oluşturabiliriz:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

Bu makroyu çalıştırdığımızda çalışma kitabına Teams sayfasının hemen sonrasına MyNewSheet adında yeni bir sayfa eklenir:

Örnek 6: Çalışma kitabının sonuna adı olan yeni bir sayfa ekleme

Çalışma kitabının en sonuna yeni bir sayfa eklemek için aşağıdaki makroyu oluşturabiliriz:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

Bu makroyu çalıştırdığımızda çalışma kitabının en sonuna MyNewSheet adında yeni bir sayfa eklenir:

Örnek 7: Çalışma kitabının başında adı bulunan yeni bir sayfa ekleme

Çalışma kitabının en başına yeni bir sayfa eklemek için aşağıdaki makroyu oluşturabiliriz:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

Bu makroyu çalıştırdığımızda çalışma kitabının en başına MyNewSheet adında yeni bir sayfa ekleniyor:

Not : Sheets.Add yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Son kullanılan satırı nasıl bulabilirim?
VBA: Son kullanılan sütun nasıl bulunur?
VBA: Bir çalışma kitabındaki sayfaların sayısı nasıl sayılır?