bir satırdaki hücreleri seçrek hücredeki verinin adında çalışma sayfası oluşturma

[Nadir46]

Sayın Excel Ustaları Merhaba ACİL!!
A B C satırındaki verileri seçerek o hücredeki veriyi içeren isimli çalışma sayfası (sekme) nasıl açılır?
Örneğin; hücrelerindeki verileri (Ahmet-Mehmet-Fatma) satırındaki seçmek ve makroyu çalıştırdığımda o hücredeki verinin adında bir çalışma sayfası oluştursun istiyorum.
Seçeceğim hücre 1 tane de olabilir. 100 tane de olabilir.

A1: Elma
B1: Hasan
C1: Manisa

üçünü seçtiğimde ve makroyu çalıştırdığımda
altta, ELME HASAN MANİS , isimli çalışma sayfaları.

şimdiden teşekkkür ederim.
Saygılarımlar

 

[Mustafa MUTLU]

Sayfa1 A1 e göre sayfa oluşturur.
Kendine göre uyarlarsın..

Sub Sayfa_olustur()
Dim i, NewSh
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
End Sub

 

[Nadir46]

cevabını için teşekkür ederim. Fakat sadece A1 için oluşturuyor.
oluşturmak istediğim hücrelerin yerleri değişken.
Seçerek oluşturmam mümkün değil mi?

 

[Nadir46]

Bir sorum daha olacak, bu formülle oluşturulan sayfa hücredeki adını alırken, aynı zamanda da sayfayı kopyalayarak çoğalmasını istiyorum
Teşekkür ederim

 

[Nadir46]

Sayfa1 A1 e göre sayfa oluşturur.
Kendine göre uyarlarsın..

Birden fazla hücre seçerek mevcut sayfayı kopyalamasını ve seçilen hücredeki verileri içeren sayfa oluşturmasu mümkün mü?
Bu formül sadece A1 hücresindeki veri adında bir sayfa oluşturuyor..

Teşekkür ederim