Ömer BARAN
Uzman
- Katılım
- 8 Mart 2011
- Mesajlar
- 12,997
- Excel Vers. ve Dili
- Office 2013 ( 32 bit ) TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- (18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Ben gönderdiğiniz anlam adlı sayfaya bakarak yapmaya çalışmıştım, hata yapmış olabilirim.
Son cevabımdaki NOT kısmını o yüzden yazdım zaten.
Koddaki Range("I2:AQ" & son).Interior.Pattern = xlNone satırına kadarki kısım eski renkleri siliyor ve en sağa 44, 45'inci sütunlara ilk yarı skorlarını, 46 ve 47'nci sütunlara ise maç sonucu skorlarını ayrıştırıyor.
Örneğin kod'un
kısmı şunu diyor, a satırında (2'den başlayarak belgedeki son satır numarasına kadarki satır numarası) 46'ncı sütundaki değer 47'nci sütundaki değerden büyük ise o satırdaki 9'uncu sütundaki hücreyi (örneğin a 2 ise I2 hücresini) boya,,,,, bu şekilde kod'daki Next satırına kadar işlem yapılıyor sonra tekrar başa dönülüp bu sefer a değeri 3 (satır no) olarak dikkate alınıp tek tek tekrar kontrol ve boyama yapılıyor.
Kod'un en sonlarında (başta da var ama o şimdilik kalsın) Range("AR:AU").ClearContents şeklinde satır var, o satırın başına tek tırnak ekleyin (satır yazı rengi yeşile döner), böylece skorların ayrıştırılmış halini AR:AS (yani 44 ve 45'inci sütun) arasında ilk yarı skorlarını, AT:AU (yani 46 ve 47'nci sütun) maç sonucu skorlarını göreceksiniz.
Son cevabımdaki NOT kısmını o yüzden yazdım zaten.
Koddaki Range("I2:AQ" & son).Interior.Pattern = xlNone satırına kadarki kısım eski renkleri siliyor ve en sağa 44, 45'inci sütunlara ilk yarı skorlarını, 46 ve 47'nci sütunlara ise maç sonucu skorlarını ayrıştırıyor.
Örneğin kod'un
Kod:
If Cells(a, 46) [B][COLOR="Red"]>[/COLOR][/B] Cells(a, 47) Then
Cells(a, 9).Interior.ColorIndex = 4
Kod'un en sonlarında (başta da var ama o şimdilik kalsın) Range("AR:AU").ClearContents şeklinde satır var, o satırın başına tek tırnak ekleyin (satır yazı rengi yeşile döner), böylece skorların ayrıştırılmış halini AR:AS (yani 44 ve 45'inci sütun) arasında ilk yarı skorlarını, AT:AU (yani 46 ve 47'nci sütun) maç sonucu skorlarını göreceksiniz.
Son düzenleme: