Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 05-10-2017, 12:50   #1
mehmetozel
Altın Üye
 
Giriş: 05/10/2017
Şehir: çanakkale
Mesaj: 9
Excel Vers. ve Dili:
excel 2007
Varsayılan sayfa adlarını tarih olarak yazmak

merhaba.
merhaba ben bir vardiya deftreri yapmak istiyorum bir çalışma kitabımda her sayfaya o gün ün tarihini otamatik olarak atmasını nasıl yapabilirim. birde her gün ün sonundaki sonu endekslerinin bir sonraki günün ilk endekleri olarak görünmesini istiyorum
mehmetozel Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-10-2017, 19:30   #2
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 983
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Şu kodları kullanabilirsiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub yeni_sayfa_ekle()
ThisWorkbook.Worksheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Name = Format(Date, "dd/mm/yyyy")
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-10-2017, 18:11   #3
mehmetozel
Altın Üye
 
Giriş: 05/10/2017
Şehir: çanakkale
Mesaj: 9
Excel Vers. ve Dili:
excel 2007
Varsayılan

Teşekkür ederim formül sayfaya tarih atıyor ancak excel dosyasını her açtığımda o günkü sayfa yok ise otamatik olarak çalışmasını nasıl yapabilirim.
mehmetozel Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-10-2017, 19:04   #4
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 983
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Workbook_Open()
Dim sayfa_ismi
sayfa_ismi = Format(Date, "dd/mm/yyyy")
For i = 1 To Sheets.Count
    If Sheets(i).Name = sayfa_ismi Then
        Exit Sub
    End If
Next i
ThisWorkbook.Worksheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Name = sayfa_ismi
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-10-2017, 17:26   #5
mehmetozel
Altın Üye
 
Giriş: 05/10/2017
Şehir: çanakkale
Mesaj: 9
Excel Vers. ve Dili:
excel 2007
Varsayılan

Teşekkür ederim tam istediğim gibi oldu..
mehmetozel Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-10-2017, 18:08   #6
mehmetozel
Altın Üye
 
Giriş: 05/10/2017
Şehir: çanakkale
Mesaj: 9
Excel Vers. ve Dili:
excel 2007
Varsayılan

slm tekrar; Her gün için o günün tarihli bir sayfa açılan defterimiz oldu ama sayfalar arası bilgi aktarımı ile ilgili problem oldu. yeni açılan sayfanın tasarımının bir gün önceki sayfanı aynı ve bazı hücredeki verilerin yeni sayfaya otomatik olarak nasıl taşıyabilirim ??? ve bu işlemin her gün yeni sayfa açıldıkça döngü şeklinde devam etmesini istiyorum yardım ederseniz sevinirim teşekkürler..
mehmetozel Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-10-2017, 00:39   #7
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 983
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alıntı:
mehmetozel tarafından gönderildi Mesajı Görüntüle
slm tekrar; Her gün için o günün tarihli bir sayfa açılan defterimiz oldu ama sayfalar arası bilgi aktarımı ile ilgili problem oldu. yeni açılan sayfanın tasarımının bir gün önceki sayfanı aynı ve bazı hücredeki verilerin yeni sayfaya otomatik olarak nasıl taşıyabilirim ??? ve bu işlemin her gün yeni sayfa açıldıkça döngü şeklinde devam etmesini istiyorum yardım ederseniz sevinirim teşekkürler..
Tüm veriler tamam ama bazı veriler derken bunu açıklığa kavuşturmak lazım. Örnek bir dosya ile açıklarsanız yardım etmek isteyen üyelerin kafasında durum netleşir.
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-10-2017, 11:14   #8
mehmetozel
Altın Üye
 
Giriş: 05/10/2017
Şehir: çanakkale
Mesaj: 9
Excel Vers. ve Dili:
excel 2007
Varsayılan

