Access SQL
İstenilen Hücrelere veri gir - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: MS SQL SERVER & DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI (https://www.access-sql.com/Forum-MS-SQL-SERVER-DIGER-MS-OFFICE-VE-VERITABANI-UYGULAMALARI)
+--- Forum: DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI (https://www.access-sql.com/Forum-DIGER-MS-OFFICE-VE-VERITABANI-UYGULAMALARI)
+---- Forum: MICROSOFT OFFICE PROGRAMLARI (https://www.access-sql.com/Forum-MICROSOFT-OFFICE-PROGRAMLARI)
+----- Forum: EXCEL (https://www.access-sql.com/Forum-EXCEL)
+------ Forum: EXCEL SORULARI (https://www.access-sql.com/Forum-EXCEL-SORULARI)
+------ Konu: İstenilen Hücrelere veri gir (/Konu-Istenilen-Hucrelere-veri-gir)

İ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.
Visual Basic
  1. Sub PuantajGir()
  2.  
  3. Puantaj = MsgBox("Yeni Puantaj Gireceksiniz", vbYesNo + vbDefaultButton2 + vbExclamation, "Puantaj Gir")
  4.  
  5. aylar = Range("f3").Value
  6. If Puantaj = vbYes Then
  7. 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
  8. Range("D6:AI280").Select
  9. Selection.FormulaR1C1 = "x"
  10. ElseIf aylar = "Şubat" Then
  11. Range("D6:AF280").Select
  12. Selection.FormulaR1C1 = "x"
  13. ElseIf aylar = "Nisan" Or aylar = "Haziran" Or aylar = "Eylül" Or aylar = "Kasım" Then
  14. Range("D6:AH280").Select
  15. Selection.FormulaR1C1 = "x"
  16. End If
  17. End If
  18.  
  19.  
  20. End Sub




Cvp: İstenilen Hücrelere veri gir - EminA - 29-01-2018

Sayın Özkovlu, Range("D6:AI280").Select ile tamamını seçtirip, Selection.FormulaR1C1 = "x" ile tamamına x yazdırıyorsunuz. Burada Günlük Çalışmalara veri girmek için o satıra ait hücreleri seçtirmeniz gerekir. Yani Range("D6:AI6").Select olmalı ki D satırındaki Günlük Çalışmaya x işareti koysun. Ancak 280 satır olduğunu varsayarsak bu 140 satır tanımlaması demek. Bu bir döngüyle 2 artırarak halledilebilir. Umarım işinize yarar kolay gelsin.