if yapısı ile puantaj gir

[ozkovlu]

Merhaba,
Personellere ait puantaj gireceğim. Asagıdaki koda if eklediğimde çalışmıyor.

If E3 = 1 Then
        Range("D6:AH142").Select
        Selection.FormulaR1C1 = "x"

burda yapmak istediğim. Her ayın günleri farklı oldugundan, ben 2. ayı seçtiğimde 28. güne kadar x işaretiyle dolsun.

http://s3.dosya.tc/server10/nk61sg/Ekran_Alintisi.PNG.html
http://s8.dosya.tc/server3/f6yg45/Ekran_Alintisi2.PNG.html

 

[ozkovlu]

aylar = Range("e3").Value
    If puantaj = vbYes Then
        If aylar = 1 Or aylar = 3 Or aylar = 5 Or aylar = 7 Or aylar = 8 Or aylar = 10 Or aylar = 12 Then
        Range("D6:AH142").Select
        Selection.FormulaR1C1 = "x"
        ElseIf aylar = 2 Then
        Range("D6:Ae142").Select
        Selection.FormulaR1C1 = "x"
        ElseIf aylar = 4 Or aylar = 6 Or aylar = 9 Or aylar = 11 Then
        Range("D6:Ag142").Select
        Selection.FormulaR1C1 = "x"
        End If
    End If

yukarıdaki kod yardımı ile sorunu çözdüm.

 

[Ömer BARAN]

Merhaba.

Alternatif olsun.
.

[FONT="Arial Narrow"]Range("D6:AH142").ClearContents
If [E3] < 12 And [E3] > 0 And [I3] > 0 Then _
    ActiveSheet.Range(Cells(6, 4), Cells(142, Day(WorksheetFunction.EoMonth( _
        CDate(Format("01/" & [E3] & "/" & [I3], "dd/mm/yy")), 0)) + 3)) = "x"
[/FONT]