Listedeki isimlere göre sayfa adı atama, ekleme ve çıkarma.

[Grknpkdzn]

Merhaba.
Ekteki dosya ile alakalı olarak aşağıda ki gibi bir sistem yapmak istiyorum.
Bunun için yardımlarınızı rica ediyorum.
*Liste sayfasındaki isimlere bakacak,
*Şablon sayfası ile birleştirip, sayfanın adını değiştirecek,
*Oluşturduğu sayfanın I64 hücresine sayfanın adını da yazacak,
*İsim listelerinin bulunduğu listeye ekleme yada silme yapıldığında tuşa tıklandığında düzenlemeyi yapacak.

 

[Merhum İdris SERDAR]

.

Buradaki örneği inceleyin.

http://www.excelgurusu.com/sayfa-cogaltma-ve-icindekiler/


.

 

[Grknpkdzn]

Tekrar Merhaba.
Örneği inceledim.
Hatta tatbik ettim. Fakat oluşturulan yeni sekmelerin I64 hücresine de isim soyisim atayamadım.
Bunun için bir destek olursanız sevinirim.

 

[çıtır]

Aşağıdaki şekilde

Private Sub CommandButton1_Click()
Dim syf1 As Worksheet, syf2 As Worksheet, c As Range
Set syf1 = Sheets("ŞABLON")
Set syf2 = Sheets("LİSTE")
For Each c In syf2.Range("A2", syf2.Cells(Rows.Count, 1).End(xlUp))
syf1.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
ActiveSheet.Range("I64") = c.Value
Next
End Sub

 

[Grknpkdzn]

Çıtır hocam teşekkür ederim.
Ben,
Range("I64") = ActiveSheet.Name
sadece bunu yazdığımdan olmuyormuş deme ki..

 

[çıtır]

Rica ederim.Dönüş yaptığınız için teşekkür ederim.Aşağıdaki şekilde yazdığınızda olabilirdi.
Range("I64") = c.Value