+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: İstenilen Hücrelere Veri Gir (/konu-istenilen-hucrelere-veri-gir.html)
İstenilen Hücrelere Veri Gir - ozkovlu29 - 26/01/2018
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