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 10: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 30-12-2017 11: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 11:44

.

Buradaki dosyayı inceleyin.

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



.

İdris SERDAR 30-12-2017 14:50

.

Bir de buna bakın.

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


.

iplikci_80 30-12-2017 19: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 30-12-2017 19:48

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

iplikci_80 31-12-2017 17: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.

iplikci_80 02-03-2018 11:50

1 Eklenti(ler)
İ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.


Saat 17:13

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