Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Diğer Excel Soruları (http://www.excel.web.tr/forumdisplay.php?f=50)
-   -   Sayfa Kopyalama ve Yeniden Adlandırma (http://www.excel.web.tr/showthread.php?t=169378)

iplikci_80 30-12-2017 11:01

Sayfa Kopyalama ve Yeniden Adlandırma
 
1 Eklenti(ler)
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 Yeşertener 30-12-2017 12:27

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.

Kod:

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


İdris SERDAR 30-12-2017 12:44

.

Buradaki dosyayı inceleyin.

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



.

İdris SERDAR 30-12-2017 15:50

.

Bir de buna bakın.

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


.

iplikci_80 30-12-2017 20:03

İ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 Yeşertener 30-12-2017 20:48

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

iplikci_80 31-12-2017 18:11

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.


Saat 22:40

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.