İşaretli Kodlar tıklandığında, o isimle örnek sayfanın kopyasının yaratılması

[besen]

Merhaba. Mümkünse, Giriş sayfasında yanlarında Excel ikonu olan alan tıklandığında (şu an örnek olarak bir tek ikon var), örnek sayfası (içindeki formüller, başlıklar, linkler, ad tanımlamalarıyla beraber) o hesap kodunun ismiyle yeni bir sayfa yaratılmasını istiyorum.

Teşekkür ederim.

 

[DoğanD]

Merhaba,

Ekteki dosyayı dener misiniz?

3. sütunda bir veri seçildiğinde solda koyduğunuz X resmi de seçtiğiniz verinin yanına gelecektir. Yani her satır için ayrı bir butona gerek yok.

 

[besen]

Merhaba,

Ekteki dosyayı dener misiniz?

3. sütunda bir veri seçildiğinde solda koyduğunuz X resmi de seçtiğiniz verinin yanına gelecektir. Yani her satır için ayrı bir butona gerek yok.

Merhaba çok teşekkür ederim. Tam da böyle.
Sadece ben yazarken hatalı iafade etmişim, sayfa isimleri B kolonundaki , Kodun kendisi olacak

 

[DoğanD]

Merhaba,

Kodu aşağıdaki gibi değiştirip dener misiniz?

Sub Cogalt()
If ActiveCell.Column <> 3 Then Exit Sub
Application.DisplayAlerts = False
Dim ss, i As Integer
Dim isim As Variant
isim = Sayfa2.Cells(ActiveCell.Row, 2).Text
ss = Sheets.Count
For i = 1 To ss
If Sheets(i).Name = isim Then
MsgBox isim & " isimli sayfa zaten var!", vbInformation
Sheets(i).Select
Exit Sub
End If
Next i
    Sheets("Örnek").Select
    Sheets("Örnek").Copy After:=Sheets(ss)
    ActiveSheet.Name = isim
    Application.DisplayAlerts = True
End Sub

 

[besen]

Merhaba,

Kodu aşağıdaki gibi değiştirip dener misiniz?

Sub Cogalt()
If ActiveCell.Column <> 3 Then Exit Sub
Application.DisplayAlerts = False
Dim ss, i As Integer
Dim isim As Variant
isim = Sayfa2.Cells(ActiveCell.Row, 2).Text
ss = Sheets.Count
For i = 1 To ss
If Sheets(i).Name = isim Then
MsgBox isim & " isimli sayfa zaten var!", vbInformation
Sheets(i).Select
Exit Sub
End If
Next i
    Sheets("Örnek").Select
    Sheets("Örnek").Copy After:=Sheets(ss)
    ActiveSheet.Name = isim
    Application.DisplayAlerts = True
End Sub

Harikasınız. Çok teşekkür ederim.