İstenilen Hücrelere veri gir

[ozkovlu]

Aşağıdaki formülle E6:AI280 arasındaki hücrelere veri giriyor.
Burda "Günlük Çalışma" yazan satırlara veri girmesi gerekiyor.

Sub PuantajGir()

Puantaj = MsgBox("Yeni Puantaj Gireceksiniz", vbYesNo + vbDefaultButton2 + vbExclamation, "Puantaj Gir")

aylar = Range("f3").Value
If Puantaj = vbYes Then
If aylar = "Ocak" Or aylar = "Mart" Or aylar = "Mayıs" Or aylar = "Temmuz" Or aylar = "Ağustos" Or aylar = "Ekim" Or aylar = "Aralık" Then
Range("D6:AI280").Select
Selection.FormulaR1C1 = "x"
ElseIf aylar = "Şubat" Then
Range("D6:AF280").Select
Selection.FormulaR1C1 = "x"
ElseIf aylar = "Nisan" Or aylar = "Haziran" Or aylar = "Eylül" Or aylar = "Kasım" Then
Range("D6:AH280").Select
Selection.FormulaR1C1 = "x"
End If
End If


End Sub

 

[YUSUF44]

Aşağıdaki kodu kullanabilirsiniz:

Sub PuantajGir()

Puantaj = MsgBox("Yeni Puantaj Gireceksiniz", vbYesNo + vbDefaultButton2 + vbExclamation, "Puantaj Gir")

aylar = Range("f3").Value
    If Puantaj = vbYes Then
        If aylar = "Ocak" Or aylar = "Mart" Or aylar = "Mayıs" Or aylar = "Temmuz" Or aylar = "Ağustos" Or aylar = "Ekim" Or aylar = "Aralık" Then
            For j = 6 To Cells(Rows.Count, "D").End(3).Row
                If Cells(j, "D") = "Günlük Çalışma" Then
                    Range("E" & j & ":AI" & j) = "x"
                End If
            Next
        ElseIf aylar = "Şubat" Then
            For j = 6 To Cells(Rows.Count, "D").End(3).Row
                If Cells(j, "D") = "Günlük Çalışma" Then
                    Range("E" & j & ":AF" & j) = "x"
                End If
            Next
        ElseIf aylar = "Nisan" Or aylar = "Haziran" Or aylar = "Eylül" Or aylar = "Kasım" Then
            For j = 6 To Cells(Rows.Count, "D").End(3).Row
                If Cells(j, "D") = "Günlük Çalışma" Then
                    Range("E" & j & ":AH" & j) = "x"
                End If
            Next
        End If
    End If
End Sub

Yalnız dosyanızda bazı şeyleri uzun yoldan yapmaya çalışmışsınız. Tarih için iki ayrı satır kullanmanıza gerek yok mesela. Tek satırda da aynı puantajı hazırlayabilirsiniz. Ayrıca Şubat için 28 günlük puantaj yapmışsınız ama artık yılları dikkate almamışsınız.

 

[ozkovlu]

Teşekkürler YUSUF44;
10 numara 5 yıldız