ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Levent145]

Excelde devam eden bir listem var bu listeyi macro
ile yapmak mümkün mü.
Örnek dosya ekte.
Yani butona basınca A hücresindeki tarihe
Göre mevcut sıralamayı yapacak
Bir kaç ayın çizelgesini ekledim.

Kısaca her grup 5 gündüz üst üste geliyor
Diğer gruplar da bir gece çalışıp bir gece istirahat ediyor.
Yardım edebilecek olan varsa çok sevinirim.

[okutkan]

12 36 sistemine göre çalışılıyor sanırım. Bu listeyi bende hazırlamıştım fakat kopyala yapıştır ile yapmıştım. Yaklaşık 15 satırı yazdıktan sonra, 15 satırı ard arda yapıştırıp yapmayı denediniz mi?

[okutkan]

Eklediğim resimdeki tabloyu aşağı doğru istediğiniz tarihe kadar çoğaltabilirsiniz. İlla kodla çoğaltmak istiyorum derseniz yardımcı olayım.

[Levent145]

Kodla olursa çok iyi olur ben bu listeyi yıllık olarak makro ile hazırlamak istiyorum.
Yardımcı olursanız cok sevinirim.

[veyselemre]

Kod: Tümünü seç

Sub test()
    Dim i&, gruplar()
    gruplar = Array("", "1. GRUP", "2. GRUP", "3. GRUP")
    Range("B3:D" & Rows.Count).ClearContents
    For i = 1 To Cells(Rows.Count, 1).End(3).Row - 2
        Cells(i + 2, 2).Value = gruplar(1)
        Cells(i + 2, 3).Value = gruplar(2)
        Cells(i + 2, 4).Value = gruplar(3)
        If (i Mod 5) = 0 Then
            gruplar(0) = gruplar(1)
            gruplar(1) = gruplar(3)
            gruplar(3) = gruplar(2)
            gruplar(2) = gruplar(0)
        Else
            gruplar(0) = gruplar(2)
            gruplar(2) = gruplar(3)
            gruplar(3) = gruplar(0)
        End If
    Next i
End Sub

[Levent145]

Hocam elinize emeğinize sağlık kod harika çalıştı.
Vâkıf olmak adına soruyorum.
Kodun çalışma mantığı ne
Yani tüm satırları silsem de doğru sıralıyor
Her seferinde.

[okutkan]

1.Grubun ilk gündüzünün tarihini A3 hücresine yazarak sıralama yapmanız gerekli sanırım. Veysel bey çok güzel bir kod yazmış, kısa ve net:)

[Levent145]

Ekli listede gösterdiğim şekilde sayfa1 de
Sayfaya her girildiğinde B sütununda olan tarihin karşısına örnekteki gibi 1. 2. 3. 4. Grup yazmasını istiyorum.
Listede manüel olarak doğru şekilde yaptım.
Ben istiyorum ki sayfaya her girildiğinde b sütununda tarih varsa C D E F Sütunlarında 1. Grup 2. Grup 3. Grup 4.Grup diye yazması.
Yardımcı olabilecek olan varsa çok sevinirim .

[Levent145]

Dosyayı ekledim.

[okutkan]

3.satır ile 22.satır arasındaki verileri aşağı yapıştırdıktan sonra sorun hallolmuyor mu? Satır satır işlem yapmaktansa 20 günde bir kopyala yapıştır yapmak daha mantıklı duruyor.

[Levent145]

Hocam şöyleki
Ilk şeklinde 1. Grubun gündüze geldiği ilk 5 günü silmesiyim müddetçe ondan sonraki tarihteki tüm gruplari otomotik getiriyordu.

ben tarihleri silip
Misal 22.01.2023 tarihini yazınca
Bu 22.012.2023 birinci grubun 1. Gündüzü ise sorun olmuyordu. Ondan sonrakiler sıra e geliyordu.
Tekrar böyle bir şey yapabilir miyiz