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

Başlık: "Hukuk" Sözcüğünü Silen Makro
Gönderen: 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

Başlık: Ynt: "Hukuk" Sözcüğünü Silen Makro
Gönderen: turkanet - 04 Temmuz 2014, 09:28:53

Konuyu hatalı açtım.
P sütununda "hukuk" sözcüğü varsa, A:M satırlarını gri renklendirsin istiyorum.

Başlık: Ynt: "Hukuk" Sözcüğünü Silen Makro
Gönderen: turkanet - 04 Temmuz 2014, 10:54:12

Konu acildir, yardımlarınızı rica ederim.

Başlık: Ynt: "Hukuk" Sözcüğünü Silen Makro
Gönderen: balikci77 - 20 Temmuz 2014, 21:41:25

Kod: [Seç]

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 = EmptyBu şekilde deneyiniz. Kolay Gelsin.