Sayfayı Çoğatan Makro...

[kardanadam]

çalışama kitabı içerisinde mevcut bir kalıp var bu kalıbı bir butona tıkladığımda bana bir iletişim kutusu aracılığıyla yeni sayfanın ismini sorsun ve vereceğim isimle kalıbı kopyalayarak yeni bir sayfa oluştursun... yani kalıbı çoğaltsın ama yeni sayfanın adını bana sorsun...

 

[AS3434]

Aşağıdaki kodları deneyin.

Sub Kopyala()
'EXCEL.WEB.TR
Dim i As Integer
Dim kopya
For i = 1 To Worksheets.Count
sayfa = Sheets(i).Name & vbNewLine & sayfa
Next i
kopya = InputBox("Kopyalamak İstediğiniz Sayfanın adını giriniz" _
& vbCrLf & sayfa, "Kopya", "AS3434")
If kopya = Empty Then Exit Sub
Sheets(kopya).Copy After:=Sheets(Worksheets.Count)
On Error GoTo hata
ActiveSheet.Name = InputBox("Sayfanın Adını Giriniz", _
"Yeni Sayfa Ad", "YeniSayfa Ekle")
Range("C1").Value = ActiveSheet.Name
hata:
'EXCEL.WEB.TR
End Sub

Not.. AS3434 yazan yere kalıp sayfanızın adını yazın.

 

[kardanadam]

emeğine sağlık, çok teşekkür ederim...

 

[AS3434]

Sn kardanadam

Bende teşekkür ederim ama kodlar benim değil. Alıntıdır. Sadece paylaşıyorum.

Makroda ki aşağıdaki satır, vermiş olduğunuz yeni sayfa adını C1 hücresine taşır. Değiştirebilirsiniz veya silebilirsiniz.

Range("C1").Value = ActiveSheet.Name

 

[Tankut SAZLI]

Sayın kardanadam;
Forumda bununla ilglili sayısız örnek bulacağınızdan eminim,Arama bölümünü kullanırsanız:

http://www.excel.web.tr/showthread.php?t=26544
http://www.excel.web.tr/search.php?searchid=93546

 

[kardanadam]

Sn kardanadam

Bende teşekkür ederim ama kodlar benim değil. Alıntıdır. Sadece paylaşıyorum.

Makroda ki aşağıdaki satır, vermiş olduğunuz yeni sayfa adını C1 hücresine taşır. Değiştirebilirsiniz veya silebilirsiniz.

Range("C1").Value = ActiveSheet.Name

oda işime yarayan bir alandı sadece hücre değerini değiştim,
peki kopyalacağım sayfayı sorgusuz yapabilirmiyim. yani bana sormasın adı kalıp adında sayfam var onu çoğaltın yeter...

 

[kardanadam]

Sayın kardanadam;
Forumda bununla ilglili sayısız örnek bulacağınızdan eminim,Arama bölümünü kullanırsanız:

http://www.excel.web.tr/showthread.php?t=26544
http://www.excel.web.tr/search.php?searchid=93546

kullandım arama bölümü her zaman istediğin şekilde karşına saçenek çıkartmıyor maalesef, anahtar kelimeyi doğru seçememişim demekki.