sayfa kopyalarken isim belirlemek

[GursoyC]

Herkese merhaba,
elimde bir makrom var. Mevcut sayfayı olduğu gibi kopyalayıp, sayfa ismi olarak önceki sayfaya 1 sayı ekleyerek veriyor; şu şekilde:

Sub SayfaKopyala()

Dim sh As Worksheet

Set sh = Sheets(ActiveSheet.Name)
Application.DisplayAlerts = False

sh.Copy After:=Sheets(sh.Name)
ActiveSheet.Name = Val(sh.Name) + 1

End Sub

Yeni oluşturulan sayfa ismini, J13 hücresinde yazan ismin ve soyismin baş harfleri şeklinde yazmak için kodu nasıl değiştirmem gerekir yardımcı olur musunuz.

Örnek: J13'te Ali Koç yazıyorsa, sayfa kopyala'ya bastığımda yeni sayfa ismi AK olmalı.

Teşekkürler.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki şekilde deneyin.
.

[FONT="Arial Narrow"][B]Sub SayfaKopyala()[/B]
Dim sh As Worksheet
Set sh = Sheets(ActiveSheet.Name)
Application.DisplayAlerts = False
If sh.[J13] = "" Then
MsgBox " J13 hücresi boş olduğundan işlem yapılmadı.."
Exit Sub: End If
ikinci = Evaluate("=IFERROR(MID(J13,FIND("" "",J13,1)+1,1),"""")")
sh.Copy After:=Sheets(sh.Name)
ActiveSheet.Name = UCase(Left(sh.[J13], 1) & ikinci)
Application.DisplayAlerts = True
[B]End Sub[/B][/FONT]

 

[GursoyC]

Gayet güzel çalışıyor Ömer bey, çok teşekkür ederim elinize sağlık.

Saygılar,

 

[Ömer BARAN]

Kolay gelsin.
.