Hücreye çift tıklayınca yeni sayfa açılsın

[cagatayyuc]

Merhaba arkadaşlar,
Benim sorum sayfa içerisinde 4 üncü kolondaki bir hücreye çift tıkladığım zaman yeni bir sayfa açılsın ve açılan sayfanın adı hücrenin içeriği olsun.

 

[Ali]

Merhaba arkadaşlar,
Benim sorum sayfa içerisinde 4 üncü kolondaki bir hücreye çift tıkladığım zaman yeni bir sayfa açılsın ve açılan sayfanın adı hücrenin içeriği olsun

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
i = Target.Value
Sheets.Add
ActiveSheet.Name = i
End Sub

 

[cagatayyuc]

Teşekkürler

Teşekkür ederim yardımlarınız için.

 

[Metin Karaağaç]

Selamlar.
Peki D sütununda daha önce aynı ismi yazmış isek, bir uyarı penceresi açılmasını ve bizi uyarmasını sağlayabilirmiyiz?

 

[Necdet]

Selamlar.
Peki D sütununda daha önce aynı ismi yazmış isek, bir uyarı penceresi açılmasını ve bizi uyarmasını sağlayabilirmiyiz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
i = Target.Value
For j = 1 To Sheets.Count
    If Sheets(j).Name = i Then
        MsgBox i & " isimle sayfa zaten var"
        Exit Sub
    End If
Next j
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = i
End Sub

 

[Metin Karaağaç]

Teşekkürler..