Yeni Sayfa Yaratma ve Silme İşlemi

[Mustafa MUTLU]

Aşağıdaki kodlarla a1 deki isme göre yeni sayfa oluşturuyorum.
Aynı işlemin tersini yani,
A1 de isimi yazılı sayfayı nasıl silerim ?.

KOD :

If Not Sheets("Sayfa1").Range("A1") = Empty Then
For i = 1 To Worksheets.Count
If Sheets(i).Name = Sheets("Sayfa1").Range("A1") Then
MsgBox "Bu isimli bir sayfa mevcut..... !"
Exit Sub
End If
Next
Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
NewSh.Name = Sheets("Sayfa1").Range("A1")
End If
Set NewSh = Nothing

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If Range("A1") <> "" Then
        Application.DisplayAlerts = False
        Sheets(Range("A1").Text).Delete
        Application.DisplayAlerts = True
        MsgBox "Sayfa silinmiştir.", vbInformation
        Exit Sub
    End If
Son:
    Application.DisplayAlerts = True
    MsgBox "Sayfa bulunamadı !", vbInformation
End Sub

 

[Orion1]

Şimdi aklıma bir şey geldi.
Bizim bu excelci arkadaşlar ne çok sayfa ekleme ve sayfa silme işi yapıyorlar.
Acaba excelde sayfa silme ve sayfa ekleme olmasaydı ne yapacaklardı diye düşünüyorum!!
Mesela ben projelerimde bu tür eylemleri hiç kullanmam.

 

[Mustafa MUTLU]

Sayfa Bulunamadı diyor.

 

[Mustafa MUTLU]

Mesela ben projelerimde bu tür eylemleri hiç kullanmam.

Doğrudur Kullanmayabilirsin.
Ama Benim için kullanışlı oluyor.
Kişileri tek tek inceleme açısından.
Yeni Kaydettiğim her kişi için bir sayfa oluşturuyor.
Verilerinide o sayfaya kaydediyorum.

Kişiyi sil dediğimde ona ait bilgiler siliniyor ancak
sayfanında silinmesi iyi olurdu...

 

[Mustafa MUTLU]

Butona
Sadece şu kodu yazdım

Sheets(Range("A1").Text).Delete

İşimi gördü.

İlgine Teşekkür ederim.