dengeceteris
Altın Üye
- Katılım
- 21 Aralık 2019
- Mesajlar
- 192
- Excel Vers. ve Dili
- Office 2016
- Altın Üyelik Bitiş Tarihi
- 15-06-2025
Sevgili Uzman arkadaşlar. Renklendirmeyle ilgili bir sorum var. Aşağıda girdiğim formülü yine excelweb de bulmuş ve uygulamıştım. Sorunsuz çalışıyor şu anda. Tek sıkıntım mesela AM sütunun da "Ters" ibaresini görünce G sütununda ilgili hücreyi renlendiriyor ama AM sütunu yeni bir veriyle düzelsede G sütununda renkler kalıyor. Bu formüle nasıl bir ek yapmam gerekiyor ki AM de "Ters" ibaresi kalkınca ve makro yeniden çalışınca G deki ilgili hücre renklendirmesini iptal edebileyim.
Sub renk()
On Error Resume Next
Call KOPYALA
Call RAPOR
Call HESAPLA
Dim x As Long, s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("RAPOR")
For x = 2 To 10000
's1.Range("A10000").End(xlUp).Row
If s1.Cells(x, "AM") = "Ters" Then
With Range("G" & x & ":G" & x)
.Interior.ColorIndex = 20
End With
End If
End sub
Sub renk()
On Error Resume Next
Call KOPYALA
Call RAPOR
Call HESAPLA
Dim x As Long, s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("RAPOR")
For x = 2 To 10000
's1.Range("A10000").End(xlUp).Row
If s1.Cells(x, "AM") = "Ters" Then
With Range("G" & x & ":G" & x)
.Interior.ColorIndex = 20
End With
End If
End sub
