Soru Günlük Finansal İşlemler Bakiyelerin Sonraki Güne Düğme İle Aktarımı

ozanyakar

Altın Üye
Katılım
19 Temmuz 2010
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010_64 Bit
Üstatlar günaydın, hayırlı işler.
Her iki firmanın da, günlük, kasa , çek senet, kredi kartı , banka işlemlerini raporlamaktayız. İşlemler bitince , hemen yandaki sekmeye sağ tuş taşı veya kopyala işlemi ile yeni bir günü açıyoruz. 13052022 Yi hemen 14052022 olarak açıyoruz.

236475

13052022 de işlemler bitince ertesi güne düğme ile açılış bakiyeleri aktarılabilir mi ? Yani ;

236476

Ertesi gün,(Yani 14052022) işlemleri bitince biz o sayfayı taşı veya kopyala yapıp 15052022 ye aktaracağız, işleyiş bu şekilde devam edecek.

Kıymetli yardımlarınızı rica ederim. İşlerinizde kolaylıklar ve başarılar dilerim.
 

ozanyakar

Altın Üye
Katılım
19 Temmuz 2010
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010_64 Bit
Dosyayı eklemişim özür dilerim :( Ekledim şimdi.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Şimdi de eklememişsiniz ;)
 

ozanyakar

Altın Üye
Katılım
19 Temmuz 2010
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010_64 Bit
Bilgilendirme için teşekkür ederim Üstat, kusura bakmayın.. Sanırım yüklerken hata oluştu. Yükledim şimdi.
 

Ekli dosyalar

ozanyakar

Altın Üye
Katılım
19 Temmuz 2010
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010_64 Bit
Üstatlar çözüm bulabilecek miyiz ? Kıymetli yardımlarınızı rica ederim, saygılar sunarım.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki makroyu bir modüle kopyalayıp günlük sayfalarınızdan biri açıkken deneyiniz:

PHP:
Sub gundevri()
    On Error Resume Next
    Set s1 = ActiveSheet
    gun = Format(Left(s1.Name, 2) + 1, "00")
    ay = Mid(s1.Name, 3, 2)
    yil = Right(s1.Name, 4)
    s1.Copy Before:=Sheets(Sheets.Count)
    Set s2 = ActiveSheet
    s2.Name = gun & ay & yil
    Range("D47").Select
    Sheets("15052022").Select
    s2.[E6] = s1.[E24]
    s2.[K6] = s1.[K24]
    s2.[E28] = s1.[E37]
    s2.[K28] = s1.[K37]
    s2.[E40] = s1.[E56]
    s2.[K40] = s1.[K56]
    
    s2.[B84:B93] = s1.[E84:E93].Value
    s2.[H84:H93] = s1.[K84:K93].Value
    
    s2.[A9:K22].ClearContents
    s2.[A30:K35].ClearContents
    s2.[A42:K54].ClearContents
    s2.[A62:K77].ClearContents
End Sub
 

ozanyakar

Altın Üye
Katılım
19 Temmuz 2010
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010_64 Bit
Sayın
YUSUF44 Ellerinize, emeğinize sağlık mükemmel.. Sağ tuğ kod görüntüleme yerine düğme atanabilir mi ? Dosyayı ekiple ortak kullanacağız makro bilgimiz hiç yok bir yanlışlık yapıp makroyu bozmaktan korkuyoruz. Düğme atayabilirsek çok seviniriz.
 

ozanyakar

Altın Üye
Katılım
19 Temmuz 2010
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010_64 Bit
Sayın
YUSUF44 Ellerinize, emeğinize sağlık mükemmel.. Sağ tuş kod görüntüleme yerine düğme atanabilir mi ? Dosyayı ekiple ortak kullanacağız makro bilgimiz hiç yok bir yanlışlık yapıp makroyu bozmaktan korkuyoruz. Düğme atayabilirsek çok seviniriz.
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Bunun için bana gerek yok ki, kodlar çalıştığına göre sayfada nasıl kullanacağınızı biliyorsunuz demektir. Düğmeyle çalıştırmak istiyorsanız sayfaya bir düğme ekleyin ve sağ tıklayıp makro ata deyin. Açılan listede makroyu seçip işlemi tamamlayın.
 

ozanyakar

Altın Üye
Katılım
19 Temmuz 2010
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010_64 Bit
Sayın
YUSUF44 , sayenizde düğme atamayı öğrendik. Çok teşekkür ederiz. Ellerinize sağlık.
 
Üst