Sayfa Kopyalama ve Yeniden Adlandırma

[iplikci_80]

Arkadaşlar EK'teki çalışma ile günlük şeker ölçüm değerlerini takip ediyorum. Yapmak istediğim şey ''OCAK'' ayı bittiğinde sağa doğru çalışma sayfasını taşı kopyala yaptığımda sayfa adı "ŞUBAT"; "MART"... v.s. değişsin ve içerisindeki değerler silisin istiyorum. Yada buna benzer tavsiye edebileceğiniz bir çalışma var ise yardımlarınız bekliyorum. Şimdiden herkese iyi seneler.

 

[Necdet]

Merhaba,

Detayları kontrol etmedim, onları size bırakıyorum.
Örneğin var olan bir sayfayı oluşturmak istediğinizde kodlar hata verecektir, kontrolleri size bırakıyorum.

Aktif olan sayfanın kopyasını çıkartır bir sonraki ayın adını verir ve sayfa içeriğini siler.

Not : Konu başlığını "Sayfa Kopyalama ve Yeniden Adlandırma" olarak değiştiriniz lütfen. Kimse forumda "şeker ölçümü" diye arama yapmaz.

Sub SayfaKopyala()

    Dim Aylar, _
        i       As Integer, _
        AyAd    As String
    
    AyAd = ActiveSheet.Name
    
    Aylar = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
    
    Do
        i = i + 1
        If i > 12 Then Exit Do
    Loop Until AyAd = Aylar(i)
    
    MsgBox i
    If i > 12 Then MsgBox "bulamadım..."
    
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Aylar(i + 1)
    Range("C4:H31").ClearContents
    Range("C4").Select
    
End Sub

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

http://www.excelgurusu.com/aclik-kan-sekeri-aks-grafigi/



.

 

[Merhum İdris SERDAR]

.

Bir de buna bakın.

http://www.excelgurusu.com/kan-sekeri-takip-grafigi/


.

 

[iplikci_80]

İdris Bey ilginize teşekkür ederim. İkinci gönderdiğiniz cevaptaki "KAN ŞEKERİ" çalışmasını SABAH, ÖĞLEN, AKŞAM şeklinde düzenleyebilir miyiz lütfen.

 

[Necdet]

Bizim çalışma boşa mı gitti?

 

[iplikci_80]

Estağfurullah Necdet Bey boşa gitmedi tabiki ama sizin cevaba yeni bakma fırsatı buldum. Öncelikle ilginiz için teşekkür ederim. İyi seneler.

 

[iplikci_80]

İdris Bey merhabalar bu çalışma için sizden yardım almıştım. Bu çalışmayı formatını oluşturmaya çalıştığım şekilde revize etme hususunda yardımlarınızı rica ediyorum.

 

[ahmetinal.95]

Merhaba,

Detayları kontrol etmedim, onları size bırakıyorum.
Örneğin var olan bir sayfayı oluşturmak istediğinizde kodlar hata verecektir, kontrolleri size bırakıyorum.

Aktif olan sayfanın kopyasını çıkartır bir sonraki ayın adını verir ve sayfa içeriğini siler.

Not : Konu başlığını "Sayfa Kopyalama ve Yeniden Adlandırma" olarak değiştiriniz lütfen. Kimse forumda "şeker ölçümü" diye arama yapmaz.

Sub SayfaKopyala()

    Dim Aylar, _
        i       As Integer, _
        AyAd    As String
   
    AyAd = ActiveSheet.Name
   
    Aylar = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
   
    Do
        i = i + 1
        If i > 12 Then Exit Do
    Loop Until AyAd = Aylar(i)
   
    MsgBox i
    If i > 12 Then MsgBox "bulamadım..."
   
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Aylar(i + 1)
    Range("C4:H31").ClearContents
    Range("C4").Select
   
End Sub

Ben Şeker diye arayarak bu soruyu buldum

 

[Necdet]

Ben Şeker diye arayarak bu soruyu buldum

Tebrikler