Hücredeki değer değişince çalışma sayfası ismi değişmesi

[Korhan Ayhan]

Selamlar,

Örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

 

[tocy41]

Selamlar,

Örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

İşte bu. tam istediğim gibi olmuş ellerinize sağlık. Çok bekledim ama sonunda beklediğime değdi. MİNNETTARIM...

 

[samuelsaw]

çalışma sayfası ismini değiştirme

kapalı dosyanın içindeki çalışma sayfasının ismini değiştirip bu çalışma sayfasının ismine göre verileri kayıt edebileceğimiz bir makro var mıdır?

 

[kopilak]

Selamlar,

Ben de buna benzer bir çalışma yapmak istiyorum. Örneklerin hepsini defalarca uygulamaya çalıştım fakat başaramadım malesef. Mükerrer talep değildir umarım.

Ben de her sayfanın B3 hücresindeki ismin sayfa ismi olmasını istiyorum. Çalışma kitabında oluşturacağım tüm sayfalarda da aynı formül hazır gelecek şekilde. Mümkünse yardımcı olabilir misiniz?

Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Kullanmak istediğiniz dosyanızın "THISWORKBOOK" ya da "BUÇALIŞMAKİTABI" bölümüne aşağıdaki kodu uygulayın.

Dosyanıza yeni sayfa ekledikçe B3 hücresine sayfa adını yazar.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Range("B3") = Sh.Name
End Sub

 

[kont1327]

Herkese merhaba
Benim bi sorum olacak yukarıdaki konuya benzer bi durum
Benim günlük hesap çizelgem var 31 günlük
Her bir gün için bir çalışma sayfası var ve bu sayfaların ismi örneğin 01.05.2015-02.05.2015…..31.05.2015 şeklinde
Benim istediğim bir ana sayfa oluşturup;
A1 hücresine girdiğim tarihi sayfa 2 ye isim olarak
A2 hücresine girdiğim tarihi sayfa 3 e isim olarak
A3 hücresine girdiğim tarihi sayfa 4 e isim olarak
.
.
.
A31 hücresine girdiğim tarihi sayfa 32 ye isim olarak girsin.
Her ay aynı şablonu kullanıyorum ve tek tek değiştirmek gerekiyor bunu basitleştirmek istiyorum
Şuan için altın üyelik alma imkanım yok bu nedenle buradan yazarsanız çok sevinirim. kodlarda değişken olan kısmı kırmızı ve sabit kodları siyah olarak belirtirseniz sevinirim
ikinci bir soru olarak tablodaki excel satır ve sütun genişlik ve yüksekliklerinin değişmesini engellemek istiyorum böyle bişey mümkün mü? ben A4 boyutuna göre ayarlama yaptım ve bu bazen küçük kaymalar oluyor sonucundada boşa kagıt israfı oluyor.
şimdiden yardım eden herkese teşekkürler

 

[vardar07]

Şuan için altın üyelik alma imkanım yok bu nedenle buradan yazarsanız çok sevinirim. kodlarda değişken olan kısmı kırmızı ve sabit kodları siyah olarak belirtirseniz sevinirim
ikinci bir soru olarak tablodaki excel satır ve sütun genişlik ve yüksekliklerinin değişmesini engellemek istiyorum böyle bişey mümkün mü? ben A4 boyutuna göre ayarlama yaptım ve bu bazen küçük kaymalar oluyor sonucundada boşa kagıt israfı oluyor.
şimdiden yardım eden herkese teşekkürler

Merhaba. Eğer üye olursanız sizin menfaatinize olur. Tüm eklentileri görmek ve de indirme özelliğine sahip olursunuz. İsteklerinizi içinde belirtiğiniz dosya örneğinizi BURAYA yükleyerek linkini yazınız.

 

[kont1327]

istediginiz örnek burda
http://s3.dosya.tc/server2/mt9euw/AYLIK_HESAP_SABLON2.xls.html

 

[vardar07]

Ana sayfa kod bölümüne:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim X As Integer
   On Error Resume Next
    If Intersect(Target, [A2:A32]) Is Nothing Then Exit Sub
    Cancel = True
    For X = 2 To [A65536].End(3).Row
    Sheets(X).Name = Cells(X, 1)
    Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Integer
    On Error Resume Next
    If Intersect(Target, [A2:A32]) Is Nothing Then Exit Sub
    For X = 2 To [A65536].End(3).Row
    Sheets(X).Name = Cells(X, 1)
    Next
End Sub

Kodlar Korhan beyden alıntıdır.

 

[kont1327]

kodları denedim çalıştı çok teşekkür ederim elinize sağlık.
bir sorum daha olacak ben sayfaların sütun ve satırlarının yükseklik ve genişliklerinin değişmemesini istiyorum bunu yapmam mümkün mü acaba? örnek dosyada gördüğünüz üzere bu tablolar 2 3 kişi tarafından kullanılabiliyor ve herkes benim gibi dikkat etmiyor sayfada satır ve sütunlardaki en ufak oynama sayfanın 2 sayfa çıkmasına neden oluyor ve düzen bozuluyor ben tüm ayarlamaları yapıp sayfadaki satır ve sütunların genişlik ve yüksekliklerini kilitlemek istiyorum.

 

[rabbace]

Merhaba,

Bu sorudakine benzer bir şeye ihtiyacım var ve makro bilmiyorum. Kodlar üzerinde değişiklik de yapamadım. Yardımcı olabilir misiniz?

A4 hücremde 39. Hafta
A11 hücremde 40. Hafta
A18 Hücremde 41. Hafta
A25 hücremde 42. Hafta
A32 hücremde 43. Hafta yazıyor. Ben bu Hafta numaralarını ayrı ayrı sayfalara, sayfa adı olarak otomatik nasıl yazdırabilirim? Yeni haftalar eklendikçe de yeni sayfa ekleyerek nasıl olur bu?

 

[ptcsite]

Yanıt

Sayfa1'in kod bölümüne yazınız

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
Set s = Sayfa2
s.Name = Range("a1")
End Sub

Kardeş sen mükemmel birisin