Kosula gore renk degirstire macro.

[lapot]

Herkeze selam arkadaslar

Elimde cok buyuk bir dosya var,dosyada bir cok veri var.

Benim yapmak isdedigim Eger Sutun "J" , Stun "K" and Stun "M" deki veriler ayni sirada "0"

esitse butun Siranin rengini nasil kirmizi yaparim? Boyle bir amcro nasil yazilir?

yardimlariniz icin tesekkurler

 

[İhsan Tank]

Herkeze selam arkadaslar

Elimde cok buyuk bir dosya var,dosyada bir cok veri var.

Benim yapmak isdedigim Eger Sutun "J" , Stun "K" and Stun "M" deki veriler ayni sirada "0"

esitse butun Siranin rengini nasil kirmizi yaparim? Boyle bir amcro nasil yazilir?

yardimlariniz icin tesekkurler

merhaba
dosya ekleseydiniz daha iyi olurdu
veri aralığını seçin
biçim - koşullu biçimlendirme - formül kısmına

=VE($J2<>"";$J2=0;$K2<>"";$K2=0;$M2<>"";$M2=0)

bu formülü yazın ve biçim'i ayarlayın.

 

[lapot]

Cok tesekkurler arkadsim fakat bunu macroyla yapabilirmiyiz?

 

[lapot]

Ayni zamanda yukaridaki formul calismiyor

 

[İhsan Tank]

Ayni zamanda yukaridaki formul calismiyor

ciddi olamazsınız çalışmıyor derken
ben yapamadım demiyorsunuzda çalışmıyor diyorsunuz öyle mi_?
ben deniyorum gayet güzel çalışıyor
kod'u yazdım ama siz ona da sorun bulursunuz şimdi

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("J:K,M:M")) Is Nothing Then Exit Sub
Dim ts
For ts = 1 To Cells(65536, "J").End(xlUp).Row
If Cells(ts, "J") <> "" And Cells(ts, "J") = 0 And _
Cells(ts, "K") <> "" And Cells(ts, "K") = 0 And _
Cells(ts, "M") <> "" And Cells(ts, "M") = 0 Then
Range("A" & ts & ":M" & ts).Interior.Color = vbRed
End If
Next
End Sub

 

[lapot]

Ihsan bey

Kusurabakmayin, kotu anlamda birsey seolemedim, hata varsa benden kaynaklaniyordur.Yardiminiza ve ayirdiginiz zamana cok tesekkur ederim.
Saygilar

 

[lapot]

Bu macroyu nasil calistirabilirim.Run butonuna basdigimda makronunu ismi gelmiyor.
Kusura bakmayin bukadar sordugum icin

saygilar

 

[İhsan Tank]

Bu macroyu nasil calistirabilirim.Run butonuna basdigimda makronunu ismi gelmiyor.
Kusura bakmayin bukadar sordugum icin

saygilar

sekmenin üzerinde sağ tuş tıklayın çıkan yeni sayfada beyaz bölüme kopyalayın
siz çalıştırmayacaksınız kendisi otomatik çalışacak
ayrıntılar için tıklayın

 

[lapot]

Cok tesekkurler, Harika calisyor. Keske beimde sisn kadar kod yazma kabileytim olsaydi.

saygilar

 

[lapot]

Fakat birsey dikatimi cekti eger sayfayi update yaparsam daha once kirmizi olan Sira hala kirmizi olarak kaliyor.

 

[İhsan Tank]

Fakat birsey dikatimi cekti eger sayfayi update yaparsam daha once kirmizi olan Sira hala kirmizi olarak kaliyor.

buyrun bu kod o istediğinizi'de yerine getiriyor

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("J:K,M:M")) Is Nothing Then Exit Sub
Dim ts
For ts = 1 To Cells(65536, "J").End(xlUp).Row
If Cells(ts, "J") <> "" And Cells(ts, "J") = 0 And _
Cells(ts, "K") <> "" And Cells(ts, "K") = 0 And _
Cells(ts, "M") <> "" And Cells(ts, "M") = 0 Then
Range("A" & ts & ":M" & ts).Interior.Color = vbRed
Else
Range("A" & ts & ":M" & ts).Interior.Color = xlNone
End If
Next
End Sub

 

[lapot]

Ihsan Bay sagigilar Harika calisiyor.