[quote=antonio;912472]Tüm veriler tamam ama bazı veriler derken bunu açıklığa kavuşturmak lazım. Örnek bir dosya ile açıklarsanız yardım etmek isteyen üyelerin kafasında durum netleşir.[/QUOT


benim yapmak istediğim günlük çalışma defterinde dört tane kantar değeri var ve günde üç kere kantar değerleri girilmesi gerekiyor sayfada kantarların isimlerinin olduğu gibi hücreler her gün sabit ama kantar değerleri değişken ve her vardiyadaki değer toplama eklenmesi gerekiyor sayfa içinde hesaplamalar da problem yok tarih değiştiğinde otomatik açılan sayfa haliyle boş oluyor,işte ben bu sayfaya bir önceki günün sabit hücrelerinin direk değişken değerlerinin de önceki günün son değerlerinin yeni günün ilk değerleri olacak şekilde otomatik olarak aktarmak istiyorum örnek dosyayı şimdilik altın üye olmadığım için ekliyemiyorum. ilginize teşekkür ederim.
mehmetozel Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-10-2017, 13:26   #9
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 983
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Anladığım kadarıyla en son sayfa yeni bir sayfa olarak kopyalanırsa işleriniz biraz daha kolaylaşıyor. Doğru anladıysam aşağıdaki kodları deneyin.
Güncellenen kodlar:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Workbook_Open()
Dim sayfa_ismi, son As Byte, syf As Worksheet, yeni As Worksheet

sayfa_ismi = Format(Date, "dd/mm/yyyy")
For i = 1 To Sheets.Count
    If Sheets(i).Name = sayfa_ismi Then
        Exit Sub
    End If
Next i
If Sheets.Count = 1 Then
    son = 1
ElseIf Sheets.Count > 1 Then
    son = Sheets.Count
End If

Set syf = Sheets(Sheets(son).Name)
syf.Copy after:=syf
ActiveSheet.Name = sayfa_ismi
Set yeni = Sheets(sayfa_ismi)
yeni.Unprotect 1234 '1234 yerine koruma şifreniz (varsa) yazınız, yoksa hiçbirşey yazmayınız.
For d = 4 To 6
    yeni.Range("D" & d).Formula = "='" & syf.Name & "'!B" & d + 18
Next d
yeni.Protect 1234 '1234 yerine koruma şifreniz (varsa) yazınız, yoksa hiçbirşey yazmayınız.
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.

Bu mesaj en son " 15-10-2017 " tarihinde saat 15:44 itibariyle antonio tarafından düzenlenmiştir....
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 15:16   #10
mehmetozel
Altın Üye
 
Giriş: 05/10/2017
Şehir: çanakkale
Mesaj: 9
Excel Vers. ve Dili:
excel 2007
Varsayılan

Çok Teşekkür ederim antonio üstadım çok yardımcı oldunuz. Yardımlarınız ile hazırladığın dosyayı ekliyorum.dosyayı her açtığımda o günün tarihli sayfa yoksa sayfayı bir önceki günün aynı sayfa içeriğiyle ekliyor. ancak bir gün önceki sayfadan günün son endeksinin yeni günün ilk endeksi olması gerekiyo yani bir önceki günün B22,B23,B24,B25 hücrelerindeki değerlerin,yeni günün sırasıyla D4,D5,D6,D7 hücrelerine otomatik kopyalanmasını istiyorum.(='11.10.2017'!B22)bu formül ile yapıyorum ancak her yeni sayfa açııldığında formülde gün değişikliği yapmam gerekiyor ve F sütunundaki fark değerlerinin her gün ve vardiyada güncel girileceğinden her gün açılan yeni sayfada boş olması gerekiyor. örnek dosyaları ekliyorum çok teşekkürler.
Eklenmiş Resimler
Dosya Türü: jpg ÖRNEK yeni sayfa.jpg (19.2 KB, 2 Görüntülenme)
Dosya Türü: jpg örnek1.jpg (19.3 KB, 2 Görüntülenme)
Eklenmiş Dosyalar
Dosya Türü: xlsm örnek defter.xlsm (33.3 KB, 5 Görüntülenme)
mehmetozel Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 08:13


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden