A1 hücresine yazılan isim o çalışma sayfasının ismi olsun

[ayemenici]

selam,
arkadaşlar kullanmış olduğum bir çalışma kitabında çok sayıda sayfa var ben bu sayfaların her birini ayrı kişilere atadım
her sayfada A1 hücresine yazmış olduğum ismin aynı zamanda o çalışma sayfasınnda ismi olmasını istiyorum bunu otomatik olakak yapmak istiyorum
mümkünmü bu konuda yardım.

 

[zafer]

Merhaba



Sub Makro1()
say = Sheets.Count
For i = 1 To say
Sheets(i).Name = Sheets(i).Range("a1")
Next
End Sub

 

[ayemenici]

zafer kardeş,
denedim
Sheets(i).Name = Sheets(i).Range("a1")
kısmında hata veriyor

 

[Ali]

Sn ayemenici Zafer Bey'in yazdığının hata vermemesi lazım yinede birde aşağıdakini deneyin

Sub isimdegistir()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Name = Worksheets(i).Cells(1, 1).Value
Next i
End Sub

 

[ayemenici]

olmadı çalışmadı
bir açıklama daha yapayım belki faydası olur.
toplam 100 adet sayfam hazır ve sayfa isimleri 1 den başlayarak 100 e kadar gidiyor her sayfanın a1 hücresine yazılan isim aynı zamanda o sayfanında ismi olarak değişsin istiyorum

 

[Ali]

Sn ayemenici bunu module eklediniz değilmi. Yani Alt+F11 ile VBA yı açıp Insert-Module deyip yeni module ekledikten sonra bu kodları modül içine yapıştırıp çalıştırın. Sorun burada olabilir diye düşünüyorum.

 

[ayemenici]

dediğinizi aynen yaptım ve yeni bir makro oluşturdum ve içine yapıştırdım daha sonra a1 hücresine bir isim yazdım ve ilgili makroyu çalıştırdım fakat
Worksheets(i).Name = Worksheets(i).Cells(1, 1).Value
kısmında hata verdi

 

[zafer]

Merhaba

A1 hücresi boş olan sayfalarınız var herhalde başka şekilde hata vermaz.

Sub Makro1()
say = Sheets.Count
For i = 1 To say
If Sheets(i).Range("a1") <> "" Then
Sheets(i).Name = Sheets(i).Range("a1")
End If
Next
End Sub

 

[mehmett]

Sn ayemenici,

Hata, b&#252;t&#252;n sayfalarda A1 h&#252;cresine isim yazmam&#305;&#351; olman&#305;zdan kaynaklan&#305;yor. Ya kodlar&#305;n&#305;z&#305;n ikinci sat&#305;r&#305;na on error resume next sat&#305;r&#305;n&#305; ekleyin, ya da b&#252;t&#252;n sayfalarda A1 h&#252;cresine birer isim yaz&#305;n.

 

[ayemenici]

arkada&#351;lar
&#351;imdi oldu hepinize &#231;ok t.&#351;.

 

[Zahir]

Peki Sayfa ismini A1 hücresine yazmak için ne yapmalıyız.

 

[zafer]

Merhaba

Sub Makro2()
say = Sheets.Count
For i = 1 To say
Sheets(i).Range("a1") = Sheets(i).Name
Next
End Sub

 

[Ali]

Peki Sayfa ismini A1 hücresine yazmak için ne yapmalıyız.

O zaman şu şekilde değiştirmelisiniz.

Sub isimdegistir()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Cells(1, 1).Value = Worksheets(i).Name
Next i
End Sub

 

[Ali]

Bug&#252;n Zafer Bey hep h&#305;zl&#305; bir t&#252;rl&#252; yeti&#351;emedim. Forum de&#287;i&#351;ti Zafer bey h&#305;zland&#305;

 

[zafer]

Merhaba

Eskiden aynı mesajı yazmaktan ellerim ağrımıştı.

Şimdiki forumu çok çok sevdim.........