Hücredeki Değere Göre Yeni Sayfa Ekleme
20 Nisan 2021
26 Nisan 2021
1127
Hücredeki Değere Göre Yeni Sayfa Ekleme kodu, A1 hücresine 1 yazıldığı zaman yeni bir sayfa ekleme işleminin nasıl yapılacağını öğretmektedir.
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 SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- 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.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Bir sayfanın A1 hücresindeki değer 1 ise, kodlar devreye girer ve yeni bir sayfa ekleme işlevini yerine getirir.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Bir Hücre Sola Git | ← |
| Bitişik Olmayan Hücrelerde Sola Gitme | Ctrl Alt ← |
| Şerit Menü simgeleri arasında dolaşma | Tab |
| Aktif Pencereyi Kapatma | Ctrl W |
| İşlem Yapılmış En Alt Hücreye Gitme | Ctrl End |