Sayfa1 adını d3 hücresindeki değeri yazma

[eceLprensi]

Merhaba,
Arkadaşlar,

excel sayfa1 ,sayfa2,sayfa3 isimlerini hücrelere atadıgım degerlerden kopyalayıp yazan makro yapmaya çalıştım TRUE yazdı.
Sub Makro2()
'
' Makro2 Makro
'

'
Range("B5:H7").Select
Selection.NumberFormat = "0.00"
Range("C6").Select
ActiveCell.FormulaR1C1 = "=MID(R[-1]C[-2],16,5)"
Range("C6").Select
a = Selection.Copy
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sayfa1").Select
Sheets("Sayfa1").Name = a
End Sub

ne yapmalıyım ?

 

[YUSUF44]

Sheets("Sayfa1").Name = [C1].value

Satırı Sayfa1'in adını C1'deki değerle değiştirir. Başka işleme gerek yoktur.

 

[eceLprensi]

Kardeşim Çok teşekkür ederim.
işimi gördü valla,
peki sayfa1 yazmadan yapabilecegim bi şey varmı
mesela ben kapak1 yaptım, bulundugu sayfanın c1 deki yazıyı atayabilecek bir kod.

 

[YUSUF44]

Eğer o anda açık olan sayfa ise

Activesheet.name = [C1].value

olabilir. Ya da dosyadaki 1. sekme için

Sheets(1).name = [C1].value

olabilir.

YA dabir inputboxla eski ve yeni sayfa adı istenebilir:

Sub addeğiştir()
eski = InputBox("Eski sayfa adını giriniz?")
yeni = InputBox("Yeni sayfa adını giriniz?")
Sheets(eski).Name = yeni
End Sub

yeni sayfa adı C1'den alınsın denirse

Sub addeğiştir()
eski = InputBox("Eski sayfa adını giriniz?")
Sheets(eski).Name = [C1]
End Sub

Böyle bir çok alternatif bulunabilir.

 

[eceLprensi]

teşekkürler