Target.Offset ile hücre renklendirme

[cebelitarık]

Forumun Değerli Üyeleri
If Target = "TEK ARA" Then Target.Offset(0, 15) = "ARA (DEVAM) TASDİK": Target.Offset(0, 0) = "TEK.A": Target.Offset(0,0) = Interior.ColorIndex = 4

satırında "TEK.A" haline gelen hücreyi de yeşile boyamak istiyorum.

Aşağıdaki satır çalışmıyor
: Target.Offset(0,0) = Interior.ColorIndex = 4
Nasıl Yazılacağı konusunda bilgilerinizi rica ediyorum.
Saygılarımla

 

[cebelitarık]

If Target = "TEK ARA" Then Target.Offset(0, 15) = "ARA (DEVAM) TASDİK": Target.Offset(0, 0) = "TEK.A"
If Target = "TEK.A" Then Target.Rows.Interior.ColorIndex = 4

Bu şekilde çözüm ürettim fakat bunu birinci satırın devamı şeklinde tek satıra nasıl indiririz.

 

[Orion1]

If Target = "TEK ARA" Then Target.Offset(0, 15) = "ARA (DEVAM) TASDİK": Target.Offset(0, 0) = "TEK.A"
If Target = "TEK.A" Then Target.Rows.Interior.ColorIndex = 4

bu şekilde çözüm ürettim fakat bunu birinci satırın devamı şeklinde tek satıra nasıl indiririz.

If Target = "TEK ARA" Then Target.Offset(0, 15) = "ARA (DEVAM) TASDİK": Target.Offset(0, 0) = "TEK.A":Target.Rows.Interior.ColorIndex = 4:end if

 

[cebelitarık]

Sayın Evren Gizlen
İlginiz için çok teşekkür ederim.
Kod çalışmadı.
Çünkü dikkat ederseniz ilgili hücreye ilk önce
"TEK ARA" değeri giriliyor
15 hücre ileriye
"ARA (DEVAM) TASDİK" değeri otomatik olarak kod ile yazılıyor.
daha sonra
"TEK ARA" değeri girdiğimiz hücre değeri
"TEK.A" değerine dönüşüyor ve hücre rengi yeile boyanıyor.

İlk hücrenin değeri "TEK.A" ya dönüştüğü için kod çalışmıyor. Blok halinde If Target stırlarının sonunda End If kodu mevcuttur.
yukarıda izah ettiğim durum için 2. mesajım daki kodlar çalışıyor fakat tek satıra indiremedim.

Ayrıca bunun tersini yapmak için;
"TEK.A" yazılmış ve yeşile boyanmış hücre değerini sildiğimizde renginde kaldırılması gerekiyor.
If Target = "" Then Target.Offset(0, 15) = "" kodu ile
boşluk haline getirdiğimizde Target.Offset(0, 0) hücre değerinide renkli ise dolgusuz yani renksiz hale getirmek istiyorum.

Saygılarımla

 

[cebelitarık]

Sayın Evren Gizlen
Sorunu aşağıdaki şekilde çözdüm. Biraz kod salatası oldu ama sadeleştiremedim.
Bunun yanında; renkli hücre içeriklerini de DELETE ile sildiğimde hücre renginin de kaldırılmasını (x1none) istiyorum.
Saygılarımla

If Target.Column = 5 Then
If Target = " " Then Target.Offset(0, 15) = "" 
   
If Target = "TEK.A" Then Target.Rows.Interior.ColorIndex = 4
If Target = "TEK.G" Then Target.Rows.Interior.ColorIndex = 8
If Target = "TEK.K" Then Target.Rows.Interior.ColorIndex = 7
If Target = "TEK.E" Then Target.Rows.Interior.ColorIndex = 6
        
If Target = "ÇİFT.A" Then Target.Rows.Interior.ColorIndex = 4
If Target = "ÇİFT.G" Then Target.Rows.Interior.ColorIndex = 8
If Target = "ÇİFT.K" Then Target.Rows.Interior.ColorIndex = 7
If Target = "ÇİFT.E" Then Target.Rows.Interior.ColorIndex = 6
 
If Target = " " Then Target.Rows.Interior.ColorIndex = x1none
If Target = "TEK" Then Target.Rows.Interior.ColorIndex = x1none
If Target = "ÇİFT" Then Target.Rows.Interior.ColorIndex = x1none
           
If Target = "TEK" Then Target.Offset(0, 15) = ""
If Target = "ÇİFT" Then Target.Offset(0, 15) = ""
           
If Target = "TEK ARA" Then Target.Offset(0, 15) = "ARA (DEVAM) TASDİK": Target.Offset(0, 0) = "TEK.A"
If Target = "TEK GÖRÜLDÜ" Then Target.Offset(0, 15) = "GÖRÜLDÜ": Target.Offset(0, 0) = "TEK.G"
If Target = "TEK KAPANIŞ" Then Target.Offset(0, 15) = "KAPANIŞ": Target.Offset(0, 0) = "TEK.K"
If Target = "TEK EKTASDİK" Then Target.Offset(0, 15) = "EKTASDİK": Target.Offset(0, 0) = "TEK.E"

If Target = "ÇİFT ARA" Then Target.Offset(0, 15) = "ARA (DEVAM) TASDİK": Target.Offset(0, 0) = "ÇİFT.A"
If Target = "ÇİFT GÖRÜLDÜ" Then Target.Offset(0, 15) = "GÖRÜLDÜ": Target.Offset(0, 0) = "ÇİFT.G"
If Target = "ÇİFT KAPANIŞ" Then Target.Offset(0, 15) = "KAPANIŞ": Target.Offset(0, 0) = "ÇİFT.K"
If Target = "ÇİFT EKTASDİK" Then Target.Offset(0, 15) = "EKTASDİK": Target.Offset(0, 0) = "ÇİFT.E"
End If