tarih girildiğinde kod çalışmaması

[karahan61]

MERHABALAR

Sitemizde bulduğum işime çok yarayacağına inandığım ekli dosyayı okulumuza uyarlamaya çalıştım. ancak yazılan kod 01.01.2011-01.03.2011-01.05.2011-01.07.2011-01.08.2011-01.10.2011-01.12.2011 tarihleri girdiğinde çalışmamakta diğer aylarda ise çalışmaktadır. yardımlarınız için teşekkürler.

 

[Mehmet Şahin]

Merhaba,
bu bölümü

Loop While Not Cells(17, Sut) = [B][COLOR=Red]""[/COLOR][/B]

bununla

[B]Loop While Not (Cells(17, Sut) = "TOPLAM" Or Cells(17, Sut) = "")[/B]

değiştirerek deneyiniz. İyi çalışmalar.

 

[karahan61]

Tarih girildiğinde kod çalışmaması

çok teşekkür ederim. bir konuda daha yardımlarınızı esirgemez iseniz minnetkar kalırım.
ekli dosyada istediğimi yazdım.

 

[Mehmet Şahin]

Merhaba,
Module1'deki kodların tamamını silip, yerine aşağıdakileri yapıştırınız. İyi çalışmalar.

Option Explicit

Sub Puantaj()

    Dim Sat As Long, _
        Sut As Integer, _
        Son As Long
    
    Son = Cells(Rows.Count, "B").End(3).Row - 1
    If Son < 18 Then Son = 18
    
    Application.ScreenUpdating = False
    Range("d18:AG" & Son).ClearContents
    For Sat = 18 To Son
        Sut = 4
        If Not Cells(Sat, "B") = "" Then
            Do
                If Weekday(Cells(17, Sut), 2) > 5 Then
                    Cells(Sat, Sut) = "X"
                Else
                     Cells(Sat, Sut) = Cells(Sat, "C")
                End If
                Sut = Sut + 1
            Loop While Not (Cells(17, Sut) = "TOPLAM" Or Cells(17, Sut) = "")
        End If
    Next Sat
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamdır....", vbInformation, "N. YEŞERTENER --> www.excel.web.tr"

End Sub

 

[karahan61]

çook teşekkür ederim .

 

[karahan61]

hocam sabrınıza hayranım. Çok özür diliyorum
1.Son satırıda hesaplasın
2-Satır sayısında eklediğimde sınır olmasın
hakkınızı helal ediniz

 

[Mehmet Şahin]

Merhaba,
satır sınırı yok zaten. Sizin son satırınızda birleştirimiş hücre ve satırlarınızda koşullu biçimlendirme var. Bunları her defasında silip her satır sayısına göre her defasında biçimlendirmek kodun temel amacının dışına çıkarır. Aşağıdaki kod son satırın altına toplamı yazar. Ama bence son satırdaki toplam satırını iptal edip toplamı b14' e vb. yazmanız.

Next Sat

bu satırının altına
bunları ekleyin.

Cells(Sat + 1, "AI") = Application.WorksheetFunction.Sum(Range("AI18:AI" & Sat)) [COLOR=Green]'en alt satıra toplamı yazar[/COLOR]

[COLOR=Green]'range("b14") = Application.WorksheetFunction.Sum(Range("AI18:AI" & Sat)) 'b14'e yazarsanız bunu kullanın[/COLOR]

 

[karahan61]

Hocam çok özür dilerim. Anlatmak istediğim son satırı hesaplamıyor. Son satırdaki 3 ün bir anlamı yok. sıra numarası önemli değil B sutununda isim var ise hesaplasın kaç satır olursa olsun
yardımlarınız için teşekkür ederim

 

[Mehmet Şahin]

Merhaba,
kırmızı olan bölümü ekleyiniz. Kolay gelsin.

    For Sat = 18 To Son [B][COLOR=Red]+ 1[/COLOR][/B]

 

[karahan61]

Teşekkürler emeğine sağlık

 

[Mehmet Şahin]

Rica ederim,
kodlar için Necdet bey'e ayrıca teşekkür,
kolay gelsin.