Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Gönderen Konu: "Hukuk" Sözcüğünü Silen Makro  (Okunma sayısı 4427 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı turkanet

  • Excelce Onbaşı
  • **
  • İleti: 11
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ahmet Yılmaz
  • Doğum Yılınız: 1977
  • İl / İlçe: İstanbul-İçerenköy
"Hukuk" Sözcüğünü Silen Makro
« : 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

Çevrimdışı turkanet

  • Excelce Onbaşı
  • **
  • İleti: 11
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ahmet Yılmaz
  • Doğum Yılınız: 1977
  • İl / İlçe: İstanbul-İçerenköy
Ynt: "Hukuk" Sözcüğünü Silen Makro
« Yanıtla #1 : 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.

Çevrimdışı turkanet

  • Excelce Onbaşı
  • **
  • İleti: 11
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ahmet Yılmaz
  • Doğum Yılınız: 1977
  • İl / İlçe: İstanbul-İçerenköy
Ynt: "Hukuk" Sözcüğünü Silen Makro
« Yanıtla #2 : 04 Temmuz 2014, 10:54:12 »
Konu acildir, yardımlarınızı rica ederim.

Çevrimdışı balikci77

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Taner
  • İl / İlçe: konya
Ynt: "Hukuk" Sözcüğünü Silen Makro
« Yanıtla #3 : 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 = Empty
Bu şekilde deneyiniz. Kolay Gelsin.