şablon dosyası çoğaltma

[okavut]

iyi akşamlar;
sitede bulunan örneklerden topladım ama olmadı
çift tıklanan hücrede bulunan isim ile şablon dosyasından kopya oluşturmak

 

[Necdet]

Merhaba,

Kodlarınızdan bir satırı değiştirdim, kırmızı ile belirttim.

Yalnız kodlar [C11:S23] arasında her hücrede çalışıyor, emin misiniz?

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    On Error GoTo Ekle
 
    If Not ActiveSheet.Name = "ANA SAYFA" Then
        Sheets("ANA SAYFA").Select
    Else
        If Intersect(Target, [C11:S23]) Is Nothing Then Exit Sub
        If Target.Row < 2 Then Exit Sub
        Sheets(Target.Value).Select
        Exit Sub
Ekle:
    [B][COLOR=red]Sheets("ŞABLON").Copy After:=Sheets(Sheets.Count)
[/COLOR][/B]    ActiveSheet.Name = Target.Value
    [COLOR=red][B][A1] = Target.Value
[/B][/COLOR]    End If
 
End Sub

 

[okavut]

Sayın Necdet bey ilginize teşekkür ederim.
elinize sağlık. Ana sayfadan Seçilen hücrenin ismi ile açılan açılan sayfanın "a1" hücresine yazdırmak mümkünmü ?

 

[Necdet]

Sayın Necdet bey ilginize teşekkür ederim.
elinize sağlık. Ana sayfadan Seçilen hücrenin ismi ile açılan açılan sayfanın "a1" hücresine yazdırmak mümkünmü ?

Merhaba,

İlk mesajımda kodları düzenledim. Deneyiniz.

 

[okavut]

sayın Necdetbey bu saatte bizlerin nazını çekiyorsunuzya ;
Sizlere hayran olmamak elde değil
İyi akşamlar tekrar teşekkür ediyorum

 

[Necdet]

sayın Necdetbey bu saatte bizlerin nazını çekiyorsunuzya ;
Sizlere hayran olmamak elde değil
İyi akşamlar tekrar teşekkür ediyorum

Naz çekmek ne demek güle güle kullanınız.

 

[okavut]

ana sayfada hücre 31 karekterden fazla olunca şablon dosyası çoğaltmıyor;