Soru Koşullu Makro Hk.

[enescakar]

Merhabalar,

Ekli dosyada kapı giriş çıkışlarına ait tablo mevcut. Tabloda D sütunun da bulunan DATE başlığı altındaki sayısal verileri(8 satır) her gün manuel olarak yenileniyorum. DATE altında ki verileri her seferinde WEEK adı altında, sonrasında bulunduğumuz aya göre AY lık kısmda topluyorum. WEEK verisi her hafta başında sıfırlanarak DATE ile aynı oluyor, sonra ki günlerde alt tabloda ki amatör tablo ile üste üste toplanıyor.

Yapmak istediğim, sadece DATE bölümüne uygun/gerekli veriyi girmem karşılığında uygun bir makro ile veriler yukarda anlattığım gibi tabloya yerleştirilebilir mi?

Dikkat edilmesi gerekenler, bu tabloya bir önceki güne ait veriler işleniyor.
**Tabloya göre hafta başı Salı günü olur. Salı günü Pazartesi ait veriler işlenir.
**Pazartesi günü, Cuma - Cumartesi - Pazar gününe ait veri DATE kısmına işlenir, WEEK ve AY kısımlarına eklenir bu işlemlerden sonra DATE kısmına sadece CUMA'ya ait veri manuel olarak eklenir. U sütununda bulunan formüle (=BUGÜN()-1) "-1" daha eklenir.
**Yapılacak makro ile tarihsel kurallara göre AY atlaması yapılmalı.

*W-X sütununda ki veriler bilgilendirme amaçlı olup, silinebilir. Yapılan makro, boş bir alanda düğme olarak eklenebilir.

 

[enescakar]

Desteğinizi rica ederim.

 

[enescakar]

Günceldir.

 

[enescakar]

Desteğinizi rica ederim.

 

[enescakar]

Bahsi geçen dosya için kendimce aşağıdaki kodu yazdım.

Kodu olayı şu; week ve içinde bulunduğum ayın verileri H19 - I19 hücrelerine özel yapıştırıyor. Daha sonrasında toplama işlemini yapıp ilgili hücreye yapıştırıyor.

Sub veri_topla()
'
' veri_topla Makro
'

'
    Range("E2:E9").Select
    Selection.Copy
    Range("H19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I2:I9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("I19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J19").Select
    Application.CutCopyMode = False
    
    
    
    Range("E2") = Range("d2") + Range("h19")
    Range("E3") = Range("d3") + Range("h20")
    Range("E4") = Range("d4") + Range("h21")
    Range("E5") = Range("d5") + Range("h22")
    Range("E6") = Range("d6") + Range("h23")
    Range("E7") = Range("d7") + Range("h24")
    Range("E8") = Range("d8") + Range("h25")
    Range("E9") = Range("d9") + Range("h26")

    Range("I2") = Range("d2") + Range("I19")
    Range("I3") = Range("d3") + Range("I20")
    Range("I4") = Range("d4") + Range("I21")
    Range("I5") = Range("d5") + Range("I22")
    Range("I6") = Range("d6") + Range("I23")
    Range("I7") = Range("d7") + Range("I24")
    Range("I8") = Range("d8") + Range("I25")
    Range("I9") = Range("d9") + Range("I26")
    
End Sub

Ama bu kod sadece içinde bulunduğum ay geçerli olur. Diğer aylara geçişte makro içinden hücre güncellemesi yapmam gerekecek. Ayrıca hafta başında sıfırlanması gereken WEEK verisinde nasıl bi sonuç alırım henüz kestiremiyorum.

Bu iki durum içinde yardımınıza ihtiyacım var.

 

[enescakar]

Herkese merhaba,
Kodları güncelledim ve istediğim gibi çalışır durumda. Benim gibi ihtiyacı olan olur, yada farklı işlemlerde bi fikir olması adına kodun güncel halini paylaşıyorum.

Ellerime sağlık.

 

[enescakar]

15000 karakter sınırından dolayı not defteri olarak ekledim.

 

[enescakar]

Belirtmem de fayda var;

U2 hücresinde =EĞER(HAFTANINGÜNÜ(BUGÜN();2)=1;BUGÜN()-3;BUG ÜN()-1) formülü mevcut
V2 hücresinde =AY(U2) formülü mevcut

makro bunlar üzerinden dönüyor.