Tevfik_Kursun
Altın Üye
- Katılım
- 30 Temmuz 2012
- Mesajlar
- 3,790
- Excel Vers. ve Dili
- Office 2016 Pro - Türkçe 64 Bit
- Altın Üyelik Bitiş Tarihi
- 12-02-2029
Merhaba Arkadaşlar,
GoogleSheet te B20 den başlayan bir okul çalışması için ;
bu makronun yerini tutacak scripte ihtiyacım var. Yardımcı olursanız sevinirim.
Saygılarımla
GoogleSheet te B20 den başlayan bir okul çalışması için ;
Kod:
Sub Boya()
Dim x As Long, Son As Long, wf As WorksheetFunction
Set wf = WorksheetFunction
Son = Cells(Rows.Count, "C").End(3).Row
For x = 20 To Son
Cells(x, 2) = x - 19
Next x
For x = 20 To Son
If Cells(x, 3) <> "" And Cells(x, 4) <> "" And Cells(x, 5) = "" Then
Cells(x, 5).Interior.ColorIndex = 6
End If
If Cells(x, 3) <> "" And Cells(x, 4) <> "" And wf.CountIf(Range(Cells(20, 5), Cells(x, 5)), Cells(x, 5)) > 1 Then
Cells(x, 5).Interior.ColorIndex = 3
End If
If Cells(x, 3) <> "" And Cells(x, 4) <> "" And Cells(x, 6) = "" Then
Cells(x, 6).Interior.ColorIndex = 6
End If
If Cells(x, 3) <> "" And Cells(x, 4) <> "" And Cells(x, 9) = "" Then
Cells(x, 9).Interior.ColorIndex = 6
End If
If Cells(x, 3) <> "" And Cells(x, 4) <> "" And Cells(x, 11) = "" Then
Cells(x, 11).Interior.ColorIndex = 6
End If
If Cells(x, 3) <> "" And Cells(x, 4) <> "" And Cells(x, 12) = "" Then
Cells(x, 12).Interior.ColorIndex = 6
End If
Next x
End Sub
Saygılarımla