Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: turkanet - 04 Temmuz 2014, 09:14:01
-
Merhaba
Aşağıdaki kodu yazdım ama (If S5.Cells(J, "P") = "HUKUK" Then ) kısmında "runtime error 13 type mismatch" hatası alıyorum. Yardımınızı rica ederim.
Dim S5 As Worksheet
Set S5 = Sheets("Firma Bakiye")
S5son = S5.[I65536].End(3).Row
For J = 1 To S5son
If S5.Cells(J, "P") = "HUKUK" Then S5.Range("A" & J & ":M" & J).Interior.ColorIndex = 15
Next J
Set S5 = Nothing
J = Empty
S5son = Empty
-
Konuyu hatalı açtım.
P sütununda "hukuk" sözcüğü varsa, A:M satırlarını gri renklendirsin istiyorum.
-
Konu acildir, yardımlarınızı rica ederim.
-
Dim S5 As Worksheet
Set S5 = Sheets("Firma Bakiye")
S5son = S5.[I65536].End(3).Row
For J = 1 To S5son
If S5.Cells(J, "P") = "HUKUK" Then
S5.cells(j,"M").Interior.ColorIndex = 15
S5.cells(j,"N").Interior.ColorIndex = 15
end if
Next J
Set S5 = Nothing
J = Empty
S5son = Empty
Bu şekilde deneyiniz. Kolay Gelsin.