26-01-2018, 16:01
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.
Burda "Günlük Çalışma" yazan satırlara veri girmesi gerekiyor.
Visual Basic
- 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