Şarta Bağlı hücrelere veri girişi

[ultraslan38080]

Değerli arkadaşlar ekte bir çalışmam var. Ancak takıldığım bir yerde yardımlarınıza ihtiyacım var.
Ekteki belgede de açıklamasını izah ettiğim gibi;
TEK HAFTALIK TABLO OLAN SARI RENKLİ HÜCRELERE SAYILARI GİRDİKTEN SONRA, DAĞIT BUTONUNA BASTIĞIMDA SAĞDAKİ AYLIK TABLOYA AYNI GÜNE DENK GELECEK ŞEKİLDE AKTARMASINI İSTİYORUM.
Bununla alakalı şu kod üzerinde uğraştım. Ancak çalışmadı.

Dim i, j, t As Integer

If MsgBox("Tüm kişiler tüm aya dağıtılacak." & _
    vbLf & vbLf & "Onaylıyor musunuz?", vbYesNo, "Tüm kişileri dağıt") = vbYes Then

    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    t = 10
    Do While Cells(t, 5) <> ""
        j = 14
        While Cells(9, j) <> "TEK HAFTALIK TOPLAM"   
            Cells(t, j) = Cells(t, 9 + Weekday(Cells(9, j), 2))   
            j = j + 1
        Wend
        t = t + 1
    Loop
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    MsgBox "Tüm kişiler tüm aya dağıtıldı.", vbInformation, "Tüm kişileri dağıt"
End If

 

[muygun]

Merhaba;
Ekte 2 uygulama var. Her iki uygulama için sadece verilerinizi alarak yeni dosya oluşturdum.
(her ikisinde de makrolarınızı iptal ettim.)
İlk dosyada tüm tabloya butonla dağıtım yapıyor. (tabi sabırla makronun işini bitirmesini beklemelisiniz.)
İkinci dosyada sarı alanda işlem yapılırsa ilgili satırın dağıtımını yapıyor.
İnceleyin.
İyi çalışmalar.

 

[ultraslan38080]

çok teşekkür ediyorum. Çok Sağolun.