Otomatik Sekme İsmi

[erdalcan]

1 Ocak'tan 31 Aralığa kadar olan tarihleri sayfa ismi olarak vermek istiyorum. Bunun için sayfaları tek tek ekleyip isimlerini elle değiştirmem mi gerekiyor ? Arama yaptım ancak bunu pratik olarak gerçekleştirebileceğim bir kod veya yöntem bulamadım. Bu konuda yardımlarınızı rica ediyorum.

 

[uzmanamele]

1 Ocak'tan 31 Aralığa kadar olan tarihleri sayfa ismi olarak vermek istiyorum. Bunun için sayfaları tek tek ekleyip isimlerini elle değiştirmem mi gerekiyor ? Arama yaptım ancak bunu pratik olarak gerçekleştirebileceğim bir kod veya yöntem bulamadım. Bu konuda yardımlarınızı rica ediyorum.

merhaba
syn erdalcan,
aşağıdaki linkte sorunuz cevaplanmış!!!
tık tık tık...

 

[erdalcan]

a1 hücreye tarih yazdım kod bölümüne girdim ve kodu çalıştırmak için tıkladım ancak makro ismi soran bir pencere açılıyor. Ve kayıtlı hiçbir makro görünmüyor.

Yani kodu çalıştıramadım...

 

[batuhan_86_7]

a1 hücreye tarih yazdım kod bölümüne girdim ve kodu çalıştırmak için tıkladım ancak makro ismi soran bir pencere açılıyor. Ve kayıtlı hiçbir makro görünmüyor.

Yani kodu çalıştıramadım...

bu çalışmada istediğin özellik var dikkat etmen gereken ise aynı tarihten kesinlikle ikitane olmaması

 

[BG]

Merhaba

1 Ocak'tan 31 Aralığa kadar olan tarihleri sayfa ismi olarak vermek istiyorum. Bunun için sayfaları tek tek ekleyip isimlerini elle değiştirmem mi gerekiyor ? Arama yaptım ancak bunu pratik olarak gerçekleştirebileceğim bir kod veya yöntem bulamadım. Bu konuda yardımlarınızı rica ediyorum.

A sütununa ilgili tarihleri giriniz ve aşağıdaki linke inceleyiniz.Örnek dosya ile işleminizi gerçekleştirebilirsiniz.

http://www.excel.web.tr/showthread.php?t=72433&highlight=sheets.add&page=2

 

[erdalcan]

bu çalışmada istediğin özellik var dikkat etmen gereken ise aynı tarihten kesinlikle ikitane olmaması

Bu çalışmada kod var ve işimi görüyor sanırım ama A1 e herhangi bir tarih yazdığımda kodu nasıl çalıştıracağımı anlayamadım. Kod görüntüleden kodu açıp çalıştır dediğimde makro penceresi açılıyor ve kayıtlı makro görünmüyor. Sayfa 1 e buton ekledim ve kodu bu butona atadım bu seferde hata veriyor.

Bu dosyadaki kodu nasıl çalıştırabilirim

 

[hamitcan]

Ben de bir örnek yaptım, boşa gitmesin.

Sub BirYillikSayfaAc()
    SayfaSil
    For i = 12 To 1 Step -1
        AyinSonu = Day(DateSerial(Year(Date), Format(i, "00") + 1, 0))
        For ii = AyinSonu To 1 Step -1
            Set NewSheet = Sheets.Add(Type:=xlWorksheet)
                NewSheet.Name = Format(ii, "00.") & Format(i, "00.") & Format(Date, "yyyy")
        Next
    Next
End Sub
Sub SayfaSil()
    Application.DisplayAlerts = False
    For i = Sheets.Count To 1 Step -1
        If Sheets(i).Name <> "Sayfa1" Then Sheets(i).Delete
    Next
    Application.DisplayAlerts = True
End Sub

 

[batuhan_86_7]

bu çalışmada kod var ve işimi görüyor sanırım ama a1 e herhangi bir tarih yazdığımda kodu nasıl çalıştıracağımı anlayamadım. Kod görüntüleden kodu açıp çalıştır dediğimde makro penceresi açılıyor ve kayıtlı makro görünmüyor. Sayfa 1 e buton ekledim ve kodu bu butona atadım bu seferde hata veriyor.

Bu dosyadaki kodu nasıl çalıştırabilirim

kodu otomatik çalıştırıyor istersen a1 hücresine farklı bir tarih dene kendisi otomatik değiştiriyor yalnız sayfaların son kısmına bak aynı tarihten başka olmasın yoksa hata veriyor başka sayfada yapıyorsan kodu alt+f11 kombinasyonunda bulabilirsin.

 

[erdalcan]

Hepinize ilgilendiğiniz için çok teşekkür ederim.

 

[batuhan_86_7]

sorunun çözüldüyse uzman arkadaşlara teşekkür etmeyi ihmal etme.