sayfa isimlerini oluşturmak

[yucel baygul]

dosyadaki listede A sütunundaki numaraları sayfa ismi yapmak istiyorum. (dosyadada anlatmaya çalıştım.) bunu nasıl yaparım.
ilgilenelere teşekkürler.

 

[excel03]

merhaba;

Sub SayfaOlustur()
Dim alan As Range
sonsat = (Sheets("Sayfa1").Cells(65536, "A").End(3).Row)
Set alan = Range("a2:a" & sonsat)
For i = 1 To alan.Cells.Count
Set nwsht = Worksheets.Add
nwsht.Name = alan.Cells(i)
Next
End Sub

 

[yucel baygul]

sn excel03 anlamadım. nasıl yapacağımı biras açıklarmısınız.

 

[excel03]

sn excel03 anlamadım. nasıl yapacağımı biras açıklarmısınız.

merhaba;
örnek ektedir.

 

[yucel baygul]

teşekkürler sn excel03

 

[mahmutozdemir]

aynı olayı tablo cizilmis bir sayfayı çoğaltarakta yapabilirmiyiz.O isimleri tablo oluştursuğumuz sayfayı çoğaltarak verebilirmi

 

[mahmutozdemir]

Ek dosyayı inceleyebilirmisiniz.

 

[excel03]

merhaba;
örnek dosya ektedir.

 

[mahmutozdemir]

excel03 teşekkürler.

 

[mahmutozdemir]

Slm aşagıdaki kod a sutundaki bütün verileri sayfaya ceviriyor. Bunu nasıl sadece a2 hücresini sayfaya çevirsin şeklinde yapabiliriz.Yani sadece a2 de neyse o isimle tablo sayfasını kopyalasın

Sub SayfaOlustur()
On Local Error GoTo 10
Dim alan As Range
sonsat = (Sheets("Sayfa1").Cells(65536, "A").End(3).Row)
Set alan = Sheets("Sayfa1").Range("a2:a" & sonsat)

For i = 1 To alan.Cells.Count
Sheets("tablo").Select
Sheets("tablo").Copy After:=Sheets(2)
ActiveSheet.Name = alan.Cells(i)
Next
10:
If Err.Number = 1004 Then
MsgBox "Bu sayfa zaten mevcut."
End If
Sheets("Sayfa1").Select
End Sub

 

[excel03]

merhaba;

Sub HucreselSayfaOlustur()
On Local Error GoTo 10
Sheets("tablo").Select
w = Sheets("tablo").Range("a2").Value
Sheets("tablo").Copy After:=Sheets(2)
ActiveSheet.Name = w
10:
If Err.Number = 1004 Then
MsgBox "Bu sayfa zaten mevcut." & Chr(10) & _
"Oluşturulan bu sayfa silinecek!"
Sheets("tablo (2)").Delete
End If
Sheets("tablo").Select
End Sub

 

[mahmutozdemir]

Slm,a sutunundaki verileri bir tıklamayla sayfa adlarına ceviriyor.
1-a sutundaki bir verinin silinmesiyle o sayfada silinsin veya a sutundaki bir veri değiştirilirse o sayfada ismide değişsin.(örnek A3 de 2 var 2 yi silersem 2 adındaki sayfada silinsin veya A3 deki 2 yi 50 yapınca 2 adındaki sayfada 50 adını alsın)
2-yeni isim ekleyince o isme ait yeni bir sayfa acılsın şeklinde nasıl değiştirebiliriz.(örnek a31 de verilerimiz bitiyor.Yani a31 boş orayaya yeni bir veri ekleyince butona basınca o isimdede yeni sayfa üretsin)

 

[mahmutozdemir]

Bu kodla oluyor teşekkür ederim ilginiz için
Sub HucreselSayfaOlustur()
On Local Error GoTo 10
Sheets("ANASAYFA").Select
w = Sheets("ANASAYFA").Range("A1").Value
Sheets("KAYIT").Copy After:=Sheets(2)
ActiveSheet.Name = w
10:
If Err.Number = 1004 Then
MsgBox "Bu sayfa zaten mevcut." & Chr(10) & _
"Oluşturulan bu sayfa silinecek!"
Sheets("KAYIT (2)").Delete
End If
Sheets("KAYIT").Select
End Sub