sheet ekle ama

[basridogan]

Command buttona tıkladığımda çalışma kitabına yeni br sayfa eklesin.Sayfanın adı (A1) deki değer olsun. Eğer bu isimde bir sayfa varsa eklemeden uyarsın istiyorum.

Böyle bir şey mümkün mü? Yardımcı olursanız sevinirim.

 

[dmzkn]

Sub ekleme()
Sheets.Add
Sheets("Sayfa4").Select
Sheets("Sayfa4").Name = Sheets("Sayfa1").Cells(1, 1)
Sheets("Sayfa1").Select
End Sub

bu kod 1 seferliğe mahsus çalışırr...)) her defasında olabilmesi için içine sayaç gibi bir sey eklenmesi lazım...onuda ustalarım tamamlar eminim....kolay gelsin...

 

[nziya]

VERİ SAYFASININ A1 HÜCRESİNE YAZILAN İSİM İLE YENİ BİR SAYFA OLUÞTURUR
Sub ekle()
Dim i As Integer
If Range("a1").Value = "" Then
MsgBox "Sayfa Adını Yazmadınız.."
Exit Sub
End If
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Range("a1").Value Then
MsgBox "Bu İsimde Bir Sayfa Var.."
Exit Sub
End If
Next i
ThisWorkbook.Sheets("veri").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Range("a1").Value
End Sub

 

[basridogan]

Sayın nziya
Çok teşekkür ederim.İstediğim buydu.
Hazırladığınız kod arşivi programınızı kullanıyorum.Beni dağınıklıktan kurtardı.Çalışmalarınızda başarılar dilerim.

Sayın dmzkn alakanızdan dolayı size de çok teşekkür ederim.

 

[þerif]

dostlar teşekkür ederim ya soranada cevaplıyan hocalarımada banada bu lazımdı.
hepiniz sağolun