hücredeki veri adıla sayfa oluşturma

[mahmutozdemir]

Slm ,sayfa ekle butonuna basınca a1:e1 arasında yazan veri adında sayfa oluşturmak istiyorum

 

[İhsan Tank]

Slm ,sayfa ekle butonuna basınca a1:e1 arasında yazan veri adında sayfa oluşturmak istiyorum

Merhaba
Boş bir module kopyalayın ve deneyin

Sub sayfa_ekle_61()
Dim ts, trabzonspor
trabzonspor = MsgBox(Range("A1") & vbLf _
& "İsminde Sayfa Ekliyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
ts = Range("A1")
Sheets.Add
ActiveSheet.Move before:=Sheets(3)
ActiveSheet.Name = ts
MsgBox ts & vbLf _
& "Sayfası Eklendi", , "Bitiş"
End Sub

 

[mahmutozdemir]

İhsan bey,
Boş excel sayfası yerine tablo yazan bir sayfam var bu sayfayının kopyasını oluşturabilirmiyiz.