sayfa ismini hücreden değiştirmek

Katılım
11 Ekim 2005
Mesajlar
140
arkadaşlar günaydın , erken saatlerden beri arıyorum fakat bulamadım sorum şu;

excel de hücreye yazdığım rakkam yada harflerin kitapta bulunan sayfalara ad olarak verilmesidir tab kısmına sırasıyla isim vermek istiyorum

örnek A1= "20-05-2005" ise sayfa ismi(tab) ="20-05-2005"olsun yardımlarınız için teşekkür ederim.
syg.
 
Katılım
3 Nisan 2005
Mesajlar
347
Excel Vers. ve Dili
office xp tr
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
isim = Range("a1")
ActiveSheet.Name = isim
End Sub
 
Katılım
11 Ekim 2005
Mesajlar
140
sayın nziya cevabınız için teşekkür ederim fakat modulde sayfada ve userformda denedim çalıştıramadım ne yapmam gerekir?

syg.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Çalıştığınız sayfanın kod kısmına yukarıdaki kodları yapıştıracaksız.

Sayfa1 yazısının üstüne fare ile gidin sağ tuşa basın gelen menüde en sonda kod görüntüle çıkar onu seçip kodları yapıştırın

A1 e yazdığınız metin sayfanızın ismi olur

Hangi sayfada isterseniz onlarada aynı işlemi uygulayın.
Bütün sayfaları tek bir komut kullanarak da yapabilirsiniz fakat bu pek elverişli olmaz ben şahsen önermem.
 
Katılım
11 Ekim 2005
Mesajlar
140
çok teşekkür ederim sayın zafer,sayın nziya işimi tamamiyle gördü. kolay gelsin

saygılarımla.
 
Katılım
18 Kasım 2009
Mesajlar
16
Excel Vers. ve Dili
2003 türkçe
peki bunun tam tersi mümkün mü,yani sayfa adlarını A1'e yazdırmak?
 
İ

İhsan Tank

Misafir
peki bunun tam tersi mümkün mü,yani sayfa adlarını A1'e yazdırmak?
merhaba
kitabınızın kod bölümünde bulunan thisworkbook bölümüne
Kod:
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim ts
ts = "A1"
Range(ts) = ActiveSheet.Name
End Sub
bu kodu kopyalayın
 
Üst