Hangi hedef alana onları istediğime bağlı olarak değişen orijin değerlerini kopyalayıp yapıştırma

Excel'de günlük olarak değişen bir veri kümem var, buna "daily_data" diyoruz.

Bu verileri kopyalayıp haftanın uygun alanlarına yapıştırmam gerekiyor. Bu işlemi manuel olarak yapmak kolaydır, ancak günlük olarak yayınladığım birkaç raporum var.

Süreci otomatikleştirmeye çalışıyorum.

Örneğin dosyayı açtım ve bana Pazartesi günleri daily_data bilgilerini gösteriyor. Salıdan cumaya boş bırakırken bu verileri kopyalamak ve statik bir Pazartesi alanına yapıştırmak istiyorum. Ardından ertesi gün bana Salı gününün günlük verileri gösterir. Çarşambadan cumaya yalnız ayrılırken Salı gününün statik alanına kopyalanmasını istiyorum. Şimdi pazartesi ve salı günkü verilerini görebiliyorum. ve bu nedenle haftanın geri kalanında ilerler. (Açıklamaya fazla baktım gibi hissediyorum. Sadece net olmaya çalışıyorum).

Tüm daily_data alanlarımı günlük olarak uygun günlerine yapıştırma ve yapıştırma adımlarını atlayabilirsem, bu bana zaman kazandırır.

Bunu, giriş sütunundaki değerleri haftanın geçerli gününe göre seçilen bir sütuna kopyalayan bir VBA makrosu ile elde edebilirsiniz. Ardından makroyu open olaya bağlayın.

Burada gösterilen düzeni hipotez edelim:

Private Sub Workbook_Open()
    columnOffset = 2
    dow = Weekday(Now, vbMonday)
    col = dow + columnOffset
    ' If data already exists, don't do anything
    If Cells(2, col).Value = "" Then
        ' Copy the first column except the first cell
        Intersect(Columns(1), UsedRange.Offset(1)).Copy Cells(2, col)
    End If
End Sub