Merhabalar
Aşağıdaki şekilde bir kod buldum lakin tam olarak istediğim işlemi yapmıyor.
Ekli dosyada da belirttiğim gibi
C sütununa gireceğim verile göre sayfa açmasını ve
isimlendirmesini istiyorum.
Yeni açacağı sayfayı
makroyu çalıştıracağımız sayfayı herşeyiyle kopyalayarak
oluşturacak
Şayet el altında link var ise link paylaşımı yok ise eğer
Konuya hakim değerli üstadların yardımlarını bekliyorum
saygılarımla.
Private Sub Worksheet_Change(ByVal Target As Range)
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
Sheets("Sayfa1").Select
Range("A1").Select
Selection.ClearContents
Set NewSh = Nothing
End Sub
Aşağıdaki şekilde bir kod buldum lakin tam olarak istediğim işlemi yapmıyor.
Ekli dosyada da belirttiğim gibi
C sütununa gireceğim verile göre sayfa açmasını ve
isimlendirmesini istiyorum.
Yeni açacağı sayfayı
makroyu çalıştıracağımız sayfayı herşeyiyle kopyalayarak
oluşturacak
Şayet el altında link var ise link paylaşımı yok ise eğer
Konuya hakim değerli üstadların yardımlarını bekliyorum
saygılarımla.
Private Sub Worksheet_Change(ByVal Target As Range)
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
Sheets("Sayfa1").Select
Range("A1").Select
Selection.ClearContents
Set NewSh = Nothing
End Sub
Ekli dosyalar
-
27.5 KB Görüntüleme: 18