Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
26/01/2018 16:06
Konu Sahibi
ozkovlu29
Yorumlar
0
Okunma
512
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ozkovlu29

ozkovlu29

Aktif Üye
83843
Ba.... Çİ....
 33
 39
 91
 09/08/2016
0
 Gümüşhane
 
 Ofis 2013 32 Bit
 08/03/2019,11:33
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 Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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





Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Hucrelere Veri Gönderme ozkovlu29 6 1.004 24/02/2017, 08:17
Son Yorum: ozkovlu29

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.